Monatsliste Jan, Feb, Mrz, ...
21.12.2008 16:44:17
Reinhard
wie erstelle ich per Vba diese Liste: Jan, Feb, Mrz,Apr,...
mit dem ersten Code, der zweite klappt ja.
Andersrum gefragt, wieso kürzt der Formatbefehl die Monate nicht wie gewünscht ab?
Im Archiv fand ich nichts.
Sub Kopf()
Dim N
For N = 1 To 12
Cells(N, 1) = Format(MonthName(N), "MMM")
Next N
End Sub
Sub Kopf2()
Dim N As Byte, M
M = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
For N = 0 To 11
Cells(N + 1, 1) = M(N)
Next N
End Sub
Gruß
Reinhard