kann man das unten stehenden Modul so abändern, dass ausser dem Format: TT.MM.JJJJ, auch das Format: TTT. TT.MM.JJJJ zum laufen zu bringen? Wenn ja, kann mir dann bitte jemand bei der Korrektur des Moduls, behilflich sein?
Sub Monatsanfang()
'Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRow As Long
Dim d As Variant
Dim Datum1, Jahr1, Monat1
Monat1 = Month(Date)
Jahr1 = Year(Date)
Datum1 = DateSerial(Jahr1, Monat1, 1)
For Each wks In Worksheets
If wks.Name Like "MA#*" Then
Set d = wks.Columns(1).Find(What:=Datum1, LookIn:=xlValues, LookAt:=xlWhole)
If Not d Is Nothing Then
iRow = d(1, 1).Row
Application.GoTo wks.Cells(iRow, 1), True
Else
MsgBox "Nix gefunden"
End If
End If
Next wks
Danke im voraus
Gruß Josef