Grundsatzfrage Deklaration Array+Filter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Da sind einige Probleme zum Verständnis von VBA Arrays...
Variant ist kein automatisches Erstellen von Array
du kannst z.b. auch ein Array erstellen mit
Dim MeinArray (10) as Integer
(damit erstellst du ein Array mit 10 Werten die aber alle Integer sein müssen), das geht auch mit anderen Datentypen
Das Variant hat einen größeren Speicherbereich....
Du kannst nicht die Größe eines Arrays einfach so ändern, dazu brauchst du ReDim
Bedeutet wenn du in einem Array einen neuen Wert einfügen willst, musst du vorher mit ReDim Preserve das Array erweitern, erst dann den neuen Wert einpflegen. Dabei musst du drauf achten, das du natürlich dem Array auch sagst, an welcher Stelle er den Wert speichern soll (das machst du in deinen Subs nicht)..
In Statisch:


strNamen() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams", "Bob Horst")

Korrekte Zuweisung, denn denn dem strNamen() wird nacheinander ein Wert zugeordnet... die du dann mit strNamen(0) etc. aufrufen kannst..


strFiltermenge = Filter(strNamen, "Bob")

falsch
1. ist das Array mit keiner bestimmten Größe initialisiert worden
2. wird nicht ein bestimmtest Element angesprochen
3. Es findet kein ReDim statt
Arrays die automatisiert eine Größe errechnet bekommen , haben immer 2 Dimensionen....


StellenPlanArray = Sheets("Stellenplan").Range("A1:BZ" & letzteZeile)
' zurgriff mit :
StellenPlanArray((i + 1), (PointerJahr + Monat))

Liegt daran, das VBA deine Initialisierung als Range-Objekt betrachtet...
Schau mal hier, da ist es ganz gut erklärt..
https://docs.microsoft.com/de-de/office/vba/language/concepts/getting-started/declaring-arrays
https://www.automateexcel.com/de/vba/deklarieren-erstellen-initialisieren-array-variablen/#:~:text=Eine%20VBA-Array-Variable%20kann%20man%20sich%20als%20eine%20Gruppe,Ein%20Array%20kann%20Text%2C%20Zahlen%20oder%20Objekte%20speichern.

Hi
Nach Dim x kannst du an x alles anhängen, Einzelwerte, Objekt, Array
Arrays kannst du entweder als ganzes zuweisen oder nach Redimensionierung auf eine bestimmte Größe auch die Einzelstellen des Arrays füllen.
Nach Dim x() kannst du nur noch Arrays anhängen oder redimensionieren, aber keine Einzelwerte oder Objekte mehr zuweisen.
Alles was du bei DIM angibst, gilt unveränderlich im ganzen Makro.
Alles was du offen lässt, kannst du mit ReDim nachträglich ändern.
Aufpassen muss man hier (x als Variante):
bei x = Range("A1").Value wird x eine normale Einzelwertvariable
bei x = Range("A1:A2").Value wird x ein Array.
Hat man also einen variablen Zellbereich, der auch mal nur eine Zelle umfassen kann, muss man das Abfragen und differenziert programmieren.
Hier mal ein Beispiel, wie man in beiden Fällen ein Array bekommt; damit man einheitlich weiterarbeiten kann:


Dim x
Dim rng as Range
Set rng = ... Berechneter Zellbereich ...
If rng.cells.count = 1 then
Redim x(1 to 1, 1 to 1)
x(1, 1) = rng.value
Else
x = rng.value
End if

Damit ist x immer ein Array, auch bei einem einzelligen Zellbereich und du kannst den Rest einheitlich für Array programmieren.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Grundsatzfrage Deklaration Array+Filter

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread