Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hausnummern von Adressen trennen

Hausnummern von Adressen trennen
26.02.2008 17:13:00
Adressen
Hallo Ihr lieben Helferinnen und Helfer,
wie trenne ich Hausnummern von Adressangaben, wenn diese irgendwelche Zusatzangaben haben?
Beispiel:
Spessartstr. 14 | 14
Rotenberg 13 | 13
Untere Gasse 8 | 8
geht über TEIL(B2;VERGLEICH(WAHR;ISTZAHL(TEIL(B2;SPALTE(1:1);1)*1);0);LÄNGE(B2))*1
aber bei
Fließenbachstr. 8 a liefert die Formel 0,3333333
Harrbacher Weg 39 / 41 liefert die Formel #Wert
Langenprozeltener Str. 129b liefert die Formel #Wert
Hat jemand eine Idee?
Vielen Dank fürs Lesen, Eindenken und Antworten!
liebe e-Grüße Elmar

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hausnummern von Adressen trennen
26.02.2008 17:21:00
Adressen
Hallo Elmar,
das geht z. B. so:
'
' Man braucht im VBA einen Verweis auf MS VBScript Regular Expression.
' D. h. im VBA im Menue Extras-Verweise dieses Teil suchen und ankreuzen.
'
' Filtert alles ab einer Zahl als Hausnummer
'

Public Function Hausnummer(s As String)
Dim objRegEx As Object
Set objRegEx = CreateObject("vbscript.regexp")
With objRegEx
.Global = True
.IgnoreCase = False
.MultiLine = False
.Pattern = "[^0-9]*?\s?(\d+.?)"
End With
Hausnummer = objRegEx.Replace(s, "$1")
End Function


'
' Filtert alles vor einer Zahl als Straße
'


Public Function Strasse(s As String)
Dim objRegEx As Object
Set objRegEx = CreateObject("vbscript.regexp")
With objRegEx
.Global = True
.IgnoreCase = False
.MultiLine = False
.Pattern = "([^0-9]*?)\s?\d+.?"
End With
Strasse = objRegEx.Replace(s, "$1")
End Function


'
' Test der obigen beiden Functions
'


Public Sub FunctionTest()
Dim lZeile  As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle3")
For lZeile = 2 To .Range("A65536").End(xlUp).Row
.Range("B" & lZeile).Value = Strasse(.Range("A" & lZeile).Value)
.Range("C" & lZeile).Value = Hausnummer(.Range("A" & lZeile).Value)
Next lZeile
End With
Application.ScreenUpdating = True
End Sub


Anzeige
AW: Hausnummern von Adressen trennen
26.02.2008 20:49:00
Adressen
Hallo Peter,
das ist ja echt cool, Vielen Dank!
Werde ich mal ausprobieren.
Lieber hätte ich es aber als Funktion ohne VBA - Trotzdem danke - sieht echt super aus!!!

304 Forumthreads zu ähnlichen Themen

Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
eMail-Adressen auf Syntax prüfen
Selter

Hallo,
kann ich in XLS auf einfache Weise eine Liste von Adressen auf Korrektheit hinsichlich Syntax prüfen?
In der Liste gibt es u.a. Umlaute etc.
Vielen Dank
Selter
17.02.2009 15:20:00
Thread-ID: 1051513
7 Beiträge
Email Adressen aus mehreren Spalten in eine Spalte
Martin

Hallo Leute!
Ich hab heut wiedermal eine Frage an euch.
Ich hab ein Excelblatt in dem in verschiedenen Spalten Email Adressen stehen. Ich möchte nun aber, dass alle Adressen in einer Spalte zb. "X" stehen jedoch in der Zeile bleiben in der sie gestanden sind.
z.B.: steht in der Zel...
03.03.2009 14:03:50
Thread-ID: 1055974
5 Beiträge
Workbooks.OpenText mit Semikolon
Holger

Hallo zusammen,
wie kann ich eine Textdatei mit Semikolon getrennt öffnen lassen ?
So machte ich es bisher:
Workbooks.OpenText Startfile, xlWindows, 1, , xlTextQualifierDoubleQuote, , True
Gruss
Holger
22.04.2009 13:26:06
Thread-ID: 1070341
2 Beiträge
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Daten trennen mit Semikolon und zählen
Jockel

Hi,
ich habe eine Textbox1 und eine Textbox2. In der ersten Textbox werden entweder einzelne Informationen geschrieben:
ZB: 123456 oder 987456 oder 0123456. also 6 oder 7 stellige Schlüssel
Die Textbox2 bliebe dann bei Eingabe EINES Schlüssels leer.
So weit noch OK
Nun soll...
11.02.2010 10:04:03
Thread-ID: 1137624
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
4
2
6
6
4
1
2
3
8
3
4
2
2
4
9
6
2
7
1
3
1
3
3