|
Ich probiere gewisse Zeilen mithilfe eines Active X Buttons kopieren und darunter wieder einzufügen. Das klappt bereits mittels diesem Code:
Mein Code den ich bereits habe:
Private Sub CommandButton1_Click()
Rows("12:14").Copy
CommandButton1.TopLeftCell.EntireRow.Insert
Application.CutCopyMode = False
End Sub
Nun möchte ich mehrere Buttons untereinander haben, die unterschiedliche Zeilen kopieren und wieder einfügen (also zb einmal Zeile 12-14, einmal Zeile 20-24). Natürlich verschiebt sich dann die Zeile (zB statt 20 ist es dann Zeile 23 die kopiert werden soll) wenn ich darüber etwas einfüge. Kann man das irgendwie fixieren, dass das mit runterrutscht und immer dieselben Zeile (nur jetzt mit anderer Nummerierung) kopiert werden?
Außerdem möchte ich die kopierte Zeile ausblenden. Die Zeile, die dann eingefügt wird, wird aber dann auch automatisch ausgeblendet eingefügt. Kann man das ändern, dass es die eingefügte Zeile dann automatisch einblendet beim Einfügen ?
Außerdem wäre es toll wenn man einen zusätzlichen Active-X Button innerhalb der Zeile, die man kopieren möchte, auch mitkopieren kann.
Kann mir jemand dabei helfen?
|