Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zell-Inhalte auftrennen in mehrere Spalten

Forumthread: Zell-Inhalte auftrennen in mehrere Spalten

Zell-Inhalte auftrennen in mehrere Spalten
06.12.2006 15:24:05
Anton
Hallo Leute,
ich habe in einer Zelle folgenden String stehen:
( 25 / 1837815.001 / Bilanzierung-Plus CD-ROM / / in Ansicht gekündigt ) ( 25 / 1837815.001 / Das neue KontierungsPraxis-abc / / in Ansicht gekündigt ) ( 25 / 1837815.001 / Die Neue Umsatzsteuer-Praxis / / in Ansicht gekündigt ) ( 26 / 1837815.001 / LBW Betriebsprüf.u.Steuerfahn. / / in Ansicht gekündigt ) ( 28 / 1837815.001 / Controller Magazin / 43 / gekündigt ) ( 25 / 1837815.002 / Kosten senken-jetzt! / / in Ansicht gekündigt ) ( 25 / 1837815.002 / PersonalR für die Praxis Abo / / in Ansicht gekündigt ) ( 26 / 1837815.002 / Bilanzierungs-Richtlinien / / in Ansicht gekündigt ) ( 28 / 1837815.001 / Controller Magazin / 16 / gekündigt ) ( 25 / 1837815.001 / BIB / / laufend )
Hier hat mein Datenlieferant mehrere Datensätze aneinander gekettet.
(Dies ist ein mittel-langer Datensatz.)
Ich brauche sie aber einzeln. Und zwar untereinander.
Trenn-Merkmal ist ") (".
Mit dem hier habe ich mal Vor- und Nachnamen voneinander getrennt:
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],FIND("" "",RC[-1],1)-1)"
Ich glaube aber mit dieser Methode keinen "Stich" machen zu können.
Wie kann man solche verschieden lange Strings aufspalten?
Wer von Euch kann mir da bitte weiterhelfen?
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zell-Inhalte auftrennen in mehrere Spalten
06.12.2006 15:46:00
Reinhard
Hi Anton,
klappt das:?
Option Explicit
Sub tt()
Dim Satz, SplitSatz, S
Satz = Mid(ActiveCell, 3)
Satz = Left(Satz, Len(Satz) - 2)
SplitSatz = Split(Satz, " ) ( ")
If (ActiveCell.Column + UBound(SplitSatz)) > 256 Then MsgBox "Houston, wir hamm das watt, wann kommt XL2007?"
For S = 1 To UBound(SplitSatz)
ActiveCell.Offset(0, S) = SplitSatz(S)
Next S
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Zell-Inhalte auftrennen in mehrere Spalten
06.12.2006 16:03:42
Anton
Hallo Reinhard,
vielen Dank für Deine superguten Zeilen.
Es wird in die folgespalten kopiert.
Die Inhalte sind korrekt.
Nur in der ersten Spalte bleibt alles erhalten.
Kannst Du bitte nochmal drüberschauen?
Danke.
Servus,
Anton
AW: Zell-Inhalte auftrennen in mehrere Spalten
06.12.2006 16:46:11
Reinhard
Hi anton,
seltsam, an sich war ein Fehler drin, die Schleife muss bei 0 starten, nicht bei 1.
Option Explicit
Sub tt()
Dim Satz, SplitSatz, S, Zei
For Zei = 1 To Range("A65536").End(xlUp).Row
Satz = Mid(Cells(Zei, 1), 3)
Satz = Left(Satz, Len(Satz) - 2)
SplitSatz = Split(Satz, " ) ( ")
If UBound(SplitSatz) > 255 Then MsgBox "Houston, wir hamm das watt, wann kommt XL2007?"
For S = 0 To UBound(SplitSatz)
Cells(Zei, S + 1) = SplitSatz(S)
Next S
Next Zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
herzlichen Dank
07.12.2006 08:35:12
Anton
Hallo Reinhard,
jetzt funzt es 1a.
Vielen herzlichen Dank.
Servus,
Anton

Forumthreads zu verwandten Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Pulldown in mehreren Spalten
Wolfgang

Hallo,
der untenstehende Code bewirkt bei Anwählen eines jeweilien Tabellenblattes, dass in I2:I6000 ein Pulldown erscheint. Wäre denkbar, dass der Code ausgeweitet wird um zwei weitere Pulldown in Spalte K2:K6000 mit "Ja" "Nein" und in Spalte M2:M6000 mit "Date". Ich habe schon zig verschi...
15.11.2008 18:33:43
Thread-ID: 1024798
3 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Mehrere Filter gleichzeitig auf "Alle"
Alex

Hallo zusammen,
ich habe in meiner Datei 10 Autofilter.
Benötige eure Hilfe; wie kann ich schreiben, dass Filter 1-7 gleichzeitig aufgehoben, d.h. deaktiviert werden?
Sub FilterAlleAnzeigenÜ() ActiveSheet.Unprotect "passw" Selection.AutoFilter Field:=1 'hier Field 1-7 ? ActiveShee...
23.01.2009 10:34:13
Thread-ID: 1042839
4 Beiträge
Anzeige
Filter - Text in Spalten
LD

Hallo,
habe hier eine Adressliste aus welcher ich nur die email adr. rausziehen will.
Habe schon einen Filter angewendet um alle Zeilen mit @ anzuzeigen, allerdings
steht vor den adr. "email an" und ich bekomme das nicht weg. Wenn ich Text
in Spalten mache, sind alle anderen Zei...
13.03.2009 13:50:22
Thread-ID: 1059860
6 Beiträge
Scrollarea auf mehrere Spalten definieren
Janni

Hallo zusammen,
ich habe folgendes Problem, ich will in meinem Tabellenblatt nur die Spalten A, C und E editierbar machen, d.h. man soll auf die Spalten B und D nicht klicken dürfen bzw. den Zelleninhalt nicht ändern können. Ich habe probiert es über die ScrollArea festzulegen. Ich kann in...
27.03.2009 11:07:02
Thread-ID: 1064529
6 Beiträge
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
3 Beiträge
Anzeige
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Autofilter für Spalten?
Timo

Hallo,
ich würde gern über ein Makro gewisse Spalten ausblenden.
In der Beispieldatei über den u.s. Link sollen alle Spalten ausgeblendet (also versteckt) werden, die eine "0" in Zeile 1 aufweisen. Überall, wo eine "1" steht, sollen die Spalten weiterhin lesbar sein.
https://www.h...
12.07.2009 18:07:56
Thread-ID: 1087997
9 Beiträge
Anzeige
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Anzeige
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige