Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Straße & Hausnr. trennen

Straße & Hausnr. trennen
07.02.2006 11:49:21
Silvia
Hallo,
kann mir jemand bei dem trennen der Straßen & HausNr. helfen?
https://www.herber.de/bbs/user/30751.zip
Mein Problem ist das beim trennen auch die Straßen getrennt werden.
Bitte Hilfe
Gruß Silvia
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Straße & Hausnr. trennen
07.02.2006 12:04:29
HermannZ
Hallo silvia;
Beispiel;
 
 ABC
1STRASSE & HAUSNRSTRASSEHAUSNR
2Admiral-Rosendahl-Str. 10Admiral-Rosendahl-Str. 10
3Jean-Paul-Str. 21Jean-Paul-Str. 21
4Adolfstr. 16Adolfstr. 16
5Friedrich-Wilhelm-Str. 26Friedrich-Wilhelm-Str. 26
6Eschborner Landstr. 55Eschborner Landstr. 55
7Schäferhof 16Schäferhof 16
8Weserstr. 14Weserstr. 14
9Am Sande 10Am Sande 10
10Am Eschenbornrasen 2Am Eschenbornrasen 2
Formeln der Tabelle
B2 : {=LINKS(A2;VERGLEICH(1;ISTZAHL(TEIL(A2;SPALTE($1:$1);1)-1)*1;0)-1)}
C2 : =RECHTS(A2;LÄNGE(A2)-LÄNGE(B2))
Enthält Matrixformel:
Umrandende
{ } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Gruß hermann
Anzeige
AW: Straße & Hausnr. trennen
07.02.2006 12:08:10
ChrisL
Hallo
Hier noch ein Makro:
Sub t() Dim iZeile As Long Dim i As Byte Dim Vorhanden As Boolean Application.ScreenUpdating = False For iZeile = 2 To Range("A65536").End(xlUp).Row Vorhanden = False For i = 1 To Len(Cells(iZeile, 1)) If IsNumeric(Mid(Cells(iZeile, 1), i, 1)) Then Cells(iZeile, 2) = Left(Cells(iZeile, 1), i - 1) If Right(Cells(iZeile, 2), 1) = " " Then Cells(iZeile, 2) = Left(Cells(iZeile, 2), Len(Cells(iZeile, 2)) - 1) Cells(iZeile, 3) = "'" & Right(Cells(iZeile, 1), Len(Cells(iZeile, 1)) - i + 1) Vorhanden = True Exit For End If Next i If Vorhanden = False Then Cells(iZeile, 2) = Cells(iZeile, 1) Next iZeile Application.ScreenUpdating = True End Sub
Gruss
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige