Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit VBA Text aufsplitten auf mehrere Zellen

mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 09:46:55
Franzi
Hallo zusammen,
folgende Frage.
ich möchte die Gleichung
A = B + C - D
splitten, sodass jeder Buchstabe in einer seperaten Zelle steht.
mit Teil = Split(Cells(Zeile, 1), "=") kann ich nur A seperieren, wie mache ich das aber mit B,C und D?
Danke für eure Hilfe,
Grüsse
Franzi

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 10:26:21
Daniel
Hi
1. Gleichung in eine Variable lesen 
GL = Cells(Zeile, 1).value
2. In der Variablen alle Rechenzeichen durch das Leerzeichen ersetzen: 
GL = Replace(GL, "=", " ")
GL = Replace(GL, "+", " ")
GL = Replace(GL, "-", " ")
Usw für alle möglichen Zeilen
3. Überzählige Leerzeichen entfernen: 
GL = Worksheetfunction.trim(GL)
4. Auf die einzelnen Zeichen kannst du dann so zugreifen: 
Teil1 = Split(GL, " ")(0)
Teil2 = Split(GL, " ")(1)
Teile = Split(GL, " ")(2)
Usw
Gruß Daniel

Anzeige
AW: mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 10:50:19
fcs
Hallo Franzi,
Daniels Vorschlag mit dem Leerzeichen als Trennzeichen funktioniert bei mir nicht 100%.
Günstiger ist es + und - durch = zu ersetzen, bevor man die Split-Funktion einsetzt.
Gruß
Franz 
Sub TestSplit_2()
Dim strText As String, strSep As String
Dim Zeile As Long
On Error Resume Next
strSep = "=" 'oder anderes Zeichen, das in den Zellinhalten nicht vorkommt
For Zeile = 3 To 5
strText = Cells(Zeile, 1).Text
If strText  "" Then
strText = Replace(strText, "=", strSep)
strText = Replace(strText, "+", strSep)
strText = Replace(strText, "-", strSep)
strText = Trim(strText)
Cells(Zeile, 2) = Trim(Split(strText, strSep)(0))
Cells(Zeile, 3) = Trim(Split(strText, strSep)(1))
Cells(Zeile, 4) = Trim(Split(strText, strSep)(2))
Cells(Zeile, 5) = Trim(Split(strText, strSep)(3))
End If
Next
End Sub

Anzeige
AW: mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 11:07:23
Franzi
boah, das ist echt krass :)
vielen Dank für eure hilfe!!

AW: mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 11:39:14
Daniel
Hast du mal versucht herauszufinden, warum das mit dem Leerzeichen bei dir nicht funktioniert?
Enthalten deine "Variablen" in der Gleichung vielleicht selber ein Leerzeichen?
Gruß Daniel

AW: mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 16:40:04
fcs
Hallo Daniel,
ja der Beispieltext hatte beim Testen Leerzeichen. Ich hatte die von Franzi gepostete Gleichung in eine Zelle kopiert.
Es funktioniert dann, wenn man erst alle Leerzeichen durch "" (Leerstring) ersetzt und danach dann =, + und - durch Leerzeichen ersetzt.
Gruß
Franz

Anzeige
AW: mit VBA Text aufsplitten auf mehrere Zellen
01.10.2014 17:02:59
Daniel
Hi
die mehrfachen Leerzeichen hintereinander, die entstehen, wenn vor und nach den Rechenzeichen Leerzeichen vorhanden sind und man die Rechenzeichenzeichen ebenfalls durch Leerzeichen ersetzt, werden durch das WorksheetFunction.Trim(GL) (Schritt 3) eleminiert und zu einem Leerzeichen zusammengefasst.
Hast du diesen Schritt ebenfalls übernommen?
und wenn ja, hast du dann auch wirklich Worksheetfunction.Trim() verwendet und nicht nur Trim()?
Das sind nämlich zwei unterschiedliche Funktionen.
Worksheetfunction.Trim() elemeniniert die Leerzeichen am Anfang und Ende des Strings, sowie alle mehrfachen Leerzeichen innerhalb des Strings
[VBA.]Trim hingeben eleminiert nur die Leerzeichen am Anfang und Ende, aber nicht die zwischendrin!
Gruß Daniel

Anzeige
Das ginge auch in einem Zug mit einer ...
01.10.2014 13:10:07
Luc:-?
…UDF wie SplitVx, Franzi,
denn die ist u.a. auch speziell für solche Fälle gemacht:
=SplitVx("A = B + C - D";{" = "." + "." - "})
Die UDF findest du im Archiv in einer von mir entsprd ergänzten u. hochgeladenen BspDatei von Oberschlumpf.
Gruß, Luc :-?
Besser informiert mit …

337 Forumthreads zu ähnlichen Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Anzeige
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Wenn/Dann mit vielen Bed. & je Bed. zwei Lösungen
Joerschi

Hallo Excel-Fans,
ich hänge grad ein einem Wenn/Dann-Problem.
Es sollen mehrere Bedingungen geprüft werden (also wahrscheinlich Einbindung der UND-Funktion) und wenn diese alle erfüllt sind, dann gibts ein Ergebnis A. Wenn nicht erfüllt, dann Ergebnis B.
Soweit klingts einfach - der...
12.02.2009 12:28:00
Thread-ID: 1050000
5 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 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
2
2
10
2
3
1
2
3
4
2
7
2
12
7
2
2
4
2
6
3
4
4
2
40
1