Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus Adressangabe Straße und Hausnummer separieren

Gruppe

Zeichenfolge

Problem

Aus der Adresse sollen die Strasse und die Hausnummer gefiltert werden.

Lösung
Über die nachfolgende benutzerdefinierte Funktion. Eingabesyntax: =strasse(a1) und =hausnr(a1)

StandardModule: Modul1

Function HausNr(sAdr As String) As String
   Dim iCounter As Integer
   For iCounter = 1 To Len(sAdr)
      If IsNumeric(Mid(sAdr, iCounter, 1)) Then
         Exit For
      End If
   Next iCounter
   If iCounter = Len(sAdr) + 1 Then
      HausNr = ""
   Else
      HausNr = Right(sAdr, Len(sAdr) - iCounter + 1)
   End If
End Function

Function Strasse(sAdr As String) As String
   Dim iCounter As Integer
   For iCounter = 1 To Len(sAdr)
      If IsNumeric(Mid(sAdr, iCounter, 1)) Then
         Exit For
      End If
   Next iCounter
   Strasse = Trim(Left(sAdr, iCounter - 1))
End Function