Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 19:40:18
Prüfen ob Datei offen
22.10.2025 19:07:50
Bedingtes kopieren in andere A.-Blätter u. VBA Anpassungen
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array in Array via Split Funct.=Deklarationsprobl.

Forumthread: Array in Array via Split Funct.=Deklarationsprobl.

Array in Array via Split Funct.=Deklarationsprobl.
Andreas
Hallo Excel Enthusiasten,
ich nage grad an einem Problem betreffend die Split Funktion und deren Ergebnisdarstellung in Arrayform. Die Split Funktion hat mir schon oft viel Freude bereitet, aber heute scheitere ich daran alle Ergebnisse eines zweistufigen Split Verfahrens in einem Array darzustellen. Der erste Split soll auf „/“ erfolgen. Dann wird das Ergebnisarray durchlaufen und alle gesplitteten Einträge werden ihrerseits auf Blank gesplittet und deren Ergebnisarray soll dann an die Position im ersten Array geschrieben werden. Einmal bekomme ich den Fehler, daß ein DatenFeld erwartet wird, das andere Mal, das die Typen unverträglich sind. Die Crux ist m.E. nach das das Split Array als String deklariert sein muß. Ich habe schon überlegt über Hilfsschleifen die Ergebnisse an ein anderes Array zu übergeben, welches nicht als String deklariert ist. Aber es wäre schön, einen direkteren Weg zu finden.
Anbei ein kleiner Beispielcode in der Datei in Modul1:
https://www.herber.de/bbs/user/76675.xls
Ich würde mich freuen, wenn jemand etwas Zeit für eine Lösungsinspiration hat.
Vielen Dank und Gruß, Andreas Hanisch
Anzeige
AW: Array in Array via Split Funct.=Deklarationsprobl.
19.09.2011 16:07:42
Nepumuk
Hallo,
das geht so nicht. Einmal ein String immer ein String. Das würde sonst Kuddelmuddel im Arbeitsspeicher erzeugen.
Gruß
Nepumuk
AW: Array in Array via Split Funct.=Deklarationsprobl.
19.09.2011 16:26:00
Tino
Hallo,
ersetze doch einfach das / durch ein Leerzeichen und splitte diesen String.

Dim arrSplit, strText$, n&
strText = "alpha beta gamma/delta epsilon vau/zeta eta theta"
strText = Replace(strText, "/", " ")
arrSplit = Split(strText, " ")
For n = LBound(arrSplit) To UBound(arrSplit)
Debug.Print arrSplit(n)
Next n
Das was Du vor hast geht so nicht, Du kannst ein Array nicht zwischendrin einfach neu Dimensionieren, wenn müsstest Du schon ein neues Array erstellen und dieses entsprechend groß Dimensionieren und die Daten immer dazuschreiben.

Dim arrSplit, strText$, n&, nn&
Dim NewArray()
strText = "alpha beta gamma/delta epsilon vau/zeta eta theta"

strText = Replace(strText, "/", " ")
arrSplit = Split(strText, " ")

Redim Preserve NewArray(Lbound(arrSplit) To Ubound(arrSplit))
For n = Lbound(arrSplit) To Ubound(arrSplit)
   NewArray(nn) = arrSplit(n)
   nn = nn + 1
Next n


strText = "delta epsilon vau/zeta eta theta alpha beta gamma"

strText = Replace(strText, "/", " ")
arrSplit = Split(strText, " ")

Redim Preserve NewArray(Lbound(NewArray) To nn + Ubound(arrSplit) - Lbound(NewArray))
For n = Lbound(arrSplit) To Ubound(arrSplit)
   NewArray(nn) = arrSplit(n)
   nn = nn + 1
Next n

For n = Lbound(NewArray) To Ubound(NewArray)
   Debug.Print NewArray(n)
Next n
Gruß Tino
Anzeige
AW: Array in Array via Split Funct.=Deklarationsprobl.
19.09.2011 16:35:07
Andreas
Hallo Nepumuk, hallo Tino,
vielen Dank für Eure schnelle Antworten. Ich hatte geahnt, daß es keine Lösung ohne zusätzliche Schleifen gibt, aber nun habe ich die Gewißheit, was auch gut ist. Tinos ersten Vorschlag kann ich nicht nehmen. Ich hatte mich etwas unklar ausgedrückt - ich benötige die gesplitteten Werte schon "gruppenweise". Ich werde die Werte wohl über eine zusätzliche Schleife übergeben lassen.
Vielen Dank Euch beiden für Eure Mühe. Es hat geholfen. Inspiration ist nun da!!!
Grüße aus Berlin, Andreas
Anzeige
AW: Array in Array via Split Funct.=Deklarationsprobl.
19.09.2011 16:42:37
Tino
Hallo,
na dann in etwa so.

Sub ArrayInArraySplit()
Dim arrSplit, varWert, strText$, n&

strText = "alpha beta gamma/delta epsilon vau/zeta eta theta"

arrSplit = Split(strText, "/")

For n = Lbound(arrSplit) To Ubound(arrSplit)
    For Each varWert In Split(arrSplit(n), " ")
        Debug.Print "Gruppe: " & n, "Wert: " & varWert
    Next varWert
Next n

End Sub
Gruß Tino
Anzeige
AW: Array in Array via Split Funct.=Deklarationsprobl.
19.09.2011 16:32:48
Christian
Hallo,
ein Vorschlag:

Option Explicit
Sub ArrayInArraySplit()
Dim i As Integer
Dim ii As Integer
Dim arrSplit As Variant
Dim vntRes() As Variant
Const CstrText As String = "alpha beta gamma/delta epsilon vau/zeta eta theta"
arrSplit = Split(CstrText, "/")
ReDim vntRes(UBound(arrSplit))
For i = 0 To UBound(arrSplit)
vntRes(i) = Split(arrSplit(i))
Next
For i = 0 To UBound(vntRes)
For ii = 0 To UBound(vntRes(i))
Debug.Print i; ii; vntRes(i)(ii)
Next
Next
End Sub

Gruß
Christian
Anzeige
AW: Array in Array via Split Funct.=Deklarationsprobl.
19.09.2011 19:44:46
Andreas
Hi Christian, hallo Tino,
entschuldigt meine späte Antwort. Ich habe die email Replikation lange nicht laufen lassen. Genau so etwas wie in Euren beiden letzten Antworten schwebte mir vor! Total genial und schön knackig kurz. Wow!
Habt Dank und noch einen schönen Abend!
Grüße aus Berlin, Andreas
Anzeige
...Oder so, ...
20.09.2011 02:42:00
Luc:-?
…Andreas:

Sub ArrayInArraySplit()     'Ergebnis listet griech Ziffernnamen untereinander
Const CstrText As String = "alpha beta gamma/delta epsilon vau/zeta eta theta"
Dim i As Integer, j As Integer, arrSplit(), x As Variant
ReDim arrSplit(Len(CstrText) - Len(Replace(CstrText, "/", "")))
For Each x In Split(CstrText, "/")
arrSplit(i) = Split(x)
For j = 0 To Len(x) - Len(Replace(x, " ", ""))
Debug.Print arrSplit(i)(j)
Next j
i = i + 1
Next x
End Sub
Mache ich öfter!
Gruß Luc :-?
Anzeige
;

Forumthreads zu verwandten Themen

VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
ArrayFormel zählenwenn mit VBA?
MBorn

Hallo,
ich versuche schon ein Weilchen, die Anzahl übereinstimmender Werte in Zeilen zu zählen.
mit
{=ZÄHLENWENN(INDIREKT("A"&I$1+1):INDIREKT("G"&I$1+1);$A2:$G2)}
klappt es.
Im blauen Bereich wird geprüft, wie viele Werte aus dem roten Bereich der selben Zeile mit<...
29.06.2009 12:15:01
Thread-ID: 1085034
6 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
Array-Formel funktioniert nicht - VBA-Lösung?
martin

Guten Morgen!
Als Neuling erstmal ein freundliches Hallo an alle. Ich bin neu hier und - natürlich - verzweifelt. Ich soll zur Probenarchivierung eine Excel-Tabelle erfinden, die zwei Dinge können soll:
1. Aus einer Nummer, den Initialen, einem Buchstaben und einer Zahl einen Code gener...
21.11.2012 07:50:22
Thread-ID: 1287487
13 Beiträge
Anzeige
VBA|UserForm For-Each-Schleife zählt nicht korrekt
Mario

Hallo zusammen,
bei folgendem Code zählt meine For-Each Schleife fehlerhaft.
Solange die Tabelle entsprechenden Suchwert beinhaltet, wird auch der richtige Wert angegeben.
Selbst bei einem Eintrag wird auch nur 1 angezeigt.
Wenn die Tabelle aber keinen Eintrag mit diesem Suchwe...
10.07.2013 01:38:15
Thread-ID: 1321752
7 Beiträge
Anzeige
ArrayFormel via VBA einfügen
Chris

Hallo Leute,
ich habe gerade ein Makro aufgezeichnet und würde dieses nun gerne nochmal ausführen. Aber sobald ich das versuche kommt der Fehler: "Die Formel Array Eigenschaft des Range-Objektes kann nicht festgelegt werden."
Waran kann das leigen? Das Makro habe ich doch genau so aufge...
20.11.2014 16:57:21
Thread-ID: 1393542
16 Beiträge
dynamische Arrayformel per VBA
Malte
Hallo!
Zur besseren Beschreibung meines Problems, habe ich eine Beispieldatei angehängt.
https://www.herber.de/bbs/user/97687.xlsx
Ich würde gerne mit den gelb hinterlegten Feldern die Trend-Funktion in Excel benutzen. Ich habe das ganze per Hand, also mit Excelformeln, in die Spalten...
17.05.2015 18:04:38
Thread-ID: 1426508
6 Beiträge
wie schreibe ich eine array-formel per vba in zell
gerd

hallo !!!ich möchte das minimum aus a1:a10 (mit ausklammern der 0) bestimmen.dazu benutze ich diese formel:{=MIN(WENN(A1:A10>0;(A1:A10)))}die {} klammern besagen ja nur, dass es sich um ein array handelt, wo man die eingabe mit STRG+SHIFT+ENTER abschliessen muss.nun möchte ich in B1 diese Forme...
23.12.2002 17:03:40
Thread-ID: 196214
5 Beiträge
For Each für Merdim. Array
Ruben
Hi!
Momentan greifen ich auf alle Elemente eines Arrays (da ich nciht weiß wie groß das Array ist (dynamisches ReDim) wie folgt zu:
Dim Datei As Variant
Dim Counter As Integer
Dim KorrektesArray() As Variant
Counter = 0
For Each Datei in DateiArray
If Datei ""
Korr...
08.07.2003 09:42:20
Thread-ID: 278174
3 Beiträge
Matrix Abfrage in VBA FormulaArray
Hartmut_M

Hallo, benötige Hilfe für folgendes Problem:
In einer Tabelle möchte ich die Anzahl der leeren Felder in Spalte G haben, wenn in Spalte B der Text "BSI 2" enthalten ist. Die Anzahl soll dann in einer MsgBox ausgegeben werden. Funktionieren tut es mit folgendem Code:
Sub Fehlende_Einga...
23.03.2005 09:48:41
Thread-ID: 589345
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

Array in Array via Split Funktion in Excel VBA

Schritt-für-Schritt-Anleitung

Um ein Array in ein anderes Array zu splitten, kannst Du die Split Funktion verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Erstelle eine Excel VBA Funktion: Öffne den VBA-Editor mit ALT + F11 und füge ein neues Modul hinzu.

  2. Deklariere die Variablen:

    Dim arrSplit As Variant
Dim vntRes() As Variant
Dim strText As String

  3. Weise einen Wert zu: Setze den Text, den Du splitten möchtest.

    strText = "alpha beta gamma/delta epsilon vau/zeta eta theta"

  4. Verwende die Split Funktion: Teile den Text in zwei Dimensionen:

    arrSplit = Split(strText, "/")
ReDim vntRes(UBound(arrSplit))

  5. Iteriere durch das Array: Füge die gesplitteten Werte in das neue Array ein.

    Dim i As Integer
For i = 0 To UBound(arrSplit)
   vntRes(i) = Split(arrSplit(i), " ")
Next

  6. Gib die Werte aus: Verwende eine Schleife, um die Werte anzuzeigen.

    Dim j As Integer
For i = 0 To UBound(vntRes)
   For j = 0 To UBound(vntRes(i))
       Debug.Print vntRes(i)(j)
   Next j
Next i

Häufige Fehler und Lösungen

  • Fehler: "Datenfeld erwartet"
    Dieser Fehler tritt auf, wenn Du versuchst, ein Array mit einem inkompatiblen Datentyp zu umgehen. Stelle sicher, dass Du das Array richtig deklariert hast.

  • Typen unverträglich
    Achte darauf, dass Du die Daten korrekt in den Variablen speicherst. Wenn Du ein String-Array verwendest, stelle sicher, dass alle Daten als String deklariert sind.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, ein Array zu splitten:

  • Ersetzen und Splitten: Anstatt einen direkten Split durchzuführen, kannst Du erst die Trennzeichen ersetzen. Beispiel:

    strText = Replace(strText, "/", " ")
arrSplit = Split(strText, " ")

  • VBA Arrays verwenden: Du kannst auch mit Redim Preserve arbeiten, um die Größe des Arrays dynamisch anzupassen, ohne die bestehenden Daten zu verlieren.

Praktische Beispiele

Hier sind einige praktische Beispiele, die Du in Dein VBA-Projekt integrieren kannst:

  1. Ein einfaches Split Beispiel:

    Sub BeispielSplit()
   Dim arr As Variant
   arr = Split("A,B,C,D", ",")
   Dim i As Integer
   For i = LBound(arr) To UBound(arr)
       Debug.Print arr(i)
   Next i
End Sub

  2. Gruppenweise Verarbeitung:

    Sub GruppenweiseSplit()
   Dim text As String
   text = "alpha beta gamma/delta epsilon"
   Dim splitArr As Variant
   splitArr = Split(text, "/")
   Dim i As Integer
   For i = 0 To UBound(splitArr)
       Debug.Print "Gruppe " & i & ": " & splitArr(i)
   Next i
End Sub

Tipps für Profis

  • Verwende Option Explicit: Dieser Befehl hilft, mögliche Fehler bei der Variablendeklaration zu vermeiden.

  • Dokumentiere Deinen Code: Schreibe Kommentare, um die Funktionsweise Deines Codes zu erklären, besonders bei komplexen Split-Operationen.

  • Nutze For Each Schleifen: Diese können den Code übersichtlicher machen, besonders wenn Du durch Arrays iterierst.

FAQ: Häufige Fragen

1. Wie kann ich ein Array mit mehreren Dimensionen splitten?
Nutze die Split Funktion in einer Schleife, um die inneren Arrays zu erstellen.

2. Was sind die besten Praktiken beim Arbeiten mit Arrays in VBA?
Verwende Option Explicit, dokumentiere Deinen Code und achte auf die Datentypen. Achte darauf, dass Du Arrays nur mit kompatiblen Datentypen füllst, um Fehler zu vermeiden.

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