Hallo Julia,
falls das Anliegen noch nicht geöst sein sollte, kann eventuell dieser Code helfen:
Sub CopyAndPaste()
Dim wsh As Worksheet
Set wsh = ActiveSheet
wsh.Rows("6:6").Copy
wsh.Rows("7:7").Select
wsh.Paste
End Sub
Ich gehe davon aus, dass es sich bei den Dropdownlisten um Eingabebeschränkungen handelt.
Bei den Checkboxen können diese auf zwei Arten erstellt werden:
-
Formularsteuerelement
-
Active-X Steuerelement
Beim Kopieren werden diese nicht mit kopiert.
Checkboxen können mit diesem Befehl neu erstellt werden:
ActiveSheet.CheckBoxes.Add(303, 75.75, 58.5, 17.25).Select
LG, BigBen
|