VBA: Grenze von Array
Array
...es sind meistens die "Kleinigkeiten", an denen ich hängen bleibe und wieder mal stell ich in Zweifel ob ich mit "VBA-gut" mich denn richtig eingeordnet habe.
Ich fülle ein Array in Abhängikeit der Einträge in SpalteA. Wenn ein Eintrag in SpalteA einem Kriterium entspricht, dann vergrößer das Array um eins und trage den entsprechenden Wert ein.
wenn jetzt jedoch keiner der Einträge in Spalte A dem Kriterium entspricht, wird nichts in das Array eingetragen. Hier hängt sich mein Code an der Stelle auf, wo ich die Obergrenze des Array weiter verwerten will.
Ich benötige also eine Klausel, die den weiteren Code nur dann ausführt, wenn es mindestens einen
Eintrag für das Array gibt.
im Sinne von:
'If Not arr1 = Nothing....
mal ein Bsp:
Option Explicit
Sub Testarray()
Dim arr1() As String, k As Integer, i As Integer, LRow As Integer
LRow = Cells(Rows.Count, 1).End(xlUp).Row
k = 0
For i = 3 To LRow
If Cells(i, 1) = "Hallo" Then
ReDim Preserve arr1(k)
arr1(k) = Cells(i, 1).Value
k = k + 1
End If
Next i
'hier Fehler wenn es kein "Hallo" gibt: Index außerhalb des gültigen Bereichs
If UBound(arr1) >= 0 Then
MsgBox UBound(arr1)
End If
End Sub
Vielen Dank für eure Hilfe
Gruß
Christoph