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

Mehrere Zahlen aus einer Zelle auslesen

Forumthread: Mehrere Zahlen aus einer Zelle auslesen

Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:14:03
Andrew
Hallo zusammen,
Ist es möglich Zahlen, die in einer Zelle stehen, auszulesen und nebeneinander aufzulisten?
Also z.B. in Zelle A1 steht =100+100-27+543
und in den Zellen B1 bis E1 stehen die vier eingetragenen Zahlen.
Hier ist eine Beispieldatei
https://www.herber.de/bbs/user/31041.xls
Für eure Hilfe wäre ich sehr dankbar.
Gruß
Andrew
Anzeige

35
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:32:04
Andrew
Hallo André,
leider kann ích die dort angegebenen Hilfen nicht verwenden.
Gruß
Andrew
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:39:43
Sven
Hi,
hat das Ganze auch einen praktischen Nutzen und wenn ja, welchen?
mfg Sveb
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:43:29
Andrew
Hallo Sven,
den hat es, denn sonst würde ich so etwas nicht fragen.
ich erhalte dateien von Kollegen, die mit Excel bisher nicht gearbeitet haben.
Sie tragen Daten die zusammengehören in eine Zelle.
Aber ich muss wissen, welche Zahlen das sind!
Andrew
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:50:57
Andrew
Hallo zusammen,
ich bin weiterhin offen für eure Tipps
Gruß
Andrew
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:55:27
ransi
Hallo
vielicht hilft die das hier weiter:
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:01:20
Andrew
Hallo Ransi,
danke für deine Antwort. Leider kann ich zu schlecht VBA, als dass ich deine Idee dort umsetzen könnte.
Gruß
Andrew
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 17:58:18
Uli
strg + #
mfg Uli
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:02:35
Andrew
Hallo Uli,
das mit strg+# kann ich höchstens bei ein paar Zellen machen.
Aber teilweise habe ich hier Zellen mit 10 oder mehr Zahlen drin.
Gruß
Andrew
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:17:49
ransi
Hallo andrew
Ein normales Modul wirst du aber erstellen können.
Da dann diesen code rein:
Option Explicit
Public 

Function formeltrennen(zelle, zahl As Integer)
Dim operator()
Dim formel As String
Dim zahlen
Dim dummy
Dim i As Integer
operator = Array("=", "+", "-", "*", "\", "/")
dummy = zelle.FormulaLocal
For i = 0 To UBound(operator)
dummy = Replace(dummy, operator(i), "##")
Next
zahlen = Split(dummy, "##")
formeltrennen = zahlen(zahl) * 1
End Function

der aufruf geht dann so:
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:29:49
Andrew
Hallo Ransi,
funktioniert super, echt spitze. Vielen Dank dafür.
Gibt es auch die Möglichkeit, dass die Vorzeichen mitgenommen werden, wenn diese negativ sind?
Gruß
Andrew
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:29:22
schauan
Hallo,
mal das als Ansatz, aber in waagerechter Ausgabe !!!

Function splitter(ByRef zelle As Range) As String
Dim Spalte1%, Spalte2%, splittArr
Spalte1 = zelle.Column
Spalte2 = Application.Caller.Column
splitarr = Split(zelle.Value, "+")
If Spalte2 - Spalte1 - 1 <= UBound(splitarr) Then
splitter = splitarr(Spalte2 - Spalte1 - 1)
Else
splitter = "#"
End If
End Function

VBA:
Menü | Exras | Makros | VBA - Editor
dort Einfügen | Modul
und die Funktion einfügen ...
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:37:46
schauan
... und noch der Hinweis, meine Formel-Auswertung beginnt automatisch ab der ersten Zelle neben der Ausgangszelle, d.h. wenn Deine Zeichenkette in A10 steht muss die Formel in B10 beginnen und bringt da den ersten Wert, in C10 den 2. usw. und wenn nix mehr da ist wird # ausgegeben ..
Grüße, Andre
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:39:41
Andrew
Hallo André,
vielen Dank für deine Hilfe. Ich komme leider nicht so ganz mit deinem VBA-Code zurecht.
Wärst du jetzt sehr sauer, wenn ich dich frage, ob du den VBA-Code von Ransi dir mal anschauen könntest. Er hat auch einen sehr guten Vorschlag gemacht, den ich schon umsetzen konnte.
Aber ich versuche noch die Vorzeichen, wenn sie negativ sind, mitzubekommen.
Gruß
Andrew
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 18:46:42
ransi
hallo
versuch mal so:


Option Explicit
Public Function formeltrennen(zelle, zahl As Integer)
Dim operator()
Dim operatorersetz()
Dim formel As String
Dim zahlen
Dim dummy
Dim i As Integer
operator = Array("=", "+", "-", "*", "\", "/", "(", ")")
operatorersetz = Array("##", "##", "##-", "##", "##", "##", "##", "##")
dummy = zelle.FormulaLocal
For i = 0 To UBound(operator) / 2
    dummy = Replace(dummy, operator(i), operatorersetz(i))
Next
zahlen = Split(dummy, "##")
formeltrennen = zahlen(zahl) * 1
End Function

     Code eingefügt mit Syntaxhighlighter 4.0

ransi
Anzeige
kommando zurück
14.02.2006 18:53:30
ransi
hallo
ist noch nicht ganz ausgereift.
ransi
AW: kommando zurück
14.02.2006 18:56:14
Andrew
Hallo Ransi,
bist du sicher? Es funktioniert aber schon sehr gut!
Super, vielen Dank
Gruß
Andrew
AW: kommando zurück
14.02.2006 18:58:10
ransi
hallo
so sollte es gehn:


Option Explicit
Public Function formeltrennen(zelle, zahl As Integer)
Dim operator()
Dim operatorersetz()
Dim formel As String
Dim zahlen
Dim dummy
Dim i As Integer
operator = Array("=", "+", "-", "*", "\", "/", "(", ")")
operatorersetz = Array("##", "##", "##-", "##", "##", "##", "", "")
dummy = zelle.FormulaLocal
For i = 0 To UBound(operator)
    dummy = Replace(dummy, operator(i), operatorersetz(i))
Next
zahlen = Split(dummy, "##")
formeltrennen = zahlen(zahl)
End Function

     Code eingefügt mit Syntaxhighlighter 4.0

ransi
Anzeige
AW: kommando zurück
14.02.2006 18:58:36
Andrew
Hallo Ransi,
vielleicht hast du recht. Wenn eine negative Zahl zuerst hinter dem = steht, gibt es einen Fehler und die Formel überspringt diese Zahl.
Gruß
Andrew
Funktioniert spitze, Vielen Dank! Super
14.02.2006 19:02:14
Andrew
Hallo Ransi,
funktioniert spitze, die Zahlen werden in der nächsten Zelle weitergeführt. Es verschiebt sich einfach nur eine Zelle nach rechts.
Ich danke dir ganz herzlich! Du hast mir sehr sehr gut geholfen.
Viele Grüße
Andrew
Anzeige
hm..
14.02.2006 19:03:47
ransi
DAS wiederum hatte ich noch garnicht bemerkt.
letzter versuch für heute:
Option Explicit
Public 

Function formeltrennen(zelle, zahl As Integer)
Dim operator()
Dim operatorersetz()
Dim formel As String
Dim zahlen
Dim dummy
Dim i As Integer
operator = Array("=", "+", "-", "*", "\", "/", "(", ")")
operatorersetz = Array("", "##", "##-", "##", "##", "##", "", "")
dummy = zelle.FormulaLocal
For i = 0 To UBound(operator)
dummy = Replace(dummy, operator(i), operatorersetz(i))
Next
zahlen = Split(dummy, "##")
formeltrennen = zahlen(zahl)
End Function

wenn da auch noch was auftaucht stell die frage auf offen.
Ich hoffe da wird jemand anderes dann weiter helfen.
ransi
Anzeige
Jetzt ist es vollbracht! Perfekt! Besten Dank!
14.02.2006 19:08:16
Andrew
Hallo Ransi,
jetzt ist es vollbracht. Deine Lösung funktioniert perfekt.
Fantastisch. Die Sache ist auf keinen Fall noch offen.
Nochmals herzlichsten Dank!
Gruß
Andrew
anderer Ansatz
14.02.2006 20:19:07
Reinhard
Hallo,
da war ich wohl zu langsam, naja kleiner Bug ist noch drinnen.
C1: =-4+3+4-7+8-56-78-789+3
extrahiert sauber nach D1:L1 , aber M1 und ff haben #Wert, trotz der Iif-Abfrage
Option Explicit
Function tt(zelle As Range)
Dim Satz, Satz2, Satz3(), n, nn, anz, pos
Satz = Split(Mid(zelle.FormulaLocal, 2), "-")
For n = 0 To UBound(Satz)
Satz(n) = "-" & Satz(n)
If n = 0 And Mid(zelle.FormulaLocal, 2) <> "-" Then Satz(n) = Mid(Satz(n), 2)
Satz2 = Split(Satz(n), "+")
For nn = 0 To UBound(Satz2)
ReDim Preserve Satz3(anz)
Satz3(anz) = Satz2(nn)
anz = anz + 1
Next nn
Next n
pos = Application.Caller.Column - zelle.Column - 1
tt = IIf(UBound(Satz3) < pos, "", Satz3(pos))
End Function

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Funktioniert Klasse! Vielen Dank!
15.02.2006 11:32:39
Andrew
Hallo Reinhard,
vielen Dank für deine Hilfe. Dein VBA-Code arbeitet hervorragend. Ich habe in die Zelle einfach geschrieben =tt(Zelle) und es funktioniert einwandfrei!
Dein Code ist echt klasse. Das hat mir auf jeden Fall geholfen. Vielen Dank dafür.
Gruß
Andrew
und nun noch ohne VBA
14.02.2006 20:01:26
MichaV
Hallo,
hier interessehalber noch eine Lösung ohne VBA.
Anzeige
AW: und nun noch ohne VBA
15.02.2006 07:33:41
schauan
... Formel funktioniert perfekt.
Grüße, Andre
AW: und nun noch ohne VBA
15.02.2006 21:20:38
MichaV
Hallo Andrew,
Fehler von mir. Stelle den Cursor in B1 und vergib den besagten Namen:
string bezieht sich auf:

=" "&GLÄTTEN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(ZELLE.ZUORDNEN(6;Tabelle1!$A1);"+";" ");"-";" -");"/";" ");"*";" ");":";" ");"=";" "))&" "

Sorry!
Gruß- Micha
Anzeige
AW: und nun noch ohne VBA
16.02.2006 07:45:44
schauan
Hallo Micha,
wo der Cursor steht ist nicht unbedingt die Ursache für die Fehlermeldung. Wenn er in einer anderen Zelle steht wird nix oder ein Teil von dem was sonst drinsteht als Ergebnis angezeigt. Eventuell hat er sich in der Formel verschrieben.
AW: und nun noch ohne VBA
16.02.2006 08:02:56
schauan
Hallo Micha,
wo der Cursor steht ist nicht unbedingt die Ursache für die Fehlermeldung. Wenn er in einer anderen Zelle steht wird nix oder ein Teil von dem was sonst drinsteht als Ergebnis angezeigt. Eventuell hat er sich in der Formel verschrieben.
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 21:07:02
bst
Auch just for fun,
und noch eine Variante mit RegEx.
cu, Bernd
--
Option Explicit

Sub SplitRange()
Dim cell As Range, re As Object, mc As Object, i%
Set re = CreateObject("vbscript.regexp")
re.Pattern = "-?\d+"
re.Global = True
For Each cell In Selection
Set mc = re.Execute(cell.FormulaLocal)
For i = 0 To mc.Count - 1
cell.Offset(0, i + 1) = mc(i)
Next
Next
Set mc = Nothing
Set re = Nothing
End Sub

Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 23:17:17
Tim
Laut EU-Richtlinie sind Reguläre Ausdrücke nur in VB-Net legal! MS besitzt die Rechte
und droht härteste Verfolgung an.
Grüße Tim
AW: Mehrere Zahlen aus einer Zelle auslesen
14.02.2006 23:59:45
Reinhard
Hallo Tim,
ich bin vba-Laie, kenne/kannte deshalb regex nicht, und kenn vb.net nur vom Namen her dass es das gibt.
Soll das heissen, ich hab legal Excel2000 und dementsprechendes vba, ich fnde einen Codeschnitzel im Internet , der das macht was ich will , und da ist halt regex oder was anderes drin was anscheinend verboten ist, ich mache mich bei Benutzung strafbar?
Das hätte doch MS verhindern können indem regex in vba nicht funktioniert.
Blick da grad nicht durch.
Hast du da weitergehende Informationen? Bitte keine 520 Seitige EU-Richlinie:-)
Gruß
Reinhard
Anzeige
AW: Mehrere Zahlen aus einer Zelle auslesen
15.02.2006 07:51:16
schauan
Hallo Reinhard,
... ist doch noch gar nicht April. Da BillyBoy auch die Rechte an vbscript gehören müsste Mickysoft sich ja selbst verklagen ;-))) Und dann noch die armen user anderer Programmiersprachen und Betriebssysteme. Also lasse Tim mal die 520 Seiten hier einstellen, aber bitte reich bebildert und in bester Druckqualität - und Durchführungsbestimmungen und Aktenzeichen nicht vergessen ...
Alle Angaben wie immer ohne Gewähr - sagte schon die Lottofee.
Grüße, Andre
Anzeige
AW: EU-Richtlinie ;-)
15.02.2006 08:47:03
bst
Morgen Tim,
Mir scheint Du bist da auf einen Hoax hereingefallen. Es handelt sich bei dieser Mitteilung vielmehr um einen Versuch des dunklen Imperiums die Effektivität der Programmierer zu minimieren.
One OS to rule them all, One OS to find them,
One OS to bring them all and in the darkness bind them.
cu, Bernd
--
No letters of the alphabet were harmed in the creation of this message.
Anzeige

Forumthreads zu verwandten Themen

mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Teilen von Zahlen in einer Zelle
Zahlen

Hallo
Ich habe in der Spalte E ca. 16'000 Zeilen mit Zahlenwerten die untereinander mit einem Komma getrennt sind
Beispiel einer solcher Zelle
350,166,12,45
Mein Wunsch ist es nun all diese Zahlen je Zelle einzeln aufzuteilen. Dies als VBA-Variante (?).
Also so, am Beispie...
10.11.2009 09:00:10
Thread-ID: 1115710
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Mehrere kriterien in einer Zelle
Gallier1

Hallo
habe folgendes problem:
A1 =WENN(UND(A8=O$1;T8<=10000;U8<=10000;<b>C8="C"oder"B"oder"A</b>");O$3;"")
Der Fett dargestellte Bereich stimmt nicht in meiner Formel. Ohne diesem Bereich funktioniert sie problemlos (Dank des UMFANGREICHEN Forums) In C8 gibt es...
11.08.2010 16:15:53
Thread-ID: 1171752
11 Beiträge
mehrere werte in einer Zelle
knab

Hallo,
ich würde gerne in einer Zelle Ergebnisse aus mehreren zellen zusammenfassen.
Beispiel:
a1 = 30
a2= 40
a3 = 50
Ziel ist jetzt a4. Hier soll stehen 30,40,50
geht das und kann mir jemand die Formel hierfür geben.
Vielen Dank
16.09.2010 10:44:09
Thread-ID: 1178021
4 Beiträge
Mehrere Code in einer Zelle
Gregor

Hoi zäme
Folgender Code hat mir Rudi zum löschen von Zeilen zugestellt, wenn in Zellen Code nicht vorhanden:
AnfangInput = 1600
EndeInput = 1800
For z = 10 To intLastRow - 1
Set rngW = Union(Range(Cells(z, 18), Cells(z, 21)), Range(Cells(z, 23), Cells(z, 27)))
If Applica...
11.10.2011 11:45:52
Thread-ID: 1233309
5 Beiträge
Anzahl ungleiche Zellen mit einer Bedingung zählen
Ingo4711

Hallo Forum,
ich möchte euch um Hilfe beim Zählen bitten.
Ich habe rund 5.000 Zeilen mit Auftragsdaten. Für alle Artikel eines jeden Auftrags möchte ich die Anzahl der unterschiedlichen Lieferanten zählen. Mit der Formel Summenprodukt bekomme ich die Bedingung 'zähle nur unterschiedlich...
28.10.2011 11:51:26
Thread-ID: 1235775
7 Beiträge
Mehrere Zelleninhalte in einer Zelle anzeigen
JAT

Hallo liebes Forum,
ein "Detailproblem", wo ich zwar die Hälfte des Problems gelöst habe, aber einfach nicht weiterkomme :-(.
Beschreibung (unten mit Excel-Beispiel):
Es gibt zwei Spalten, deren Inhalte mit der Und(&)-Funktion verbunden und in einer Zelle dargestellt werden soll...
13.04.2012 21:47:56
Thread-ID: 1259201
5 Beiträge
Anzeige

Infobox / Tutorial

Zahlen aus einer Zelle in Excel extrahieren

Schritt-für-Schritt-Anleitung

Um in Excel mehrere Werte aus einer Zelle auszulesen und in benachbarte Zellen aufzulisten, kannst Du eine benutzerdefinierte VBA-Funktion verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Klicke auf „Einfügen“ und wähle „Modul“ aus.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Option Explicit
Public Function formeltrennen(zelle As Range, zahl As Integer)
   Dim operator()
   Dim formel As String
   Dim zahlen
   Dim dummy
   Dim i As Integer
   operator = Array("=", "+", "-", "*", "\", "/")
   dummy = zelle.FormulaLocal
   For i = 0 To UBound(operator)
       dummy = Replace(dummy, operator(i), "##")
   Next
   zahlen = Split(dummy, "##")
   formeltrennen = zahlen(zahl) * 1
End Function

  4. Schließe den VBA-Editor.

  5. Verwende die Funktion in Excel, indem Du in die Zelle B1 schreibst:

    =formeltrennen(A1, 0)

    Um die Werte in den Zellen C1, D1, E1 usw. zu erhalten, ändere die Zahl am Ende der Funktion (0 für den ersten Wert, 1 für den zweiten Wert usw.).

Häufige Fehler und Lösungen

  • Fehler: #WERT!

    • Lösung: Stelle sicher, dass die Zelle mit der Formel tatsächlich eine gültige Formel ist. Prüfe auch, ob die Zellreferenz korrekt ist.

  • Fehler: Negative Zahlen werden nicht erkannt

    • Lösung: Du kannst den VBA-Code anpassen, um auch negative Zahlen zu berücksichtigen. Verwende den folgenden modifizierten Code:
    Option Explicit
Public Function formeltrennen(zelle As Range, zahl As Integer)
   Dim operator()
   Dim operatorersetz()
   Dim formel As String
   Dim zahlen
   Dim dummy
   Dim i As Integer
   operator = Array("=", "+", "-", "*", "\", "/", "(", ")")
   operatorersetz = Array("", "##", "##-", "##", "##", "##", "", "")
   dummy = zelle.FormulaLocal
   For i = 0 To UBound(operator)
       dummy = Replace(dummy, operator(i), operatorersetz(i))
   Next
   zahlen = Split(dummy, "##")
   formeltrennen = zahlen(zahl)
End Function

Alternative Methoden

Wenn Du keine VBA-Programmierung nutzen möchtest, kannst Du auch die Funktion TEXTSPLIT() (Excel 365) verwenden, um mehrere Zahlen aus einem Text zu extrahieren. Diese Funktion ist besonders nützlich, wenn die Zahlen durch bestimmte Zeichen getrennt sind.

Beispiel:

=TEXTSPLIT(A1, "+")

Praktische Beispiele

  1. Beispiel mit VBA:

    • Wenn in Zelle A1 die Formel =100+200-50+75 steht, kannst Du die Funktion formeltrennen aufrufen, um die Werte in B1 bis E1 aufzulisten: 
      =formeltrennen(A1, 0)  ' Gibt 100 zurück
=formeltrennen(A1, 1)  ' Gibt 200 zurück
=formeltrennen(A1, 2)  ' Gibt -50 zurück
=formeltrennen(A1, 3)  ' Gibt 75 zurück

  2. Beispiel ohne VBA:

    • Verwende die TEXTSPLIT()-Funktion, um Werte zu extrahieren, wenn Du nicht mit VBA arbeiten möchtest.

Tipps für Profis

  • Experimentiere mit verschiedenen Trennzeichen in TEXTSPLIT(), um unterschiedliche Datenformate zu verarbeiten.
  • Dokumentiere Deinen VBA-Code gut, damit Du ihn später leicht anpassen kannst.
  • Verwende die Debug.Print-Anweisung in VBA, um den Verlauf der Variablen zu überwachen und Fehler leichter zu identifizieren.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Werte aus einer Zelle auslesen? Um mehrere Werte aus einer Zelle auszulesen, kannst Du eine benutzerdefinierte VBA-Funktion erstellen, die die Formel analysiert und die einzelnen Zahlen extrahiert.

2. Funktioniert das auch in älteren Excel-Versionen? Die VBA-Lösungen funktionieren in allen Excel-Versionen, die VBA unterstützen. Die TEXTSPLIT()-Funktion ist jedoch nur in Excel 365 verfügbar.

Beliebteste Forumthreads (12 Monate)

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