Hallo!
Ich verwende ein Excel-Makro zum Exportieren gewisser Spalten nach csv.
Bei diesem würde ich nun gerne jene Zeilen überspringen, die in der Spalte 34 den Wert 0 haben.
Kann mir hier jemand weiterhelfen?
So sieht mein bisheriges Makro aus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wert As String
Dim pfad As String
Dim txtfile As String
pfad = „…“
txtfile = pfad & „output.csv“
Open txtfile For Output As #1
i = 2
Do While Cells(i, 2).Value „“
Print #1, Cells(i, 1) & „;“ & Cells(i, 2) & „;“ & Cells(i, 3) & „;“ & Cells(i, 4) & „;“ & Cells(i, 5) & „;“ & Cells(i, 6) & „;“ & Cells(i, 34) & „;“ & Cells(i, 35) & „;“ & Cells(i, 36)
i = i + 1
Loop
Close
End Sub
Besten Dank!
Becka