Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text zwischen zwei Leerzeichen suchen und kopieren

Forumthread: Text zwischen zwei Leerzeichen suchen und kopieren

Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:12:31
Hammes
Hallo zusammen,
ich habe eine Zelle mit folgendem Aufbau:
Text 1234ABc Text
Ich müsste mir die die Zahlenkombination zwischen den beiden Leerzeilen "rauspicken" und in eine neue Zelle setzen? Gibt es einen Weg dies per Formel oder Makro zu bewerkstelligen?
Danke & Gruß,
Bastian
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:17:37
{Boris}
Hi Bastian,
=TEIL(A1;FINDEN(" ";A1)+1;FINDEN("#";WECHSELN(A1;" ";"#";2))-FINDEN(" ";A1)-1)
Grüße Boris
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:24:44
Hammes
Danke für die prompte Hilfe, aber ich bekomme nur ein leeres Feld angezeigt. Liegt es vielleicht daran, das zwischen dem ersten Textbaustein und der Kombination die ich rauspicken will mehrere Leerzeichen sind (unterschiedlich viele)?
Gruß,
Bastian
Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:29:50
UweD
Hallo
genau...
Die Formel von Boris sucht das erste und zweite Leerzeichen.
wenn du z.B. Text..1234ABC.Text hast (Punkt= Leerzeichen)
dann steht dazwischen nichts
Gruß UweD
(Rückmeldung wäre schön)
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:32:20
Peter
oder zwar länger aber übersichtlicher:
=TEIL(A1;SUCHEN(" ";A1;1)+1;SUCHEN(" ";A1;SUCHEN(" ";A1;1)+1)-SUCHEN(" ";A1;1)-1)
Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:35:46
Hammes
Auch hier leider nur leere Zellen...
:(
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:38:19
Peter
Ja klar, auch weil es zwei Leerstellen sind..
Abhilfe: =TEIL(A1;SUCHEN(" ";A1;1)+1;SUCHEN(" ";A1;SUCHEN(" ";A1;1)+2)-SUCHEN(" ";A1;1)-1)
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:53:41
Peter
nochmal hallo:
sorry, vorherige Formel ist falsch, aber jetzt habe ich eine, die beliebig viele Leerzeichen im Block zulässt, da es ja im Excel auch noch die formel Glätten gibt:
=TEIL(GLÄTTEN(A1);SUCHEN(" ";GLÄTTEN(A1);1)+1;SUCHEN(" ";GLÄTTEN(A1);SUCHEN(" ";GLÄTTEN(A1);1)+1)-SUCHEN(" ";GLÄTTEN(A1);1)-1)
Bitte probier das mal aus....
Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:55:36
Hammes
Sauber, das scheint zu funktionieren!
Vielen Dank!
:)
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:25:09
UweD
Hallo
Ohne Formel, ohne Makro
- Spalte markieren
- Daten, Text in spalten
- getrennt
- Leerzeichen
- im weiteren Dialog 1. und 3. Spalte Nicht übernehmen auswählen.
OK?
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopieren
09.05.2006 15:27:21
Hammes
Das fuppt nicht, da der Textstring immer unterschiedlich lang ist, im Anschluß daran aber direkt ein Leerzeichen und dann weiterer Text folgt...
zeig doch mal Echtdaten
09.05.2006 15:32:21
UweD
Hallo nochmal
dann solltest du mal einen Teil der Datei hochladen...
Gruß UweD
AW: zeig doch mal Echtdaten
09.05.2006 16:24:32
UweD
Hallo nochmal
Wie ich bereits beschrieben habe, Daten, Text in Spalten, usw.
eine Ergänzung: den Haken bei "Aufeinanderfolgende Trennzeichen als ein Zeichen behandeln" muß noch gesetzt werden.
Im Assistenten sieht das dann so aus
Userbild
dort wo die senkrechten Striche sind, würde der Text separiert
wenn du jetzt hier noch die Übernahme der unerwünschten Spalten wegläßt, bleibt das gewünschte übrig

Die Datei https://www.herber.de/bbs/user/33472.jpg wurde aus Datenschutzgründen gelöscht

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: zeig doch mal Echtdaten
09.05.2006 16:43:43
Eule
Hi,
versuch doch mal folgende Funktion

Function BuchstRaus(Rng As Range)   '=BuchstRaus(A1)
Dim intZ As Integer
For intZ = 1 To Len(Rng)
Select Case Asc(Mid(Rng, intZ, 1))
Case 48 To 57
BuchstRaus = Val(BuchstRaus & Mid(Rng, intZ, 1))
End Select
Next intZ
End Function

Gruss Eule
Anzeige
AW: zeig doch mal Echtdaten
09.05.2006 16:48:28
Eule
Hi nochmals als Nachtrag, vorige Funktion sollte nur als Anhalt und Denkanstoss dienen, hab nämlich gerade noch gesehen, das im rechten Teil des jeweiligen Strings auch noch Ziffern stehen.
Vorschlag: nimm vielleicht nur die linken (10 oder 15 Stellen) und lass dann die Funktion drüberlaufen.
Gruss Eule
Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopi
10.05.2006 09:37:15
bst
Auch Hallo,
ich würde das wohl mit RegEx machen :-)
Dieses schreibt die Zahlen rechts neben die selektierten Originalzellen.
Voraussetzung:
- mindestens 1 Leerzeichen vorher
- 3 bis 5 Ziffer gefolgt von 2 Grossbuchstaben
cu, Bernd
--
Option Explicit

Sub x()
Dim rngZelle As Range, objRegEx As Object

Set objRegEx = CreateObject("vbscript.regexp")
objRegEx.pattern = "^.*? +(\d{3,5})[A-Z]{2}.*$"
For Each rngZelle In Selection
rngZelle(1, 2).Value = objRegEx.Replace(rngZelle.Value, "$1")
Next
Set objRegEx = Nothing
End Sub


Anzeige
AW: Text zwischen zwei Leerzeichen suchen und kopieren
10.05.2006 11:42:04
Hammes
Nochmal schönen Dank an alle, das Problem hat sich gelöst!
:)

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Text zwischen zwei Leerzeichen suchen und kopieren


Schritt-für-Schritt-Anleitung

Um den Text zwischen zwei Leerzeichen in Excel auszulesen, kannst Du die folgende Formel verwenden. Diese funktioniert auch, wenn zwischen den ersten beiden Textbausteinen mehrere Leerzeichen sind:

=TEIL(GLÄTTEN(A1);SUCHEN(" ";GLÄTTEN(A1);1)+1;SUCHEN(" ";GLÄTTEN(A1);SUCHEN(" ";GLÄTTEN(A1);1)+1)-SUCHEN(" ";GLÄTTEN(A1);1)-1)
  1. Zelle auswählen: Wähle die Zelle aus, die den Text enthält.
  2. Formel einfügen: Kopiere die oben genannte Formel in eine andere Zelle.
  3. Ergebnis prüfen: Die Formel gibt den Text zwischen den ersten zwei Leerzeichen aus.

Häufige Fehler und Lösungen

  • Leeres Feld: Wenn Du nur ein leeres Feld erhältst, könnte es daran liegen, dass zwischen den Textbausteinen mehrere Leerzeichen vorhanden sind. Nutze die GLÄTTEN-Funktion, um überflüssige Leerzeichen zu entfernen.

  • Falsches Ergebnis: Achte darauf, dass die Zelle, auf die Du referenzierst (z. B. A1), tatsächlich den erwarteten Text enthält.

  • Formel funktioniert nicht: Wenn die Formel nicht funktioniert, überprüfe, ob Du die richtigen Trennzeichen (z. B. Leerzeichen) verwendest.


Alternative Methoden

  1. Text in Spalten:

    • Markiere die Spalte mit den Texten.
    • Gehe zu DatenText in Spalten.
    • Wähle Getrennt und dann Leerzeichen als Trennzeichen aus.
    • Im folgenden Dialog kannst Du die ersten und letzten Spalten abwählen, um nur den gewünschten Text zu behalten.
  2. VBA-Funktion: Wenn Du regelmäßig Texte zwischen Zeichen extrahieren musst, kannst Du eine benutzerdefinierte VBA-Funktion erstellen:

    Function BuchstRaus(Rng As Range) As String
       Dim intZ As Integer
       For intZ = 1 To Len(Rng)
           Select Case Asc(Mid(Rng, intZ, 1))
               Case 48 To 57
                   BuchstRaus = BuchstRaus & Mid(Rng, intZ, 1)
           End Select
       Next intZ
    End Function

    Diese Funktion extrahiert Ziffern aus dem eingegebenen Text.


Praktische Beispiele

  • Beispiel 1: Angenommen, Du hast den Text "ABC 12345 DEF" in Zelle A1, und Du möchtest die Ziffern "12345" extrahieren. Nutze die oben beschriebene Formel.

  • Beispiel 2: Wenn der Text "XYZ 67890 PQR" lautet, funktioniert die Formel ebenfalls, da sie mit GLÄTTEN überflüssige Leerzeichen entfernt.


Tipps für Profis

  • Reguläre Ausdrücke: Für komplexere Suchmuster kannst Du in Excel auch VBA mit regulären Ausdrücken verwenden, um präzisere Ergebnisse zu erzielen.

  • Datenbereinigung: Nutze die GLÄTTEN-Funktion regelmäßig, um sicherzustellen, dass Deine Daten sauber sind, bevor Du mit der Analyse beginnst.

  • Formeln kombinieren: Kombiniere die TEIL-Funktion mit anderen Funktionen wie WENN oder SVERWEIS, um Deine Datenanalyse zu optimieren.


FAQ: Häufige Fragen

1. Wie finde ich das zweite Leerzeichen in einem Text?
Du kannst die SUCHEN-Funktion verwenden, um die Position des zweiten Leerzeichens zu finden, indem Du die Anfangsposition anpasst.

2. Funktioniert dies auch mit anderen Trennzeichen?
Ja, Du kannst die Leerzeichen in der Formel durch andere Zeichen ersetzen, wie z.B. Kommas oder Punkte, um den Text zwischen zwei Zeichen auszulesen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige