Office: Arrays Durchlaufen

MOere0103 · 15. Mai 2016

Hallo Community,

irgendwie steige ich bei Arrays nicht ganz durch...
Ganz kurz erklärt:
Aus einer Datenbank schreibe ich Daten in ein Array (und transfomiere es sodass Spalten-Zeilen wie in einem Excel-Sheet sind.)
Dieses möchte ich nun vom letzten Eintrag hin bis zum ersten durchlaufen und die Einträge bearbeiten.
Dafür wollte ich durch UBound(varWerte,2) mir den letzten Zeileneintrag aus Spalte 2 (Spalte 0 habe ich eingeschlossen) geben lassen...
Bei "If lngNr = varWerte(i, 2) Then" kommt dann jedoch der Fehler Index Out Of Bounds.

Was mache ich Falsch und wie mache ich es richtig? Zeilen-Spalten technisch irgendwas?

Code:

Sub Neu(ByVal varWerte As Variant, ByVal ws As Worksheet, ByVal intSpalten As Integer, ByVal strStation As String)
' Datum des zuletz gelaufenen, schon behandelten Teils
'Dim latestdate As Date
Dim lngNr As Long
Dim intSpalteArr As Integer
Dim intZahl As Integer

With ws
For i = UBound(varWerte, 2) To 0 Step -1
If lngNr = varWerte(i, 2) Then
Rows(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Neue Werte Einfügen
For intSpalteArr = 0 To intSpalten - 1
.Cells(2, intSpalteArr + 2) = varWerte(i, intSpalteArr)
Next intSpalteArr
' Letzte Zeile Löschen
.Range("A2").Delete
.Rows(.Cells(Rows.Count, "B").End(xlUp).Row).Delete
intZahl = 6
' kontrollieren
Farbe = 5296274
Do While Not .Cells(1, intZahl) = ""

.Cells(2, intZahl).Value = Innerhalb_Grenzen(intZahl, varWerte(i, intZahl - 2), strStation)
'Ampel
Call Ampel_umschalten(ws, intZahl, strStation)
End If
intZahl = intZahl + 1
Loop
Next i
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank im Voraus

Gruß Moritz

:)

EarlFred · 16. Mai 2016

Hallo Moritz,

Code:

For i = UBound(varWerte, 2) To 0 Step -1
If lngNr = varWerte(i, 2) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du ermittelst die Ausmaße der 2. Dimension des Arrays (in "Exceldenkweise": Spalten), willst damit aber die erste Dimension ("Zeile") durchlaufen.

Code:

For i = UBound(varWerte, 1) To LBound(varWerte, 1) Step -1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Beverly · 16. Mai 2016

Hi Moritz,

wie füllst du denn das Array bzw. wie "wandelst" du es um?

MOere0103 · 16. Mai 2016

Hallo Karin,

Diese Funktion wandelt mir das Array um.
Code:

Function TransposeDim(v As Variant) As Variant
' Custom Function to Transpose a 0-based array (v)

Dim X As Long, Y As Long, Xupper As Long, Yupper As Long
Dim tempArray As Variant

Xupper = UBound(v, 2)
Yupper = UBound(v, 1)

ReDim tempArray(Xupper, Yupper)
For X = 0 To Xupper
For Y = 0 To Yupper
tempArray(X, Y) = v(Y, X)
Next Y
Next X

TransposeDim = tempArray

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und so lese ich die Daten in das Array
Code:

If Not Rs.EOF = True Then
rcArray = Rs.GetRows
Rs.Close
End if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFreds Lösung schon die richtige, hatte das mit den Dimensionen falsch verstanden. Danke für ein genaueres Verständnis von Arrays.

Office: Arrays Durchlaufen

Arrays Durchlaufen

Arrays Durchlaufen

Arrays Durchlaufen

Arrays Durchlaufen - Similar Threads - Arrays Durchlaufen

Summenteilergebnis eines Arrays als Array darstellen

Teile eines Arrays können nicht geändert werden

Zwei Arrays auf gemeinsamen Nenner bringen

Ergebnis aus 2 Arrays im Dritten zusammen fassen

mehrdimensionale Arrays vergleichen

Funktion ZÄHLENWENN: enthält eine Zelle einen Text einer Zelle aus einem Arrays ?

VBA - Aktueller / Maximaler Speicherbedarf eines Arrays per Code bestimmen