Makro in anderem Tabellenreiter ausführen
22.06.2016 14:56:51
Tamara
Hallo zusammen,
ich habe in Tabelle1 ein Makro eingestellt, dass die Inhalte aus mehreren Spalten in einer, der ersten, Spalte untereinander kopiert. Mit einem CommandButton in Tabelle1 kann ich das Makro problemlos ausführen.
Hier einmal das Makro:
Private Sub CommandButton1_Click()
Call Spalten_untereinander
End Sub
Sub Spalten_untereinander()
Dim QZeile As Long 'Zeile Quelle
Dim QSpalte As Long 'Spalte Quelle
Dim ZZeile As Long 'Zeile Ziel
ZZeile = 9 'Startzeile in der Zielspalte
For QSpalte = 2 To 32 'Spalte D bis H
For QZeile = 9 To 300
Cells(ZZeile, 1) = Cells(QZeile, QSpalte) 'die 9 ist Spalte I
ZZeile = ZZeile + 1
Next
Next
End Sub
Nun möchte ich jedoch dass das Makro von Tabelle2 aus gesteuert wird und nur im Hintergrund in Tabelle1 durchgeführt wird.
Daher habe ich in Tabelle2 einen CommandButton wie folgt eingestellt:
Private Sub cmd_aktualisieren_HF_Click()
Sheets("Backup_Handlungsfelder_Bezug").Select
Application.Run "Spalten_untereinander"
Sheets("Handlungsfelder").Select
Call Duplikate_entfernen
End Sub
Allerdings kommt bei der Ausführung folgende Fehlermeldung:
Laufzeitfehler '1004': Das Makro 'Spalten_untereinander" kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbetismappe nicht verfügbar, oder alle Makros wurden deaktiviert.
Vielen Dank im Voraus und viele Grüße