ich möchte gern das der Text in die nächste freie Zelle geschrieben wird und gleichzeitig die dazugehörige Zeile eingeblendet wird. Kann mir jemand sagen wie das geht?
So jedenfalls nicht !
If CheckBox1 Then
Sheets("tabelle1").Activate
Range("a1020").End(xlUp).Offset(1).Select
Rows(1020).End(x1up).Offset(1).Hidden = False
ActiveCell.Value = "des reduzierten Allgemeinzustandes, durch:"
End If
Bitte Bitte helft mir
Gruß Basti