Zum Abschluss sollte die Symbolleiste Personalrecherche beim Öffnen und Schließen der Mappe automatisch ein- und ausgeblendet werden. Dazu bieten sich die beiden zwei Ereignisprozeduren Open- und BeforeClose an.

Dazu sehen Sie sich den Code der aktuellen Arbeitsmappe an, vgl. Punkt "Daten beim Öffnen der Exceldatei automatisch aktualisieren".

In die vorbereiteten Prozeduren brauchen nur die Anweisungen zum Einblenden bzw. Ausblenden der Symbolleiste Personalrecherche eingefügt zu werden.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_Open()

Sheets("Tabelle1").Select

Range("A3").Select

Selection.QueryTable.Refresh BackgroundQuery:=False

End Sub

Zeichnen Sie die zwei folgenden Aktionen als Makro auf:

"Ansicht" - "Symbolleisten" Klick auf Personalrecherch, blendet diese Symbolleiste ein.

"Ansicht" - "Symbolleisten" Klick auf Personalrecherch, blendet diese Symbolleiste aus.

Vergessen Sie nicht, jetzt die Aufzeichnung zu beenden!

Das Ergebnis ohne Kommentare:

Sub Makro1()

Application.CommandBars("Personalrecherche").Visible = True

Application.CommandBars("Personalrecherche").Visible = False

End Sub

Das Application-Objekt enthält eine Auflistung CommandBars. In dieser Auflistung aller Excel-Symbolleisten liefert der Index "Personalrecherche" eben diese Symbolleiste.

Jede Symbolleiste besitzt die Eigenschaft Visible. Der zugeordnete Wert True oder False macht die Symbolleiste sichtbar oder nicht.

Nun muss nur jeweils eine der Anweisungen in die Ereignisprozeduren kopiert werden.

Das Ergebnis

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.CommandBars("Personalrecherche").Visible = False

End Sub

Private Sub Workbook_Open()

Sheets("Tabelle1").Select

Range("A3").Select

Selection.QueryTable.Refresh BackgroundQuery:=False

Application.CommandBars("Personalrecherche").Visible = True

End Sub

Die aufgezeichnete Prozedur kann gelöscht werden. Wenn die Prozedur auf einem neuen Modul aufgezeichnet wurde, können Sie gleich das gesamte Modul entfernen durch Klicken mit der rechten Maustaste auf den betreffenden Modulnamen im Projektfenster und "Entfernen von Modul ..." wählen.

Die Frage, ob das Modul vor dem Entfernen exportiert werden soll, beantworten Sie durch Klick auf "Nein".

Schließen Sie die Mappe Mitarbeiter.xls mit Speichern. Die Symbolleiste dürfte nicht mehr zu sehen sein.

Öffnen von Mitarbeiter.xls macht sie wieder sichtbar.