Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Trennen der Spaltenihnalte nch bestimmten Zeichen

Forumthread: Trennen der Spaltenihnalte nch bestimmten Zeichen

Trennen der Spaltenihnalte nch bestimmten Zeichen
09.07.2006 19:05:19
Holger
Hallo,
ich möchte gerne eine Spalte in zwei Spalten aufteilen. In meiner spalte steht immer folgendes : "Max Mustermann und Frau Sabine Mustermann"
Der Text " Frau Sabine Mustermann", die Trennung erfolgt somit immer nach dem "und", soll in einer neuen Spalte stehen, die direkt nach der original Spalte steht. In der original Spalte soll der Text entsprechend gelöscht werden. Ziel ist es, die Zeile in einem Serienbrief zu trennen, damit die Adress Zeile nicht zu lang ist. Für Hilfe wäre ich sehr dankbar
Holger
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Trennen der Spaltenihnalte nch bestimmten Zeic
09.07.2006 19:13:25
Josef
Hallo Holger!
Sub trennen()
Dim rng As Range
For Each rng In Range("A1:A50") ' Bereich anpassen
  If InStr(1, rng, "und") > 0 Then
    rng.Offset(0, 1) = Trim$(Mid(rng, InStr(1, rng, "und") + 4))
    rng = Trim$(Left(rng, InStr(1, rng, "und") - 1))
  End If
Next
End Sub


Gruß Sepp

Anzeige
Oder besser so
09.07.2006 19:23:27
Josef
Hallo Holger!
Nimm diesen Code, sonst wird aus Raimund Raim gemacht.
Sub trennen()
Dim rng As Range
For Each rng In Range("A1:A50") ' Bereich anpassen
  If InStr(1, rng, " und ") > 0 Then
    rng.Offset(0, 1) = Trim$(Mid(rng, InStr(1, rng, " und ") + 5))
    rng = Trim$(Left(rng, InStr(1, rng, " und ") - 1))
  End If
Next
End Sub


Gruß Sepp

Anzeige
AW: Trennen der Spaltenihnalte nch bestimmten Zeic
12.07.2006 21:22:32
Holger
Hallo Josef,
funktioniert soweit ganz gut. Kann mann das Script auch so anpassen, dass das und mit in die zweite Spalte übernommen wird ? Etwa so:
Herr Mustermann und Frau Karin
Spalte 1 Herr Mustermann
Spalte 2 und Frau Karin
vielen Dank
Holger
AW: Trennen der Spaltenihnalte nch bestimmten Zeichen
09.07.2006 19:16:19
Bugs
Hallo, dazu verwendest Du das Menü: /Daten/Text in Spalten.
Da es ja das Programm zulässt so zu arbeiten, warum einen Code verwenden.

Rückmeldung wäre nett !!! 


>>> mfg Bugs <<<

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Anzeige
@Bugs
09.07.2006 19:18:38
Josef
Hallo Bugs!
Da das "Trennzeichen" eine Zeichenfolge ist, wird das so nicht klappen.
Gruß Sepp

AW: @Josef
09.07.2006 19:20:17
Bugs
Hallo Josef,
ich bin gerne für neues, aber ich habe es vor dem Posting probiert, und es funzt.
Gruss
AW: @Josef
09.07.2006 19:22:30
Bugs
Hi nochmals,
du musst natürlich "Feste Breite" verwenden damit es funzt.
Gruss Bugs
Anzeige
AW: @Josef
09.07.2006 19:25:35
Josef
Hallo Bugs!
Für eine Zelle mag das ja sein, aber für mehrere Zeilen?
Gruß Sepp

AW: @Josef
09.07.2006 19:28:25
Bugs
Hallo Josef lol,
ja, auch mit mehreren Zeilen geht das, habs soeben ausprobiert und funzt wunderbar, hoffe du glaubst mir, probiers mal aus und setzte die Tabstopps vor und nach dem "und", und, es geht.
Gruss aus Kärnten
Anzeige
AW: @Josef
09.07.2006 19:33:36
Josef
Hallo Bugs!
Also bei mir xl2000 geht's definitiv nicht.
Gruß Sepp

AW: @Josef, hast Recht gehabt
09.07.2006 19:37:07
Bugs
Hallo Josef,
muss leider zugeben, war mein Fehler, hast doch du recht. Hatte beim meinem Versuch immer die gleiche Anzahl von Zeichen gehabt, ergo stand das und immer an selber Stelle, deswegen gings.
Hab also doch wieder was von so einem alten Fuchs wie dir gelernt, Danke und sorry.
Gruss Bugs
Anzeige
AW: @Josef
09.07.2006 19:40:47
Bugs
Noch ein Nachtrag weils mir keine Ruhe lässt,
wenn man das wort und durch z.B.: Ü ersetzen lässt und es dann mit Text in Spalten machts, geht es doch ncoh, lol. Dumm dabei is nur, wenn in einem Namen das Wort und vorkommt, was ich eher als selten Einstufe, aber wissen kann man ja nie.
Gruss
Anzeige
;

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zeilenumbruch i Zelle nach beliebiger Zeichenfolge
Till

Hallo Leute,
habe mal wieder eine bescheidene Frage.
Ich würde gerne in einer Zelle nach jeder Zeichenfolge, die mit einem Leerzeichen abgeschlossen ist, anstelle des Leerzeichens einen Zeilenumbruch erzwingen.
Wie kann man das mit VBA machen?
Irgendwo anders habe ich gefunden w...
30.01.2009 11:13:24
Thread-ID: 1045325
4 Beiträge
Text an bestimmtem Zeichen trennen?
Kasimir

Hallo Leute,
ich benötige mal Eure Hilfe. Ich würde gerne über ein Makro den Zellinhalt teilen. In der Zelle können folgende Kombinationen vorkommen:
Testeintrag 1 Testwert 1 -> Testeintrag 2 Testwert 2
oder
Testeintrag 1 Testwert 1 -> Testeintrag 2 Testwert 2 -> Testei...
31.01.2009 08:38:28
Thread-ID: 1045576
3 Beiträge
Anzeige
Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Excel 2003: Nach Leerzeichen trennen
Florian

Mahlzeit zusammen.
Folgende Aufgabenstellung versuche ich zu lösen:
Liste mitz ca. 5.000 Zeilen, bestehend aus Artikelnummer, Bezedichnung und Preis.
Die Länge der Datensätze ist unterschiedlich, die Anzahl der Leerstellen dazwischen auch.
Ich möchte nun die Artikelnummer (alph...
01.07.2009 14:35:01
Thread-ID: 1085734
6 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:18:48
Thread-ID: 1086596
2 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:19:17
Thread-ID: 1086598
9 Beiträge
Filtern nach Teilen eines Zelleintrags
Boris

Hallo Forum,
Ich suche eine Möglichkeit einen Filter zu setzten auf Teile eines Zelleintrags.
Hier ein Beispiel
leiter.......Teilnehmer............... Gruppe
FP............otto1........................1
ES............otto1, otto6.............4
FP............ otto1,otto2,...
22.09.2009 12:19:11
Thread-ID: 1104606
4 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Zellen in Zeilen trennen nach Trennzeichen
Rainer

Hallo! Ich habe ein kleines Problem und bin mir sicher ihr könnt mir da weiterhelfen.
In einem Tabellenblatt habe ich Daten diesen Struktur
ABC'DEF'GEH
ZTER'HZE'JOE'ZTE
Was ist suche, ist eine Funktion, die mir dieses Blatt durchläuft (das ist kein problem) und dann jedesmal wen...
11.05.2010 10:03:40
Thread-ID: 1156591
4 Beiträge
Kennwort mit Sternchen
Werner

Hallo EXCEL-Fans!
Um en Tabellenblatt vor unberechtigten Zugriff zu schützen, benutze ich folgenden Code (bei ausgeblendeten Tabellenblattreitern):Private Sub CommandButton2_Click()
kennwort = Inputbox("Kennwort bitte !")
If kennwort "doof" then
Exit Sub
End If
Worksheets("AB...
03.05.2002 12:22:38
Thread-ID: 118178
6 Beiträge
Zelle einlesen und nach Zeilenumbruechen trennen
abu

Hallo Zusammen,
habe ein kleines Problem und hoffe Ihr koennt mir helfen.
In Zelle G2 steht eine Adresse die ich gerne einlesen, aufteilen und in TextBoxen wiedergeben moechte.
Dazu habe ich folgenden Code gefunden und geandert:
Dim iRow As Integer
Dim sTxt As String
Wit...
06.10.2010 15:59:46
Thread-ID: 1181063
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Spalteninhalte in Excel nach bestimmten Zeichen trennen

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Neues Modul einfügen: Rechtsklicke im Projektfenster auf "VBAProject (DeinDokument)", wähle Einfügen und dann Modul.

  3. Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Sub trennen()
   Dim rng As Range
   For Each rng In Range("A1:A50") ' Bereich anpassen
       If InStr(1, rng, " und ") > 0 Then
           rng.Offset(0, 1) = Trim$(Mid(rng, InStr(1, rng, " und ") + 5))
           rng = Trim$(Left(rng, InStr(1, rng, " und ") - 1))
       End If
   Next
End Sub
  4. Ausführen des Codes: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle trennen und klicke auf Ausführen.
  5. Überprüfen: Die Spalteninhalte sollten nun nach dem Wort "und" getrennt sein.

Häufige Fehler und Lösungen

  • Fehler: Der Code funktioniert nicht für alle Zellen.

    • Lösung: Stelle sicher, dass der Bereich in Range("A1:A50") korrekt eingestellt ist und genug Platz für die neuen Spalten vorhanden ist.

  • Fehler: Der Text wird nicht korrekt getrennt.

    • Lösung: Überprüfe, ob das Trennzeichen (" und ") im Text exakt übereinstimmt (inklusive Leerzeichen).

Alternative Methoden

  1. Text in Spalten:

    • Markiere die Spalte mit den Daten.
    • Gehe zu Daten > Text in Spalten.
    • Wähle Getrennt und klicke auf Weiter.
    • Setze das Trennzeichen auf "Benutzerdefiniert" und gebe und ein.

  2. Excel-Formeln:

    • Verwende die Formel zum Trennen des Textes: 
      =LINKS(A1;FINDEN(" und ";A1)-1)
    • Für die zweite Spalte: 
      =RECHTS(A1;LÄNGE(A1)-FINDEN(" und ";A1)-4)

Praktische Beispiele

  • Beispiel 1: "Max Mustermann und Frau Sabine Mustermann"

    • Nach der Trennung:
    • Spalte 1: "Max Mustermann"
    • Spalte 2: "und Frau Sabine Mustermann"

  • Beispiel 2: "Hans Müller und Frau Anna"

    • Nach der Trennung:
    • Spalte 1: "Hans Müller"
    • Spalte 2: "und Frau Anna"

Tipps für Profis

  • Du kannst den VBA-Code erweitern, um mehrere Trennzeichen zu berücksichtigen.
  • Nutze Trim-Funktionen, um überflüssige Leerzeichen zu entfernen.
  • Experimentiere mit den Excel-Formeln, um komplexere Datenanalysen durchzuführen.
  • Wenn du oft mit ähnlichen Aufgaben arbeitest, erwäge, Makros zu erstellen, die automatisierte Prozesse für dich übernehmen.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um andere Wörter zu trennen? Ja, du kannst das Wort "und" im Code durch jedes andere Wort ersetzen, das du verwenden möchtest.

2. Funktioniert das auch in älteren Excel-Versionen? Die VBA-Methode sollte in den meisten Excel-Versionen funktionieren. Bei der Methode „Text in Spalten“ kann es Unterschiede in den Optionen geben.

3. Wie kann ich mehrere Spalten gleichzeitig trennen? Du kannst den Range-Bereich im Code anpassen, um mehrere Spalten zu bearbeiten. Achte darauf, die Offset-Werte entsprechend anzupassen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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