CheckBoxen beim kopieren/einfügen mitnehmen
08.07.2014 21:10:18
Alex
Nun bin ich schon wieder da...
Hary hat mir einen echt tollen Tag beschert, in dem er mir waaaahnsinnig mit seinem Code geholfen hat!!
Nun war ich auf der Baustelle und habe den Kollegen Hary's Meisterwerk präsentiert. Sie waren begeistert!
Was ich nicht bedacht habe und leider auch noch als Problem geblieben ist, ist dass die Tabelle ja riesig ist. Nun habe ich ein kl. Makro versucht, welches beim Drücken eines Buttons gleich mehrere neue, leere Zeilen unter der letzt befüllten einfügt (10 bis 15 wären super!). Soweit so gut!
Nun kriege ich leider nur eine Zeile hin und die CheckBoxen kopiert er nicht :(
Gibt es hierfür eine Möglichkeit, dies zu lösen?
Hab das Internet durchgraben und bin leider auf keine Lösung gestoßen.
Vielen DANK schon mal!
Hier der Code zum erweitern der Tabelle:
Sub NeueZeile()
Dim Zeile As Long
With ActiveSheet
Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
Intersect(.Rows(Zeile - 1), .UsedRange).Copy
.Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormats
.Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Intersect(.Rows(Zeile), .UsedRange).SpecialCells(xlCellTypeConstants).ClearContents
End With
End Sub
Vielen DANK, Alex.