Tabellenblatt samt Makro kopieren

Hallo ihr Guten,
es gibt bereits zu diesem Thema einige Beiträge, aber mein Anliegen ist in einer kleinen Feinheit anders.
Ich habe ein Makro für ein Tabellenblatt geschrieben, der sich auf eine Tabelle mit dem Namen "Tabelle3" bezieht: Hier soll die erste Zeile der Tabelle3 mit einem Makro hinzugefügt und mit einem anderen Makro gelöscht werden (per Klick auf ein Button).
Nun ist das Problem folgendes: Wenn ich dieses Tabellenblatt kopieren möchte (mit einem Makro) stimmen im neuen Tabellenblatt die "Bezüge" nicht mehr, da sich die Makros auf Tabelle3 beziehen.
Folgender Code ist in der Ursprungstabelle geschrieben:


Sub Makro15()
Range("Tabelle3[Fertigungsstoffe 2]").Select
Selection.ListObject.ListRows.Add (1)
End Sub



Sub Makro16()

Range("Tabelle3[Fertigungsstoffe 2]").Select

Selection.ListObject.ListRows(1).Delete

End Sub

Code für das Kopieren des Tabellenblattes:


Sub Makro24()
Sheets("Art. 3").Select
ActiveSheet.Buttons.Add(15, 89.25, 15.75, 14.25).Select
ActiveSheet.Buttons.Add(33, 88.5, 17.25, 13.5).Select
ActiveSheet.Buttons.Add(10.5, 258.75, 13.5, 10.5).Select
ActiveSheet.Buttons.Add(26.25, 257.25, 18, 12.75).Select
ActiveSheet.Buttons.Add(257.25, 522.75, 40.5, 26.25).Select
Sheets("Art. 3").Copy Before:=Sheets(4)
End Sub

Sofort kommt der folgende Fehler:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler

Hallo Leo
ich denke mit etwas Hilfe wirst du das Problem selbst lösen, nur Mut zum experimentieren. So lernt man VBA!
zunechst ist dieser Ausdruck rein logisch falsch, normaler Anfaengerfehler:
ActiveSheet.Range("Tabelle3").Select
Selection.ListObject.ListRows(1).Delete
Active Shteet ist immer das Aktive Blatt, und Select dahinter aktiviert genau dieses Blatt! - (Was Unsinnig ist, es ist ja bereits aktıv!)
Range("Tabelle3") ist völlig falsch, denn Range bezieht sich immer auf Spalten und Zeilen, nicht auf eine Tabelle!!!
ActiveSheet.Range("A1:B25") ist z.B. ein korrekt definierter Bereich. Ein Tabellen Name gehört da -NICHT- hin!!
Fasse obigen Code wie folgt zusammen:
Worksheets("Tabelle3").ListObject.ListRows(1).Delete
Dieser Code funktionier auch dann, wenn dein Aktives Blatt Tabelle1 ist. VBA haelt sich exakt an die obige Anweisung!
Und die besagt eindeutig was in Tabelle3 zu tun ist, -OHNE- diese vorher zu aktivieren!
Wir Programmierer verzichten auf Select, zeichnen uns auch Codes mit dem Makro Recorder auf, wei es so schön einfach ist. Doch dann "bereinigen" wir den Code indem wir Alle Select Anweisungen so weit wie möglich zusammenziehen. Select und Selection dahinter kann man direkt zusammenschreiben! Die Arbeit machen wirt uns auch. Der Code ist dann viel eleganter und weniger störanfaellig.
Alles nur eine Gewöhnungs- und Übungssache. Keine Sorge, diese Feinheiten kommen mit der -Praxis-
Ich habe mehrere Jahre dafür gebraucht. Dann wird es zur Routine.
Bereinige deine vorhanden Codes bitte mal auf die Art und Weise, und schau ob sie dann funktionieren.
Ich warte mal das Erbegnis ab ...
mfg Piet

Tabellenblatt samt Makro kopieren

Forumthread: Tabellenblatt samt Makro kopieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial