VBA akt. Datum suchen in mehreren Registern
09.12.2005 12:24:57
Horst
habe eine Routine für's Datumsuchen gefunden. Wie muss es abgeändert werden, damit eine ganze Mappe mit sheet1 bis 12 (einzelne Monate) durchsucht wird. Mit alle sheets aktivieren bin ich weiter gekommen. Wer hilft mir bitte?
Sub go_auto_today()
Application.ScreenUpdating = False
For Each a In ActiveSheet.Range("O2:BX2") 'Bereich des Datums
If a = Date Then
Spalte = a.Column
Exit For
End If
Next
On Error Resume Next
Application.Goto ActiveSheet.Cells(2, Spalte), True
If Err.Number <> 0 Then
Msgbox ("Das aktuelle Datum (HEUTE) wurde nicht gefunden.")
End If
Application.ScreenUpdating = True
End Sub
Danke und Gruß
Horst
Anzeige