VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus Adressangabe Straße und Hausnummer separieren

Gruppe

UDF

Bereich

Zeichenfolge

Thema

Aus Adressangabe Straße und Hausnummer separieren

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zeichenfolge