HERBERS Excel-Forum - die Beispiele

Thema: Aus Adressangabe Straße und Hausnummer separieren

Home

Gruppe

UDF

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

bestimmte Zeichenfolgen in Zellen löschen Formatgleichheit von Zeichenfolgen für SVERWEIS
Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
UDF soll nicht auf Daten anderer Dateien zugreifen vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic Werte suchen mit Ausschluß von Zeichenfolgen
Zeichenfolge aus Textfeld auslesen UDF- Beschreibung
Zeichenfolge Finden und Ausgeben Argumente zählen mit gleicher Zeichenfolge
Berechnungsdauer einer UDF messen Hintergrudfarbe ändern??? Finde keine Lösung :-(
Probleme mit IsNumeric, Code per UDF Zeichenfolge bis /
UDF mittels Ereignis aktualisieren? Kodieren innerhalb einer Zeichenfolge
UDF, Minuszeichen vor Zahl auswerten Zeichenfolge splitten
nach Worksheet_Change werden UDF nicht ausgewertet Excel anhalten bei UDF
UDF ZÄHLENWENN mit exakter Zeichenfolge
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
Zeichenfolge in Zelle identifizieren & kopieren SQL in UDF
Anzahl einer Zeichenfolge in Zelle finden nach exakter Zeichenfolge suchen
Zeichenfolge per Makro ändern eine Zusammenhängende Zeichenfolge in Zelle finden
Hochstellung von Zeichenfolgen Werte einer UDF werden nicht aktualisiert
Suchen von Zeichenfolgen Suchen von Zeichenfolgen
Zeichenfolge suchen und benachbarte Inhalt löschen Zeichenfolge in InputBox verschlüsselt darstellen
zeichenfolgen von zelle a12 mitzaehlen Auslesen einer bestimmten Zeichenfolge a.einer Zel
Zeichenfolge in Zelle finden und Aktion ausführen Aufruf von UDF mit Array
Zeichenfolge in Zellbereich finden und zählen Zeichenfolgen in Datei suchen
UDF: Semikolon vs Komma suchen und ersetzen von bestimmten Zeichenfolgen
Zeichenfolge vergleichen und Unstimmigkeiten marki chr(0) aus Zeichenfolge entfernen
Filtern nach Zeichenfolgen, die einen * enthalten Zeichenfolge als Variable ohne ""