zu Zelle springen
22.10.2017 10:40:59
Martin
in meiner Tabelle steht oben 365 Zellen, für jeden Tag des Jahres eine. Ich möchte, dass beim Öffnen der Datei das aktuelle Datum "angesteuert" wird. Dafür habe ich folgendes Makro:
Dim i As Long
For i = 1 To 365
If Sheets("Krankentage").Cells(5, i + 4) = Date Then Sheets("Krankentage").Cells(5, i + 4).Select
Next
Das richtige Datum wird zwar gefunden aber nicht gleicht angezeigt. Ich möchte, dass die entsprechende Zelle angezeigt wird und zwar ohne dorthin scrollen zu müssen. Hat jemand eine Idee?
Vielen dank
Martin