Gruß NATI
Gruß NATI
If monat = 1 Then
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 2 Then
vmonat = "Februar"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 3 Then
vmonat = "März"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 4 Then
vmonat = "April"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 5 Then
vmonat = "Mai"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 6 Then
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 7 Then
vmonat = "Juli"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 8 Then
vmonat = "August"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 9 Then
vmonat = "September"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 10 Then
vmonat = "Oktober"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 11 Then
vmonat = "November"
Sheets("Tabelle1").Cells(1, 3) = vmonat
ElseIf monat = 12 Then
vmonat = "Dezember"
Sheets("Tabelle1").Cells(1, 3) = vmonat
End If
Gruß Willie
Gruß
Simon
warum schreibst Du nicht einfach =MONAT(1) und formatierst das benutzerdefiniert mit MMMM oder, noch einfacher, formatier einfach die Zellen mit den Monatsangaben mit MMMM.
Gruss
Joachim
Holger
falls in A1 die Zahl für den Monat steht, dann kannst du folgende Formel verwenden:
=EDATUM(0;A1)
Gruß Harald