Zelle mit akt. Tagesdatum finden.Makro siehe unten
Gunter
eine gute Seele hat mir mal auf diesem Weg folgenden Makro übermittelt:
Sub go_auto_today()
Application.ScreenUpdating = False
For Each a In ActiveSheet.Range("B4:FZ4") 'Bereich des Datums
If a = Date Then
Spalte = a.Column
Exit For
End If
Next
On Error Resume Next
Application.Goto ActiveSheet.Cells(4, Spalte), True
If Err.Number > 0 Then
MsgBox ("Das aktuelle Datum (HEUTE) wurde nicht gefunden.")
End If
Application.ScreenUpdating = True
End Sub
Nun habe ich eine neue Datei, in der die Datumszellen nicht in einer Reihe nebeneinander stehen, sondern in einer Spalte untereinander. Kann mir jemand das
Makro umschreiben. Alleine mit dem Ändern des Bereichs, ist es ja wohl nicht getan.
Danke Gunter