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

Zeichnfolge aufteilen Zahl auslesen

Zeichnfolge aufteilen Zahl auslesen
19.10.2005 18:17:35
wolfgang
Hallo zusammen,
ich habe in der Spalte a folgende Texte stehen.
Die Trennung zwischen den Worten ist ein Leerzeichen
A2:Partner 12345 Müller Heek 48619 Musterstr.8
A3:Partner 12411 Meier Gerd Münster 48123 Musterstr.1
usw.
In Spalte B brauche ich die PLZ des Ortes
B2:48619
B3:48123
usw.
Wie kann ich das machen?
Danke Gruß
Wolfgang

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichnfolge aufteilen Zahl auslesen
19.10.2005 20:13:10
HermannZ
Hallo Wolfgang;
eine Möglichkeit;
Beispiel;
VersuchB
 AB
243  
244Partner 12411 Meier Gerd Münster 48123 Musterstr.1 48123
245Partner 12345 Müller Heek 48619 Musterstr.848619
246 Formel nach
247 unten kopieren
Formeln der Tabelle
B244 : {=TEIL(LINKS(LINKS(A244;LÄNGE(A244)-4);MAX((ISTZAHL(TEIL(LINKS(A244;LÄNGE(A244)-4);SPALTE(1:1);1)*1)*SPALTE(1:1))));MAX((ISTZAHL(TEIL(LINKS(A244;LÄNGE(A244)-4);SPALTE(1:1);1)*1)*SPALTE(1:1)))-5;55)}
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: Zeichnfolge aufteilen Zahl auslesen
19.10.2005 20:30:55
Wolfgang
Danke klappt super.
Kann man das auch ln vba machen?
Gruß
Wolfgang
AW: Zeichnfolge aufteilen Zahl auslesen
20.10.2005 10:59:09
WernerB.
Hallo Wolfgang,
wie gefällt Dir das?
Sub Wolfgang() Dim c As Range, _ i As Integer, _ laR As Long laR = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("A2:A" & laR) If Len(c.Text) > 19 Then For i = 14 To Len(c.Text) If InStr(1, "1234567890", Mid(c.Text, i, 1)) > 0 Then c.Offset(0, 1).Value = Mid(c.Text, i, 5) Exit For End If Next i End If Next c End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Zeichnfolge aufteilen Zahl auslesen
21.10.2005 13:31:49
Wolfgang
Danke klappt super.
Gruß
Wolfgang
Anzeige
AW: Zeichnfolge aufteilen Zahl auslesen
21.10.2005 13:33:13
Wolfgang
Danke klappt super.
Gruß
Wolfgang

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige