Hallo zusammen,
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