Morgen ihr Götter hinter den Bildschirmen;)
habe folgendes Problem habe eine Spalte mit Datumsangaben in dd.mm.yyyy Format und möchte daraus den Monat für jede Zelle herauslesen .
Für einzelne Zellen klappt das aber bei meinem kurios zusammengeflickten code macht er aus Oktober immer Dezember
hier der Code:
Dim my_month As String
Dim my_date As Date
Dim i As Long
On Error Resume Next ´ zählt die anzahl der beschriebenen zellen
With ActiveSheet
.Range("A1").Select
Anzahl = .Columns("A").SpecialCells(xlCellTypeFormulas, 23).Count
Anzahl = Anzahl + .Columns("A").SpecialCells(xlCellTypeConstants, 23).Count - 1
End With
For i = 2 To Anzahl ´soll ab der ersten zelle nach der überschrift beginnen
my_date = Range("Ai")
my_month = Format(my_date, "mmmm")
wäre für Hinweise dankbar
gruß Tomitulpe |