Supportnet / Forum / Tabellenkalkulation
Alternative Menüfunktionen
Frage
Hallo Forum,
ich habe in ein Arbeitsblatt in eigenes Menü eingebaut. Nun möchte ich beim Abrufen der Menüfunktion "Sortieren", in Abhängigkeit von dem jeweils aktiven Tabellenblatt, unterschiedliche Makros ausführen.
Das verwendete VBA-Makro, bei dessen Aufruf bisher immer das gleiche Makro aufgerufen wird, sieht u.a. so aus: [code]
With MB
.Caption = _
"Sortieren"
.OnAction = "Sortieren_1"
[/code]
Was ich erreichen möchte ist, dass beim Abrufen der Menüfunktion "Sortieren"
bei aktivem "Tabellenblatt_1" das Makro Sortieren_1,
bei aktivem "Tabellenblatt_2" das Makro Sortieren_2
bei aktivem "Tabellenblatt_3" das Makro Sortieren_3 usw.
aufgerufen wird.
Kann man das in dem .OnAction-Parameter definieren oder
gibt es eine andere Lösungsmöglichkeit?
Danke für jede Hilfe
daniel
Antwort 1 von Arno_Nym
Ich würde es andersrum angehen, nämlich nur ein Makro verwenden (OnAction zuweisen) und in diesem Makro dann mittels Abfrage der Tabelle verzweigen...
Also ungefähr so:
Arno
Also ungefähr so:
Sub Sortieren_Makro()
If ActiveSheet.Name = "Tabelle1" Then
blabla...
End If
If ActiveSheet.Name = "Tabelle2" Then
blabla...
End If
If ActiveSheet.Name = "Tabelle3" Then
blabla...
End If
End Sub
Arno
Antwort 2 von danielG
@Arno,
danke für den Tip, hab's so gemacht wie vorgeschlagen und es läuft wie gewünscht.
Gruss
daniel
danke für den Tip, hab's so gemacht wie vorgeschlagen und es läuft wie gewünscht.
Gruss
daniel

