Kommentare in CSV-Datei einlesen

Private Sub CommandButton3_Click()
Dim letztespalte As Integer
Dim letztezeile As Long
Dim j As Integer
Dim i As Long
Dim ausgabe As String
Dim datum As Date
datum = Now
letztespalte = ActiveSheet.UsedRange.Columns.Count
letztezeile = Cells(Rows.Count, 11).End(xlUp).Row
Open "D:\Lieferscheine\VVZähler" & " " & Date & ".csv" For Output As #1
For i = letztezeile To 2 Step -1
If Left(Cells(i, 11).Value, 2) = "VV" Then
ausgabe = Cells(i, 1)
For j = 2 To letztespalte
ausgabe = ausgabe & ", " & Cells(i, j)
Next
Print #1, ausgabe
End If
Next
Close #1
MsgBox "Die Daten wurden erfolgreich als CSV-Datei gespeichert!"
End Sub