Microsoft Excel

Herbers Excel/VBA-Archiv

Springe zu aktuellem Datum | Herbers Excel-Forum


Betrifft: Springe zu aktuellem Datum von: jockel
Geschrieben am: 24.01.2012 07:57:19

Hallo,

ich habe in meinem Sheet oben einen Button mit folgenden Code:

Dim zelle
Set zelle = Worksheets("2012").Columns("A:A").Find(What:=Date)
zelle.Select

In der Spalte A in der Zelle 1 ist ein datum eingetragen und dieses 365 Zeilen nach unten gezogen.
Jede Zeile ist praktisch ein Tag.

Mit dem Code oben will ich immer zum aktuellen Tag springen. das funktioniert auch so weit.
Wie bekomme ich es hin, dass der Curser nach ausführen des Codes das richtige Datum ansteuert, aber dann nicht in die Spalte A sondern in die Spalte C der entsprechenden Zeile springt ?

Danke mal
Jockel

  

Betrifft: AW: Springe zu aktuellem Datum von: Heiko S.
Geschrieben am: 24.01.2012 08:06:58

Moin Jockel,

Dim zelle
Set zelle = Worksheets("2012").Columns("A:A").Find(What:=Date)
zelle.Offset(0, 2).Select

Gruß Heiko


  

Betrifft: Vielen dank, funktioniert owT von: Jockel
Geschrieben am: 24.01.2012 09:05:05




Beiträge aus den Excel-Beispielen zum Thema "Springe zu aktuellem Datum"