ich habe diese Formel unten, und jetzt brauche ich ein Tipp, wie ich NUR die "11", d.h. der Monat auslesen und in der variable monat festlegen kann.
monat = Left(datumFind.Offset(datum, 0).Value, 2)
Sub MonatExtrahieren()
Dim monat
'Wenn A1 als Datum formatiert ist
monat = Month([a1])
'wenn A1 als Text formatziert ist
monat = Mid([a1], 4, 2)
End Sub