Gruppe
Funktion
Bereich
LINKS
Thema
Postleitzahl vom Ort trennen
Problem
In einer Adressdatei stehen Postleitzahlen und Orte in der gleichen Zelle. Die Postleitzahl erscheint mal in der Form "53567" und mal als "D-53567". Wie kann ich diese Zeichenfolge nach Postleitzahlen und Orten trennen?
Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
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