Handling von Arrays

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Peter,
wenn ich Dich richtig verstehe möchtest Du ein dynamisches Array erstellen. Also ein Array, bei dem die Anzahl der aufzunehmenden Elemente vorher nicht absehbar ist. In diesem Fall ist die ReDim Anweisung absolut korrekt. Ob Du allerdings ein 9-dimensionales Array (10 Spalten) meinst, das bezweifle ich. Das Handling wäre zudem äusserst aufwendig. Ich empfehle Dir deshalb ein Array mit einem benutzerdefiniertem Datentyp. Bsp. für Typerstellung und Arraydeklaration:
*****************************************
Type Personaldaten
VName As String
FName As String
Anschrift As String
...
...
End Type
Dim arrPersonen() As Personaldaten
***************************************************
Um die Schleife beim Füllen wirst du wohl kaum herumkommen. Nehmen wir einmal an, Deine Daten befinden sich im Bereich A1:J2 (ohne Spaltenüberschrift, also gleich die puren Daten) In Spalte A 'Max', Spalte B 'Mustermann' usw. Du könntest es dann so füllen lassen:
******************************************
Sub Einlesen()
Dim Wert, Bereich$, Spaltenzaehler%, Zeihlenzaehler%
Bereich = "A1:J2"
For Each Wert In Range(Bereich).cells
Redim Preserve arrPersonen(Spaltenzaehler)
Select Case Spaltenzaehler
case 0 : arrPersonen(zeilenzaehler ).VName = Wert : spaltenzaehler = spaltenzaehler + 1
case 1 : arrpersonen(zeilenzaehler ).FName = wert : spaltenzaehler = spaltenzaehler + 1
case 2 : arrPersonen(zeilenzaehler ).Anschrift = wert : spaltenzaehler = spaltenzaehler + 1
....
....
case 9 : arrpersonen(Spaltenzähler).Telefon = wert : zeilenzaehler = zeilenzaehler + 1 : spaltenzaehler = 0
End select
next
*************************************************************
Auslesen könntest Du dann in etwa so:
*****************************************************
msgbox arrPersonen(1).VName & ", " & arrpersonen(1).FName
*********************************************************
Ich hoffe, ich konnte Dir helfen.
Ciao, Ralf

Option Explicit Option Base 1 Private Sub CommandButton1_Click() Dim Arr() Dim TmpArr() Dim x% ReDim Arr(1, 4) 'Arr ist nun ein 2D- Array mit 1 "Zeile" und 4 "Spalten" '1. Dimension um x erweiten, geht mit ReDim nicht x = 1 TmpArr = Application.WorksheetFunction.Transpose(Arr) 'TmpArr hat nun 4 Zeilen und 1 Spalte Erase Arr 'Arr löschen... ReDim Preserve TmpArr(UBound(TmpArr, 1), UBound(TmpArr, 2) + x) '...und TmpArr mit zusätzlichen x Spalten(Zeilen) neu Dimensionieren Arr = Application.WorksheetFunction.Transpose(TmpArr) 'Arr hat nun 1+x Zeilen und 4 Spalten End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Handling von Arrays

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread