Zeile samt checkbox kopieren
08.06.2004 12:23:01
ck
mit folgender anweisung will ich ein markierte zeile kopieren, um sie dann über der markierten einzufügen:
Private Sub aendern_Click()
ActiveSheet.Unprotect
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.PasteSpecial xlPasteAll
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub
aber irgendwie klappt es, dass sich die Zeile samt geschriebenen Inhalts kopiert und dann einfügt, aber die Steuerelemente bleiben unbeachtet. sie werden nicht mitkopiert.
Hat jemand eine Idee, woran das liegt oder was fehlt......
DANKE
Anzeige