füge den Code in einem eigenen Modul ein.
(Einfügen -> Modul --> Code reinkopieren --> abspeichern unter xbeliebigem Namen)
Nachdem du die Daten eingelesen hast kannst du dann die Funktion CopyData() aufrufen. Also einfach danch die Zeile "CopyData()" einfügen.
Oder vielleicht besser für deinen Zweck:
Erstelle ein Modul und kopier den Code 3 mal rein, dann benennst du die Funktionen um in CopyData2(), CopyData3() und CopyData4().
Nun kannst du drei Buttons auf der Tabelle erstellen (Rechteck zeichnen) und dann rechtsklick "Makro zuweisen..." und "Neu" klicken. Dort fügst du dann den jeweiligen Funktionsnamen ein. Sollte dann etwa so aussehen:
1 2 3 | Sub Rechteck1_Klicken()
CopyData2
End Sub
|
|