Ich fülle ein Tabellenblatt (eine Rechnung) mit einer For Schleife aus einem Userform Modul heraus. Das Dient dazu das sich die Userform über die Schleife freie Zeilen Sucht und anschließen seine Daten weitergibt. In der Userform sind jeweils 2 Zeilen Headline und 6 Zeilen mögliche Posten. Über der ersten Headline sollen aber bei jedem neuen Tag eine Zeile leer gelassen werden. Aber diese eine Zeile wird dann von den anderen Posten benutzt und ausgefüllt. Wie kann ich diesem For Befehl beibringen, das er mir erst ab der ersten Headline Zeile zum zählen anfangen soll? Anbei Code:
Private Sub CommandButton1_Click()
Dim Lnr As Double
'******************Zeile in Rechnung****************************************
' Überprüfung ob im Bereich LNR eine freie Zeile ist und wenn ja, dann dort eintragen
' Headline 1
For Lnr = 25 To 334
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr + 1, 1) = TextBox1.Text
Sheets("Tabelle1").Cells(Lnr, 1) = Lnr
Exit For
End If
Next Lnr
' Headline 2
For Lnr = 25 To 334
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox2.Text
Exit For
End If
Next Lnr
'Posten 1
For Lnr = 25 To 334 Step 3
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox3.Text
Sheets("Tabelle1").Cells(Lnr, 2) = ComboBox1.Text
Exit For
End If
Next Lnr
'Posten 2
For Lnr = 25 To 334 Step 3
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox4.Text
Sheets("Tabelle1").Cells(Lnr, 2) = ComboBox2.Text
Exit For
End If
Next Lnr
'Posten 3
For Lnr = 25 To 334
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox5.Text
Sheets("Tabelle1").Cells(Lnr, 2) = ComboBox3.Text
Sheets("Tabelle1").Cells(Lnr, 1) = Lnr
Exit For
End If
Next Lnr
'Posten 4
For Lnr = 25 To 334
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox6.Text
Sheets("Tabelle1").Cells(Lnr, 2) = ComboBox4.Text
Sheets("Tabelle1").Cells(Lnr, 1) = Lnr
Exit For
End If
Next Lnr
'Posten 5
For Lnr = 25 To 334
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox7.Text
Sheets("Tabelle1").Cells(Lnr, 2) = ComboBox5.Text
Exit For
End If
Next Lnr
'Posten 6
For Lnr = 25 To 334
If Sheets("Tabelle1").Cells(Lnr, 1) = "" Then
Sheets("Tabelle1").Cells(Lnr, 1) = TextBox8.Text
Sheets("Tabelle1").Cells(Lnr, 2) = ComboBox6.Text
Exit For
End If
Next Lnr
End Sub