Habe eine Frage die wahrscheinlich simpel zu beantworten ist, ich komme aber leider selber nicht drauf.
Ich möchte in eine Spalte eines Sheets einen Monat(Jan,...) mit Jahr als Text eingeben. habe dazu folgenden Code:
Sub Datum()
Dim Monatseingabe As Integer 'Eine Zahl von 1 bis 12
Dim letzterwertE As Integer
Dim Datum As String
letzterwertE = Range("E100").End(xlUp).Row ' letzten Wert der Spalte bestimmen
Datum = Format(DateSerial(1, Monatseingabe, 1), "mmm") & " " & Format(Date, "yyyy")
Cells(letzterwertE + 1, 5).Value = Datum
End Sub
Ok. Beim Eintragen in meine Spalte wird der String aber mal als Datum und mal als Text übernommen ( obwohl Zellenformatierung der Spalte als Text), was schlecht ist, da ich die Werte aber sortieren muss. Wäre nett wenn mir einer weiterhelfen könnte
Schöne Grüße
AndiW