Daten in CSV-Datei speichern

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