Feststellen ob Array dimensioniert ist

Hallo VBA Experten,
Ich hab einen Codeschnipsel, mit dem ich prüfe, ob ein Array bereits dimensioniert ist oder ob es richtig dimensioniert ist. In beiden Fällen dimensioniere ich es neu und fülle es mit Daten.
Das Ganze mache ich mehrmals für verschieden Arrays.
Meine Frage ist nun, wie ich den Code evtl. vereinfachen bzw. verallgemeinern kann.
- Leider kann die Abfrage ob das Array dimensioniert ist oder ob es die richtige Größe hat nicht mit OR in der selben Zeile stehen.
- Die Redimensioniereung kann ich auch nicht außerhalb der If Anweisung schreiben, weil sonst immer befüllt wird, auch wenn das Array dimensioniert ist und die richtige Größe hat.
- In eine neue Sub auslagern hat nicht hingehauen, weil es mir nicht gelungen ist, den Blattname (hier: "fit") und die verschiedenen Spalten, wo die Daten stehen, zu übergeben...
Kann jemand mal reinsehen? Bin für Ideen dankbar...
'***** X Werte *****

If (0 / 1) + (Not Not aX) = 0 Then
ReDim aX(nSteps)
tmpX = fit.Range("A1:A" & nSteps & "").Value
For lRow = 1 To UBound(tmpX)
If Not IsEmpty(tmpX(lRow, 1)) Then aX(lRow) = tmpX(lRow, 1)
Next lRow
ElseIf UBound(aX())  nSteps Then
ReDim aX(nSteps)
tmpX = fit.Range("A1:A" & nSteps & "").Value
For lRow = 1 To UBound(tmpX)
If Not IsEmpty(tmpX(lRow, 1)) Then aX(lRow) = tmpX(lRow, 1)
Next lRow
End If

'***** Y Werte *****

If (0 / 1) + (Not Not aYObs) = 0 Then ' Abfrage fuer dimension. Array kann nicht in der selben  _
Zeile stehen wegen IndexFehler, daher Code doppelt!
ReDim aYObs(nSteps)
tmpYObs = fit.Range("B1:B" & nSteps & "").Value
For lRow = 1 To UBound(tmpYObs)
If Not IsEmpty(tmpYObs(lRow, 1)) Then aYObs(lRow) = tmpYObs(lRow, 1)
Next lRow
ElseIf UBound(aYObs())  nSteps Then
ReDim aYObs(nSteps)
tmpYObs = fit.Range("B1:B" & nSteps & "").Value
For lRow = 1 To UBound(tmpYObs)
If Not IsEmpty(tmpYObs(lRow, 1)) Then aYObs(lRow) = tmpYObs(lRow, 1)
Next lRow
End If

'***** Background Werte *****

If (0 / 1) + (Not Not aBg) = 0 Then
ReDim aBg(nSteps)
tmpBG = fit.Range("J1:J" & nSteps & "").Value
For lRow = 1 To UBound(tmpBG)
If Not IsEmpty(tmpBG(lRow, 1)) Then aBg(lRow) = tmpBG(lRow, 1)
Next lRow
ElseIf UBound(aBg())  nSteps Then
ReDim aBg(nSteps)
tmpBG = fit.Range("J1:J" & nSteps & "").Value
For lRow = 1 To UBound(tmpBG)
If Not IsEmpty(tmpBG(lRow, 1)) Then aBg(lRow) = tmpBG(lRow, 1)
Next lRow
End If

Das Ganze klappt zwar sehr gut, aber es kommt mir einfach umständlich und zu lang vor. Die Redimensionierung und Befüllung steht hier für 3 Arrays ganze 6 mal...
Heiko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…noch nie gesehen, Heiko;
was soll den das sein: If (0 / 1) + (Not Not aX) = 0 Then? Sehr seltsam!
Man könnte ja denken, dass die Arrays irgendwo schon vordimensioniert wurden, weil das hier fehlt, bspw als Dim aX As Variant oder nur Dim aX, ohne bzw mit leerem Klammerpaar nach dem VariablenNamen. Ohne () kann man auf jeden Fall auch IsEmpty(aX) oder IsArray(aX) fragen. Ggf handelt es sich aber auch um ein sog ParamArray, dann ist UBound(aX) = -1 im LeerFall, also < LBound(aX).
Warum sollte (0 / 1) + etwas anderes ergeben als 0 / 1 + oder gleich 0 +?
Natürlich kann man beides nur mit Or verbinden, wenn die 1.Bedingung fragt, ob es sich um einen leeren Variant handelt, weil in diesem Fall die 2.Bedingung nicht mehr abgefragt wird. Aber das wird hier ja nicht gemacht! Wenn das Array nicht Variant ist u/o ursprünglich mit Leerklammern dimensioniert wurde, kann man zuerst auch IsError(aX(0)) fragen, wenn zuvor On Error Resume Next geschrieben wurde (kann danach wieder auf On Error GoTo … gesetzt wdn).
Wirklich sehr merkwürdig…!
Gruß, Luc :-?
Besser informiert mit …

Sub RedimMyArr(ByRef vArr, nSteps As Long, sCol As String, sTbl As String) Dim c, i As Long ReDim vArr(nSteps) c = ActiveWorkbook.Worksheets(sTbl).Cells(1, sCol).Column For i = 1 To nSteps vArr(i) = ActiveWorkbook.Worksheets(sTbl).Cells(i, c) Next End Sub

Sub testArrayDim() Dim myArr As Variant, ok As Boolean MsgBox VarType(myArr) ReDim myArr(3, 2) If VarType(myArr) = 8204 Then '8192 (Datenfeld) + 12 (Variant) MsgBox "Das Array 'myArr' ist dimensioniert!" If UBound(myArr, 1) = 3 And UBound(myArr, 2) = 2 Then ok = True End If MsgBox "Array 'myArr' ist " & IIf(Not ok, "nicht ", "") & "richtig dimensioniert!" Else MsgBox "Die Variable myArr' ist kein Array!" End If End Sub

Beliebteste Forumthreads (12 Monate)

Feststellen ob Array dimensioniert ist

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread