Option Explicit
Sub Ralf()
Dim Deine_variable As String
Deine_variable = "März"
MsgBox Month(CDate("1." & Deine_variable & ".2007"))
End Sub
AW: aus Monatsnamen die Monatszahl ermitteln
04.03.2008 16:20:57
ralf
Danke Hajo
AW: aus Monatsnamen die Monatszahl ermitteln
04.03.2008 16:17:00
Holger
Hallo Ralf,
a = InputBox("Monat")
For i = 1 To 12: If a = MonthName(i) Or a = MonthName(i, True) Then Exit For
Next i
If i = 13 Then MsgBox "Kein gültiger Monatsname"
Gruß
Holger