Combobox - Makro und Tabellenblätter ansteuern
04.07.2018 13:11:08
Ulrich
Hallo liebe Experten,
ich habe folgenden VBA-Code in meinem Tabellenblatt:
Private Sub ComboBox1_Change()
' keinen Code ausführen, wenn das Obkejt keine Auswahl hat
If ComboBox1.ListIndex = -1 Then Exit Sub
' keinen Code ausführen, wenn aktuell ein anderes Blatt aktiv ist
If ActiveSheet.Name "§ 85 Abs. 1 BSHG" Then Exit Sub
' "Tabelle1" muss jeweils an den Blattnamen angepasst werden
'bei Fehler kein Abbruch
On Error Resume Next
'eine Zelle markieren: Hier D2
[A1].Select
' zu aktivierendes Blatt steht in diesem Beispiel in Zelle q3
blatt = [Q3].Value
'Objekt zurücksetzen
Application.EnableEvents = False
ComboBox1.ListIndex = -1
Application.EnableEvents = True
'Blatt, das q3 vorgibt, auswählen
Sheets(blatt).Select
End Sub
In jedem Tabellenblatt habe ich dann eine Tabelle mit den einzelnen Registerkarten und Makronamen (quasi eine Menüführung). Die Combobox steuert dann mit folgendem Befehl die jeweiligen Tabellenblätter bzw. Makros an:
=WENN(ISTFEHLER(SVERWEIS(P3;N3:O18;2;FALSCH));"Menü";SVERWEIS(P3;N3:O14;2;FALSCH))
den o.g. VBA-Code habe ich erweitert, damit nicht nur Tabellenblätter ausgewählt, sondern auch Makros ausgeführt werden.
Application.Run "ausdrucken"
Damit sollte eigentlich das Makro "ausdrucken" gestartet werden. Funktioniert aber nicht.
Weiß jemand, warum das so ist? Soll ich eine Datei dazu hochladen?
lg
Uli