Register Name Jan 07 anstelle von 01.01.2007
17.02.2007 17:55:06
01.01.2007
Im Tabellenblat1 ab A1 stehen die Eintäge Jan 07, Feb 07 usw. im Format MMM JJ
Mit folgendem Makro werden die Tabellenblätter eingefügt und Beschriftet nach A1 Tabelle1
Sub Makro1()
Dim Zelle As Range
For Each Zelle In Sheets("Tabelle1").Range("A1").CurrentRegion
Sheets("Tabelle1").Copy after:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Zelle.Value
Next
End Sub
Register heissen aber nun nicht Jan 07, Feb 07 sonder es steht immer 01.01.2007 usw.
Wie muss der Code ergänzt werden das er mir auch Jan 07 usw. schreibt.
Gruss
Heinzel
Anzeige