VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Postleitzahl vom Ort trennen

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

    


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