AW: Hast du mal eine Musterdatei?
23.06.2016 10:46:13
Silvi
Hallo Uwe,
das sieht schonmal super aus und klappt auch in der Beispieldatei, aber nicht in der richtigen Datei. Das Makro bleibt immer hängen bei "Z.Value = DateValue(Z.Value)"
Habe mir ein Makro selbst gebastelt und zusammen gestückelt, wahrscheinlich gibt es da irgendwo einen Konflikt... Kannst du mir sagen, wo der Fehler liegt?
Kann leider keine Makros selber schreiben, nur aufzeichnen.
Danke Dir schonmal!
Silvi
Sub Umformatieren_Wochenplanung_aus_Text()
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(38, 1), Array(64, 1), Array(77, 1), _
Array(92, 1), Array(103, 1), Array(116, 1), Array(129, 1), Array(142, 1), Array(155, 1), _
_
Array(168, 1), Array(181, 1), Array(194, 1)), TrailingMinusNumbers:=True
Rows("1:8").Select
Selection.Delete Shift:=xlUp
Rows("3:1000").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim loeschen As Double
For loeschen = Cells(Rows.Count, 1).End(xlUp).row To 1 Step -1
If Cells(loeschen, 1).Value = "-------" Then
Rows(loeschen).Delete
End If
Next loeschen
Dim lngRow
lngRow = Range("L1").End(xlDown).row
Rows(lngRow + 1 & ":10000").Delete
Dim Z
For Each Z In ActiveSheet.Range("F2:M2")
Z.Value = DateValue(Z.Value) Z.NumberFormat = "m/d/yyyy"
Next
ActiveWorkbook.SaveAs Filename:= _
"H:\Dateiname.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub