Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl aus Text extrahieren - für Fortgeschrittene

Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 16:48:00
Matthias
Hallo Forum!
Ich habe zu meinem Problem ("Zahl aus Text extrahieren") einiges im WWW und hier im Forum gefunden - aber leider nicht die Lösung...
Folgende Angaben sind in jeweils einer (!) Zelle vorhanden:
Name, Vorname, Straße Haus-Nr, PLZ, Ort
Hierbei kann "Haus-Nr" z.B. "7" oder "2-4" oder leer sein.
Ich möchte aber nur die PLZ in die Zelle daneben extrahieren.
Hat jemand einen Lösungsvorschlag für mich?
Vielen Dank
Matthias

23
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl aus Text extrahieren - für Fortgeschritte
26.09.2007 17:02:31
Rudi
Hallo,
wie sieht das genau aus? Mit , getrennt?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Zahl aus Text extrahieren - für Fortgeschritte
26.09.2007 17:06:00
Matthias
Ja genau. Trennzeichen ist ",".

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:04:22
Bertram
Hallo Matthias,
wenn's wirklich so drinsteht und die PLZ fünfstellig ist, dann z.B. so:
=MID(A1;FIND("_";SUBSTITUTE(A1;",";"_";3))+2;5)
Gruß
Bertram

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:09:20
Matthias
Danke Bertram!
Und auf deutsch?
=TEIL(A1;FINDEN("_";ERSETZEN(A1;",";"_";3))+2;5)

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:12:44
Bertram
Hallo,
WECHSELN statt ERSETZEN
Gruß
Bertram

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:21:00
Matthias
Das wars leider noch nicht.
Deine Formel =TEIL(A2;FINDEN(" ";WECHSELN(A2;",";" ";3))+2;5) auf meinen Testdatensatz Name, Vorname, Straße Hnr, 12345, Ort angewendet, ergibt: ornam

Anzeige
AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:28:00
Bertram
Hallo,
genau lesen bzw. kopieren:
=TEIL(A1;FINDEN("_";WECHSELN(A1;",";"_";3))+2;5)
Gruß
Bertram

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 18:04:04
Matthias
Also ich habe jetzt die Bezugszelle in A2 stehen und wenn ich Deine Formel mit den Unterstrichen ("_") verwende bekomme ich einen Fehler. Unterstriche sind in meinen Daten gar nicht vorhanden.

AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 15:31:00
Matthias
? Ich sehe dass es funktioniert - aber ich verstehe nicht warum?

Anzeige
AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 17:55:00
Bertram
Hallo,
zuerst wird das dritte Komma durch einen Unterstrich ersetzt: WECHSELN(A1;",";"_";3)
dann wird nach dem Unterstrich gesucht: FINDEN("_";)
und dann die 5 Zeichen nach dem Leerzeichen ausgelesen: TEIL(A1;'...'+2;5)
Gruß
Bertram

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:21:00
Peter
Hallo Matthias,
wenn die Postleitzahl immer der vorletzte Eintrag ist, sollte es so gehen:

Public Sub Extrahieren()
Dim lZeile  As Long
Dim aTmp    As Variant
Dim iIndex  As Integer
With Worksheets("Tabelle1")  ' Tabellenblattnamen ggf. anpassen
For lZeile = 1 To .Range("A65536").End(xlUp).Row
aTmp = Split(.Range("A" & lZeile).Value, ",")
.Range("B" & lZeile).Value = Trim(aTmp(UBound(aTmp) - 1))
Next lZeile
End With
End Sub


Gruß Peter

Anzeige
AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 17:23:00
Matthias
Hallo Peter!
Ich würde dies ungerne mit VBA lösen, da ich die Datei später an Kollegen weitergebe, die keine VBA-Kenntnisse haben...
Danke,
Matthias

AW: Zahl aus Text extrahieren - für Fortgeschrittene
26.09.2007 21:44:00
Peter
Hallo Matthias,
dann nimm es als Function
'
' es wird immer der vorletzte Wert geliefert
'

Public Function Extrakten(Eingabe As String) As String
Dim aTmp    As Variant
aTmp = Split(Eingabe, ",")
Extrakten = Trim(aTmp(UBound(aTmp) - 1))
End Function


Angenommen, deine Werte stehen in A1, dann in B1: =Extrakten(A1)
Gruß Peter

Anzeige
AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 09:07:00
Matthias
Hallo Peter!
Ich habe die VBA geöffnet und ein neues Modul eingefügt. Dort habe ich Deine Lösung hineinkopiert, die Datei abgespeichert, bekomme aber leider kein Ergebnis ("#NAME?")!

DIESE LÖSUNG FUNKTIONIERT!
27.09.2007 09:31:00
Matthias
Stop! Kommando zurück!
ES FUNKTIONIERT! DANKE!!!
Wollte zwar ursprünglich keinen VBA-Code verwenden aber die Lösung ist so komfortabel, die muß ich benutzen! ;-)

Das kannst du so lösen,...
26.09.2007 18:24:00
Luc:-?
...Matthias,
falls mal die eine oder andere Angabe fehlen sollte (sonst kann die Formel kürzer sein - ohne ANZAHL2 - PLZ und Ort muss aber existieren):
=INDEX(Adressvektor;ANZAHL2(Adressvektor)-1)
Dabei ist Adressvektor der Name einer Formel (Menü Einfügen - Namen - definieren). Diese lautet...
=AUSWERTEN("{"""&WECHSELN(A2;", ";""";""")&"""}")
..., wenn deine Adresse in A2 und die obere Formel in B2 steht (B2 dabei markieren! - Trenner stets ", "!).
Die Fkt AUSWERTEN basiert auf XLM (xl4Makrofktt) und kann nur in benannten Formeln eingesetzt wdn (solange xlVersionen das noch unterstützen)! Wenn dir dieses Konstrukt zu aufwendig ist, musst du VBA (ich habe hierfür eine benutzerdefinierte Fkt, die wie eine normale xlFkt eingesetzt wdn kann) anwenden, alles Andere wird formelmäßig komplizierter (und deutlich länger!).
Gruß Luc :-?

Anzeige
AW: Das kannst du so lösen,...
27.09.2007 09:04:20
Matthias
Hallo Luc!
Deine Lösung sieht ziemlich professionell aus aber leider greift sie bei mir nicht. Ich habe mich genau an deine Anweisung gehalten, erhalte aber die Meldung: "DIESE FUNKTION IST UNGÜLTIG!"

Tja, dann scheint wohl XLM schon ab...
28.09.2007 02:51:55
Luc:-?
...xl2003 (11.0) nicht mehr unterstützt zu wdn, Matthias!
Gruß Luc :-?
PS: MS wird es schon noch schaffen, jegliche Spur von Genialität aus xl zu tilgen... (vgl KalkBug in 12.0)

AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 08:20:15
Marek
Hallo zusammen,
hier mal mein Vorschlag:
Ist ziemlich zusammengebastelt, aber funktioniert, sofern ich dein Problem richtig verstanden hab.
=LINKS(RECHTS(A1;LÄNGE(A1)-FINDEN(",";A1;FINDEN(",";A1;FINDEN(",";A1;1)+1)+1));6)*1
Warum trennst du deinen Text nicht in Spalten?
Das sieht übersichtlicher aus und du sparst die den Ärger.
Gruß
Marek

Anzeige
AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 09:01:00
Matthias
Hallo Marek!
Danke für Deinen Vorschlag aber der funktioniert bei mir leider auch nicht (Ergebnis: "'#WERT!").
Die Daten kommen als Export aus einem anderen Programm und sind deswegen in diesem Format...

AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 11:45:08
Marek
dann lad doch mal ein Beispiel hoch wenn das geht.
Gruß
Marek

AW: Zahl aus Text extrahieren - für Fortgeschrittene
27.09.2007 12:19:00
Matthias
Hallo Marek!
Siehe bitte oben. Der Thread von Peter. Dort ist die Lösung.
Danke & Gruß
Matthias

315 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
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
6
16
6
9
4
4
1
5
30
3
1
2
5
2
4
8
5
9
2
1
4
2
4
22
1