Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Springen naar cel met "vandaag"

2,464 views
Skip to first unread message

The Ranger

unread,
Feb 11, 2003, 4:07:50 PM2/11/03
to
Hallo,

Ik ben bezig een urenverantwoording te maken waarbij ik per maand uren
bijhoud, ik heb daarin de maanden van een jaar staan.
Is het mogelijk indien het bestand wordt geopend direkt naar een cel te gaan
welke de datum voor de huidige dag is, zodat er direkt begonnen kan worden
met invullen van de urenverantwoording?

Alvast bedankt voor het meedenken.

Greetzzzz, Peter


bennie Claes

unread,
Feb 11, 2003, 5:24:28 PM2/11/03
to
Beste Peter,
Zet dit in voorwaardelijke opmaak
Formule
M8=VANDAAG()
En geef hem een kleurtje bij opmaak.

Bennie

>.
>

Ber Visser

unread,
Feb 12, 2003, 8:26:43 AM2/12/03
to
Peter, zet onderstaande macro in ThisWorkbook.
Hoe? zie het tweede voorbeeld op http://tinyurl.com/5pos

Bij het openen van het bestand selecteert deze macro op het
eerste werkblad in de eerste kolom de datum van vandaag.

Private Sub Workbook_Open()
With Sheets(1).Range("A:A")
Set c = .Find(Date)
c.Select
End With
Set c = Nothing
End Sub


--
Met vriendelijke groeten,
Ber Visser

"The Ranger" <bijn...@quicknet.nl> schreef in bericht
news:1044997642.256708@cache2...

The Ranger

unread,
Feb 12, 2003, 4:10:01 PM2/12/03
to
Hallo allemaal heel erg bedankt vor jullie oplossingen, maar ik heb voor
elke maand een tabblad waarop ik wil dat er naar die cel gaat van de dag dat
het bestand geopend wordt.
ook staat de data niet in een kolom maar ik een rij.

Hoe nu verder?
op zich werkt de code wel maar ik heb er deels wat aan.

Groet Peter

"Ber Visser" <viss...@pandora.be> schreef in bericht
news:#Fk0Upp0CHA.2232@TK2MSFTNGP11...

Ingrid Baplue

unread,
Feb 13, 2003, 3:29:19 AM2/13/03
to
Om in een rij te zoeken ipv een kolom moet je enkel de range aanpassen in de
With-regel:

With Sheets(1).Range("1:1")

Hoe je naar het juiste blad springt is afhankelijk van de naamgeving van de
werkbladen, misschien dat je ons dat nog even kan vertellen.

Ingrid

The Ranger schreef in news:1045084174.192737@cache2

The Ranger

unread,
Feb 15, 2003, 6:29:05 AM2/15/03
to
Beste Ingrid en alle mensen in deze NG,

Ik heb mijn bladen standaard gehouden zeg maar Blad 1, Blad 2 enz. Miscien
heb je daar iets aan. Enne natuurlijk hartstikke bedankt voor je
behulpvaardigheid welke je altijd ten toon spreidt..

Groet Peter
"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:usEtmnz0CHA.1624@TK2MSFTNGP11...

Ingrid Baplue

unread,
Feb 15, 2003, 6:36:33 AM2/15/03
to
Sorry, maar hier kan ik nog niet echt mee verder.

Welke maand staat er op welk blad?
Staat januari van het huidige jaar op Blad1.
Of is er misschien eerst nog een overzichtsblad.

Staat er slechts 1 jaar in het document, of meerdere jaren.
In dat geval kan je de bladen beter hernoemen zodat in de naam zowel de
maand als het jaar staan.

Ingrid

The Ranger schreef in news:1045308523.3840@cache1

The Ranger

unread,
Feb 15, 2003, 5:00:40 PM2/15/03
to
Beste Ingrid,
Ik heb de bladen naar de maanden van het jaar genoemd, en er staat één jaar
in van januari t/m december. Ik hoop nu duidelijker te zijn geweest, in elk
geval heel erg bedankt voor je moeite.
Groet, Peter

"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:b2l8nm$1dbtg0$1...@ID-164731.news.dfncis.de...

J.G. Kok

unread,
Feb 16, 2003, 5:43:13 AM2/16/03
to
Peter,

Gecombineerd met het kleuren van de betreffende rij zou dit wellicht wat
kunnen zijn.
Als er titelblokkering wordt toegepast waarbij de dagnummers direct links
van de blokkering staan zal, mits de goede startconstantes zijn gekozen, de
cel direct rechts van het dagnummer geselecteerd worden en zal er zo
gescrolld worden dat die cel in linksboven in het scrollbare gebied staat.

Option Explicit
'deze constanten(+1)geven de plek van de eerste van de maand
't.o.v. de plek waar,eventueel, titels zijn geblokkeerd
'als titels zijn geblokkeerd boven en links van de eerste van de maand
'zijn de constanten 0
'als titels niet zijn geblokkeerd en de eerste van de maand staat in A2
'zijn de constanten 1
'verder een kwestie van proberen
'
Const intStartH As Integer = 0
Const lngStartV As Long = 0

Sub DagVoorzetten()
Dim intdag As Integer
Dim strMaand As String
Dim intScrollC As Integer
Dim intScrollR As Long
strMaand = Format(Date, "mmmm")
intdag = Day(Date)
Sheets(strMaand).Activate
With ActiveWindow
intScrollC = .SplitColumn
intScrollR = .SplitRow
Sheets(strMaand).Cells(intScrollR + lngStartV + intdag, intScrollC +
intStartH + 1).Select
.ScrollColumn = 1
.ScrollRow = 1
.SmallScroll down:=lngStartV + intdag - 1
.SmallScroll toright:=intStartH - 1
End With
End Sub

The Ranger

unread,
Feb 16, 2003, 6:51:43 AM2/16/03
to
Bedankt vor het antwoord ik ga er mee expirimenteren.

Groet Peter
"J.G. Kok" <jgko...@789freeler.nl> schreef in bericht
news:OHP6#ea1CHA.2904@TK2MSFTNGP09...

Paul

unread,
Feb 16, 2003, 6:35:54 PM2/16/03
to
Met onderstaand voorbeeld heb ik geëxperimenteerd en heb volgende
vragen die ik -gezien mijn nog beperkte VBA-kennis- niet onder knie
krijg.
1. als de 'datum van vandaag' niet in de tabel staat krijg ik een
foutmelding - hoe op te lossen ?
2. als de 'datum van vandaag' in de tabel staat, wil ik een (nieuw)
scherm openen bijvoorbeeld c:\test.htm
3. set c => wat is die 'c' ?

Dank en groeten,
PS

On Wed, 12 Feb 2003 14:26:43 +0100, "Ber Visser" <viss...@pandora.be>
wrote:

0 new messages