aus Januar mach Jan

Question

Hallo,

hat jemand einen Code um aus der string-Variablen "Januar" nur "Jan" zu machen. Habe es mit Format("Januar","MMM") probiert, klappt aber nicht.
Gruß

Answer 1

Hallo Rainer,

habs ausprobiert, funktioniert einwandfrei, ist halt ein kleiner Umweg.

Ich hatte wirklich gehofft, dass es für den Excel-Befehl
=TEXT(1&A1;"MMM") (A1= Januar, usw.)
eine einfache "Übersetzung" in einen Code gibt, weil das so prima funzt.
Vielen Dank und einen schönen Fußballabend.
Andreas

Answer 2

Hallo Andreas,

ergänzend zu meinem letzten Vorschlag noch eine Variante bei der die Monate, wie von Dir gewollt, in Textformat vorliegen.

Sub test()
Dim rngC As Range, strMon As String
For Each rngC In Range("A1:L1")
If rngC.Value = "März" Then
strMon = "Mrz"
Else
strMon = Left(rngC.Value, 3)
End If
rngC.Offset(1, 0).Value = " VT-" & Year(Date) & "-" & strMon
Next
End Sub

Gruß
Rainer

Answer 3

Hallo Rainer,
Danke, das ist noch besser!
Gruß Andreas

Answer 4

Oder:

Monat = Format(CDate("1." & [C1]), "MMM")

wobei in C1 z.B. der März steht. Klappt auch mit anderen Monaten.

Answer 5

...das ist noch besser, weil ich da um die Jahreszahl herumkomme! Prima und Danke.