Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
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
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

3-dimensionales Array

3-dimensionales Array
24.11.2015 10:33:01
Sascha
Hallo!
Wie kann ich ein 3-Dimensionales-Array deklarieren mit unbestimmter Größe?
Also ich möchte im Prinzip eines haben, was die Größe individuell erweitert, je nachdem was ich speicher... Wenn das nicht geht muss ich es halt anders lösen.
Dim array(,,) As String
array(0,0,0) = 1.0
array(0,0,1) = 1.1
etc....

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 3-dimensionales Array
24.11.2015 10:54:33
fcs
Hallo Sascha,
mit ReDim oder Redim Preserve kannst du Arrays dynmisch anpassen.
ReDim erzeugt ein Array mit fixer Größe in den Dimensionen.
Redim Preserve ist dabei die letzte Dimension variabel.
Gruß
Franz 
Sub Test()
Dim arrText() As String, intK As Integer
intK = -1
intK = intK + 1
ReDim Preserve arrText(0 To 3, 0 To 1, 0 To intK)
arrText(0, 0, intK) = 1#
arrText(1, 0, intK) = 1.1
arrText(2, 0, intK) = 3.3
arrText(3, 0, intK) = 4
arrText(0, 1, intK) = 5
arrText(1, 1, intK) = 6
arrText(2, 1, intK) = 8
arrText(3, 1, intK) = 7
intK = intK + 1
ReDim Preserve arrText(0 To 3, 0 To 2, 0 To intK)
arrText(0, 0, intK) = 4
arrText(1, 0, intK) = 3.2
'usw.
End Sub

Anzeige
AW: 3-dimensionales Array
24.11.2015 12:09:25
Rudi
Hallo,
würde ich in ein Dictionary packen. 
Sub yyy()
Dim x As Integer, y As Integer, z As Integer
Dim objArray As Object
Const sDelim As String = "|"
Set objArray = CreateObject("Scripting.Dictionary")
For z = 1 To 71
For y = 1 To 63
For x = 1 To 30
objArray(Join(Array(x, y, z), sDelim)) = Rnd
Next x
Next y
Next z
'Beispielausgabe
MsgBox objArray(Join(Array(21, 52, 32), sDelim))
End Sub

Gruß
Rudi

Und noch eine hochvariable Lösung, ...
24.11.2015 17:09:27
Luc:-?
…Sascha;
nimm einen Variant mit einem Array und zwar als Arrays in einem Array organisiert, das gleiche Prinzip wie bei ParamArray als variable Parameter­Eingabe und Folgendem: varAiA = Array(Array(Array(1, 2, 3), Array(4, 5, 6)), Array(Array(7, 8), Array(8, 0)))
Ein Variant wird als Vektor ReDimensioniert und seine Elemente ebenfalls mit Vektoren gefüllt, die genauso vorbereitet wdn. D.h., zuerst muss die 3.Ebene fertig sein, die ebenfalls aus Vektoren besteht. Dann diese in die Elemente eines Vektors für die 2.Ebene übertragen. Das dann für jedes Element des Vektors der 1.Ebene ebenfalls tun.
Alle Vektoren aller Ebenen sind dann 1dimensional. Ein Einzelwert wird dann so identifiziert:
varAiA(indexEbene1)(indexEbene2)(indexEbene3)
Mit varAiA(indexEbene1)(indexEbene2) erhält man den jeweiligen GesamtVektor mit allen seinen Elementen und mit varAiA(indexEbene1) den jeweils nachgeordneten Array-Variant.
Vorteil: Jede Ebene kann ReDimensioniert, identifiziert und separat verwendet wdn.
Gruß, Luc :-?
Besser informiert mit …
Anzeige

14 Forumthreads zu ähnlichen Themen

[VBA] Dreidimensionales Array in Tabellen ausgeben
Thomas

Hallo,
ich habe ein Problem mit der Ausgabe eines Arrays in eine Excel-Tabelle.
Ausgangspunkt ist folgender: With ThisWorkbook.Worksheets(1) .Cells(4, l).Resize(UBound(array, 1), UBound(array, 2)).Value = array End With
Das Array 'array' ist hierin zweidimensional, l wird durch...
06.10.2009 10:25:00
Thread-ID: 1107423
5 Beiträge
Anzeige
3dimensionales Array aus Funktion an Sub übergeben
Sam

Hallo,
ich erzeuge in einer Funktion ein zweidimensionales Array, dieses array bekomme ich jedoch nich an eine Sub, um es dann im Blatt auszugeben.
Wie muss ich hier vorgehen?
18.07.2013 08:43:24
Thread-ID: 1323004
4 Beiträge
3 dimensionales Array
Martin

Hallo zusammen,
ich will eine feste Exceldatenbank erstellen, welche 3 Dimensionen haben soll
1. Buchungstag (1.1-31.12)
2. Segment (1-3)
3. Reisemonat (1-12)
Als Datenbank stelle ich mir folgende starre Struktur vor (siehe auch Anhang)
https://www.herber.de/bbs/user/94...
24.12.2014 15:17:58
Thread-ID: 1399540
2 Beiträge
Anzeige
Mehrdimensionales Array mit Range-Funktion füllen | Herbers Excel-Forum"
Christian
Hallo,
ich habe ein kleines Problem bei der Befüllung eines mehrdimensionalen Arrays. Kurz zum Hintergrund, ich habe eine Excel Tabelle mit 15 Spalten und einer variablen Anzahl an Zeilen. Aus dieser Tabelle möchte ich bestimmte Zeilen in ein Array schreiben und diese in ein neues Tabellenblatt...
29.07.2016 11:32:01
Thread-ID: 1506882
22 Beiträge
Mehrdimensionales Array mit Range-Funktion füllen | Herbers Excel-Forum"
Christian
Hallo,
ich habe ein kleines Problem bei der Befüllung eines mehrdimensionalen Arrays. Kurz zum Hintergrund, ich habe eine Excel Tabelle mit 15 Spalten und einer variablen Anzahl an Zeilen. Aus dieser Tabelle möchte ich bestimmte Zeilen in ein Array schreiben und diese in ein neues Tabellenblatt...
29.07.2016 11:32:43
Thread-ID: 1506883
5 Beiträge
VBA: Array von Textboxen mit Zellwerten befüllen
Textboxen

Hallo zusammen,
ich möchte gerne folgendes erreichen: Aufgrund des 255 Zeichenlimits für Textboxen/-felder, möchte ich - im vorliegenden Fall 4 - mehrere Textboxen mit dem Inhalt bestimmter Zellen befüllen.
Exemplarisch für eine einzelne Box sieht mein Code wie folgt aus: Sub FillTextBo...
14.08.2018 10:04:50
Thread-ID: 1639266
4 Beiträge
VBA: zweidimensionale Variablen (Array)
Dirk

Hallo,
ich verzweifle gerade an einem (eher leichten) VBA-Problem:
irgendwas stimmt an der unteren Schleife nicht(relevanter Code-Ausschnitt); VBA kompiliert zwar, aber die Berechnung im Excel-Sheet funktioniert nicht: #WERT!)
Ich erläre kurz, was ich mit dieser Schleife bezwecken w...
02.12.2007 10:13:28
Thread-ID: 931397
10 Beiträge
dynamische Array-Größe in VBA
Jana

Hallo liebes Forum!!
Wie kann die Größe eines Arrays abhängig von der Größe zweiten Arrays initialisieren?
Bsp.: ich habe folgendes Array 1 dynamisch in VBA initialisiert:
Array_1=Range(Cells(2,1),Cells(Row.Count,4).end(xlUp))
Dieses passt sich automatisch an gefüllte Zellen an....
23.05.2008 16:16:21
Thread-ID: 980047
4 Beiträge

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
4
1
3
1
3
21
4
3
9
3
6
3
9
9