erste freie Zeile im defin. Bereich
21.04.2020 20:16:00
Kaiser
ich wende mich an euch, da ich gerade ein Problem habe.
Ich möchte in einem definierten Bereich, die erste freie Zelle befüllen. Das heißt, der Bereich ist beispielsweise "A10:A20".
Nun habe ich eine Checkbox in einer UserForm. Durch das Anklicken der Checkbox, soll die Caption in den freien Zellen eingelesen werden. Die Caption soll in die nächste freie Zelle eingelesen werden, bis z.B. der Bereich voll ist.
Der Code zeigt keine Fehlermeldung, aber führt auch keinen Befehl aus..
Mein bisheriger Code sieht wie folgt aus:
Sub CommandButton1_Click()
Dim Ber As Range
Dim Zel As Range
Dim i As Integer
i = Worksheets("Ausgabetabelle").Cells(Rows.Count, 1).End(xlUp).Row + 1
Set Ber = Worksheets("tabelle").Range("A10:A20")
For Each Zel In Ber
If CheckBox1.Value = True Then
Worksheets("tabelle").Cells(i, 1).Value = CheckBox1.Caption
End If
Next
End Sub