Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige