Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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..
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
Anzeige
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

304 Forumthreads zu ähnlichen 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
Anzeige
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
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
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

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
2
15
2
3
5
5
2
4
8
18
1
8
4
1
2
2
2
5
3
3
5
2
5
4