|
Hallo,
ich hoffe es kann mir einer helfen.
ich habe eine Excelliste mit mehreren Spalten und 2500 Zeilen
Ziel ist es jede Spalte jeder Zeile in ein neues Blatt mit kommas getrennt abzulegen und als CSV Datei abzuspeichern
Erstellt wurde das Makro unter Excel 2007. Hier läuft es einwandfrei
In Excel 2013 oder 2016 läuft es weder über eine Tastenkombination noch über einen konfigurierten Commnd Button. Excel bleibt direkt hängen
Wenn ich jedoch das Makro zur Bearbeitung öffne und es über den Play Button starte, läuft es so wie es soll.
Hier der CODE:
Sub Export()
Dim wert, a, b, c
Worksheets("EXP").Rows("1:65536").Delete Shift:=xlUp
c = ActiveWorkbook.Path
b = 2
For a = 20 To 10000 'je nach länge der liste
wert = Cells(a, 9) 'wenn wert in spalte I
If wert <> "" Then
Worksheets("DP").Cells(a, 12).Copy
Worksheets("EXP").Cells(b, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("DP").Range(Cells(a, 9), Cells(a, 11)).Copy
Worksheets("EXP").Cells(b, 2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
b = b + 1
End If
Next a
Sheets("EXP").Copy
ActiveWorkbook.SaveAs Filename:= _
c & "\ Export.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("DP").Select
End Sub
Kann sich einer erklären, warum? Bzw wie kann ich das Problem lösen?
|