Hallo,
gitb es für folgenden Code eine Möglichkeit das "+2" zu umgehen, wenn ich in Zeile 3 mit der If-Prüfung anfangen möchte? Ist es quasi möglich die Zeile des Array-Eintrags auszulesen (der ja auf einer Range beruht)?
Sub Test()
With Tabelle2
Dim arr As Variant
arr = .Range(.Cells(3, "BE"), .Cells(Rows.Count, "BE").End(xlUp)).Value
Dim i As Long
'Alternative zu i +2?
For i = LBound(arr, 1) To UBound(arr, 1)
If .Cells(i, "BE") = "Irgendwas" Then
'"Irgendwas"
End If
Next
End With
End Sub
Viele Grüße
Thomas
|