VisualBasic Excel VBA Zellen ignorieren

[!n$t!nct]

Hallo, ich habe folgendes VBA Skript:

Sub SaveCSV_a()
Dim a As Variant
Dim b() As String
Dim D() As String
Dim Z As Long
Dim S As Byte
Dim R As Long
Dim C As Byte

Const Path As String = "D:\"
'Dateiname eintragen
Dim filename As String
Dim Jetzt As Date
Jetzt = Now()
datum = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
zeit = datum & "_" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt), "00") & Format(Second(Jetzt), "00")
filename = "export_csv_" & zeit
'Dateiendung anpassen (.txt, .csv oder andere)
Const Extension As String = ".txt"
'Trennzeichen anpassen (Semikolon, Komma oder andere)
Const Separator As String = ","
'Texerkennungszeichen anpassen (kann meist so bleiben)
Const Wrapper As String = """"

'Zu speichernden Bereich eintragen z.B:
'Worksheet("DeinTabellenblatt").UsedRange
'Worksheet("DeinTabellenblatt").Range ("A2:B10")

a = ActiveSheet.UsedRange

If Not IsEmpty(a) Then
Z = UBound(a, 1)
S = UBound(a, 2)
ReDim b(S - 1)
ReDim D(Z - 1)
For R = 1 To Z
For C = 1 To S
If InStr(1, a(R, C), Separator) > 0 Then
'Rows whith cells including the Separator
'put in Wrapper
b(C - 1) = Wrapper & a(R, C) & Wrapper
Else
b(C - 1) = a(R, C)
End If
Next C
D(R - 1) = Join(b(), Separator)
Next R
Open Path & filename & Extension For Output As #1
Print #1, Join(D(), vbCrLf)
msg = MsgBox("Datei wurde unter " & (Path & filename & Extension) & " gespeichert")

Close #1
End If
End Sub

Damit ist es mir möglich aus der Tabelle bestimmte Informationen als CSV-Datei zu speichern. Nun möchte, dass das Skript die CSV-Datei speichert, dabei jedoch die 1. Zeile (Zellen - A1 bis CH1) ignoriert und nur ab "A2" alles in die die CSV-Datei schreibt.
Ist das überhaupt möglich?

Bitte um Hilfe. Danke schonmal.

Gruß !n$t!nct

 

[ICH_BIN_LETZTER]

Hast du deine Range auch festgelegt, so wie es aussieht die anweisung nämlich auskommentiert...

btw... Ja ich weiß es ist mehr Schreibarbeit, aber für andere ist dein Code echt schwer lesbar. Stichwort: Einrückungen und Variablennamen (sollten bissl aussagekräftiger sein )

 

[Marjoker]

so im schnellen überfliegen, würd ich sagen:

die Zeile: For R = 1 To Z
R könnte wohl für "Row" stehen, sollte bei 2 beginnen.

Ist aber wie Vorredner sagte schwer zu lesen.

 

[!n$t!nct]

Sry für den unübersichtlichen Code und danke für die Antworten. Spezieller Dank gilt Marjoker - damit hat es funktioniert.

Gruß !n$t!nct