Sub
Kontrollkästchen9_Klicken()
ActiveCell.EntireRow.
Select
Selection.Cut
If
Kontrollkästchen9 =
False
Then
Sheets(
"Tabelle2"
).Activate
Range(Cells(4, 1), Cells(4, 1)).
Select
Selection.Insert
Else
Sheets(
"Tabelle1"
).Activate
Range(Cells(2, 1), Cells(2, 1)).
Select
Selection.Insert
End
If
End
Sub
Selection.insert ist wohl der Fehler