Thema: Postleitzahl vom Ort trennen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call Loeschen
End Sub

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call NeueSymbolleiste
End Sub

Private Sub CommandButton2_Click()
    Call Loeschen
End Sub

StandardModule: basMain

Sub NeueSymbolleiste()
   Dim oBar As CommandBar
   Set oBar = Application.CommandBars.Add( _
      Name:="MyCommandbar", _
      MenuBar:=False, _
      temporary:=True)
   With oBar
     .Left = 50
     .Top = 100
     .Visible = True
   End With
End Sub

Sub Loeschen()
   On Error Resume Next
   Application.CommandBars("MyCommandbar").Delete
   On Error GoTo 0
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und LINKS