Office: (Office 2013) erste leere Zeile in Spalte B ab Zeile 8 finden

Hallo, ich möchte Daten über ein userform abhängig von kontrollkästchen in eine Tabelle schreiben.

Das verteilen funktioniert soweit. Nur schreibt mir das Script di Daten immer nur in Zeile 8.
Es sollte aber in B9 schreiben wenn in B8 was drin steht. Derzeit wird überschrieben.

Wo ist mein Fehler?

Code:

Private Sub CommandButtonUebertragen_Click()
Dim erste_freie_Zeile As Integer
erste_freie_Zeile = Sheets("TVKonto").Range("B8:B200").End(xlUp).Offset(1, 0).Row
If CheckBoxEinnahme.Value = True Then
Sheets("TVKonto").Cells(erste_freie_Zeile, 2) = CDate(TextBoxDatum.Text)
Sheets("TVKonto").Cells(erste_freie_Zeile, 3) = Format(TextBoxBeleg.Text)
Sheets("TVKonto").Cells(erste_freie_Zeile, 4) = Format(TextBoxBetrag.Text, "#,##0.00 €")
Sheets("TVKonto").Cells(erste_freie_Zeile, 7) = ComboBoxKostenstelle.Text
Unload Me
ElseIf CheckBoxAusgabe.Value = True Then
Sheets("TVKonto").Cells(erste_freie_Zeile, 2) = CDate(TextBoxDatum.Text)
Sheets("TVKonto").Cells(erste_freie_Zeile, 5) = Format(TextBoxBeleg.Text)
Sheets("TVKonto").Cells(erste_freie_Zeile, 6) = Format(TextBoxBetrag.Text, "#,##0.00 €")
Sheets("TVKonto").Cells(erste_freie_Zeile, 7) = ComboBoxKostenstelle.Text
Unload Me
Else
MsgBox "Bitte Eintragsart auswählen"
End If
End Sub

Gruß Markus

 

Hallo

vielleicht so?

Code:

erste_freie_Zeile = Sheets("TVKonto").Range("B200").End(xlUp).Offset(1, 0).Row
If erste_freie_Zeile < 8 Then erste_freie_Zeile = 8

MfG Tom

 

ja, so geht es.

Vielen Dank

 

Hallo Markus,

oder auch so
erste_freie_Zeile = Sheets("TVKonto").Cells(Rows.Count, 1).End(xlUp).Row+1

Gruß,
Lutz