Tabellen mit Schaltflächen kopieren
03.06.2014 12:59:29
Berni
Ich habe folgendes Problem!
In einer Tabelle habe ich mir ein Muster mit Jahressummen, Gruppierungen und diversen Schaltflächen eingerichtet, damit ich von dort immer zur Tabellen (Auftrags-)übersicht springen kann. Nun wäre es natürlich fein, diese Tabelle auf die folgenden 40 Tabellen zu kopieren, welche ich dann wieder konsolidieren könnte.
Ich habe mir dazu einen kleinen Code geschrieben.
Sub Copy()
Dim Blatt As Worksheet
Dim i As Integer
Sheets("5071103").Activate
Cells.Select
Selection.Copy
For i = 4 To Worksheets.Count
Cells.Select
ActiveSheet.Buttons.Add(22.5, 717.75, 89.25, 14.25).Select
ActiveSheet.Buttons.Add(19.5, 42, 204, 24).Select
ActiveSheet.Buttons.Add(231, 42, 141.75, 24).Select
ActiveSheet.Paste
Gruppieren
Next i
End Sub
Wo könnte hier der Fehler liegen?
Vielleicht hat jemand eine Idee?
Danke vorerst und
LG Berni
Anzeige