ich möchte gern in einem bestimmten Bereich Zellen über 3 Textboxen und einer Checkbox füllen lassen. Der bereich der gefüllt werden soll ist f6:bc9. Es soll quasi nur in diesem bereich die erste leere Zeile gefunden werden. Was muss ich ändern damit nur in diesem Bereich danach gesucht wird?
Code bisher:
Private Sub CommandButton1_Click()
Dim WkSh As Worksheet
Dim endzeile As Long
Set WkSh = Worksheets("Tabelle1") 'Zuordnung der Adressen-Tabelle
endzeile = WkSh.UsedRange.Columns.Count ' findet die letzte verwendete Zelle.
' Leerzellen dawzischen werden nicht berücksichtigt.
WkSh.Cells(6, endzeile + 1) = TextBox1
WkSh.Cells(7, endzeile + 1) = TextBox2
WkSh.Cells(8, endzeile + 1) = TextBox3
WkSh.Cells(9, endzeile + 1) = CheckBox1
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
CheckBox1 = False
End Sub
Danke und grüß