Office: Offset in Array

Solitec · 29. November 2020

Hallo ,

jetzt habe ich es im ersten Schritt so geändert :

Code:

Dim LetzteZeile As Long
Dim arr(), intIndex As Integer
Dim z As Long
Dim wksQ As Worksheet

Sub Versuch()

With ThisWorkbook.Worksheets("Versuch")
LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
arr = .Range("A1:B" & LetzteZeile).Value
For z = LetzteZeile To 1 Step -1
If arr(z, 2) = "" Then
If arr(z, 1) = arr(z + 1, 1) Then
arr(z, 2) = arr(z + 1, 2)
End If
End If
Next
.Range("A1:B" & LetzteZeile).Value = arr

End With

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

Jetzt kriege ich bei

Code:

If arr(z, 1) = arr(z + 1, 1) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Laufzeitfehler 9 Index außerhalb des gültigen Bereich

Habe ich nicht mit
Code:

With ThisWorkbook.Worksheets("Versuch")
LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
arr = .Range("A1:B" & LetzteZeile).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

denn Bereich zugeordnet ?

Vielen Dank

RPP63 · 29. November 2020

Moin!
Eigenzitat:

(beachte die referenzierenden Punkte auf das übergeordnete Objekt im With-Statement)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und abschließend ein wenig Logik:
Das Array hat die Dimensionen
arr(1 To z, 1 To 2)
Somit kann (nach der Prüfung If arr(z, 2) = "" Then)
If arr(z, 1) = arr(z + 1, 1) Then
in den LZF 9 laufen, denn es gibt schlicht kein arr(z + 1, 1),
wenn z = LetzteZeile ist!

Gruß Ralf

EarlFred · 29. November 2020

Im With-Block fehlen die Punkte:
Code:

LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was machst du mit dem Zeilenzähler des Arrays, wenn du vorher den Bereich A1234:Z9923 eingelesen hast? Mach es dir einfach und löse dich nach dem Einlesen von dem Gedanken, dass du immer noch auf dem Arbeitsblatt arbeitest. Du arbeitest im ARRAY - also nutze das auch so:

Code:

Option Explicit

Sub Versuch()

'Variablen für das ARBEITSBLATT
Dim wksQ As Worksheet
Dim LetzteZeile As Long

'Variablen für das ARRAY
Dim arr() As Variant
Dim z As Long

'Aktionen im Arbeitsblatt
Set wksQ = ThisWorkbook.Worksheets("Versuch")

With wksQ
LetzteZeile = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
arr = .Range("A1:B" & LetzteZeile).Value
End With

'Aktionen im Array
For z = UBound(arr, 1) - 1 To LBound(arr, 1) Step -1
If arr(z, 2) = "" Then
If arr(z, 1) = arr(z + 1, 1) Then
arr(z, 2) = arr(z + 1, 2)
End If
End If
Next

'Aktionen im Arbeitsblatt
With wksQ
.Range("A1:B" & LetzteZeile).Value = arr
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

knobbi38 · 29. November 2020

Hallo,

nur für die bessere Lesbarkeit, weil der Defaultwert 1 ist, aber wenn die Dimension schon angegegeben wird, sollte das bei beiden Grenzen eingetragen sein:

For z = UBound(arr, 1) - 1 To LBound(arr, 1) Step -1

Gruß Ulrich

Solitec · 30. November 2020

Vielen Dank

Office: Offset in Array

Offset in Array

Offset in Array

Offset in Array

Offset in Array - Similar Threads - Offset Array

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Array aus Excel Tabelle einlesen Word VBA

Summenteilergebnis eines Arrays als Array darstellen

Formel bei Veränderung von dynamischem Array "mitziehen"?

Array-Funktion mit VBA in Zelle schreiben