Hallo,
ich habe zu dem Code noch eine Frage. Er funktioniert aber bei Zahlen die mit
2001-01/10
2001-01/20
2001-01/30
anfangen kommt leider ein falsches Ergebnis raus z.b
36901
10.02.2001
20.01.2001
20.02.2001
20.03.2001
30.01.2001
kann man den Code so abändern das er das Format bei behält ???
Der Code lautet:
Sub Makro()
Dim ArtDat As Variant
Dim Anzahl As Long
Dim Zeilen As Integer
ArtDat = Worksheets(1).Range("A1:B" & Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
For Anzahl = 2 To UBound(ArtDat)
For Zeilen = 1 To ArtDat(Anzahl, 2)
Worksheets("Lagerorte").Cells(Worksheets("Lagerorte").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = _
Mid(ArtDat(Anzahl, 1), 1, InStr(ArtDat(Anzahl, 1), "-")) & String(Len(Mid(ArtDat(Anzahl, 1), _
InStr(ArtDat(Anzahl, 1), "-") + 1, InStr(ArtDat(Anzahl, 1), "/") - InStr(ArtDat(Anzahl, 1), "-") _
- 1)) - Len(CStr(Zeilen)), "0") & Zeilen & Mid(ArtDat(Anzahl, 1), InStr(ArtDat(Anzahl, 1), "/"), Len(ArtDat(Anzahl, 1)))
Next Zeilen
Next Anzahl
End Sub
Danke
Gruß Thomas