Hallo Internet,
ich sitze verzweifelt an einem Script für Excel.
Am ende soll dieser Schnipsel innerhalb meiner markierten Zeilen nach "Ordner I"/"Ordner 1" suchen und mir die
dazugehörige Zeilen angabe in einem Array speichern damit ich mit diesen weiterarbeiten kann.
Allerdings kann ich nicht rausfinden wie ich abfrage ob mein Array null ist.
Kann mich jemand retten?
ReDim Baende(0 To 8, 0 To 8) As String
Dim Cells(0 To 8) As Range
Baende(0, 1) = "Ordner 1"
Baende(0, 2) = "Ordner 2"
Baende(0, 3) = "Ordner 3"
Baende(0, 4) = "Ordner 4"
Baende(0, 5) = "Ordner 5"
Baende(0, 6) = "Ordner 6"
Baende(0, 7) = "Ordner 7"
Baende(0, 8) = "Ordner 8"
Baende(1, 1) = "Ordner I"
Baende(1, 2) = "Ordner II"
Baende(1, 3) = "Ordner III"
Baende(1, 4) = "Ordner IV"
Baende(1, 5) = "Ordner V"
Baende(1, 6) = "Ordner VI"
Baende(1, 7) = "Ordner VII"
Baende(1, 8) = "Ordner VIII"
Dim i As Integer
Dim j As Integer
For i = 1 To UBound(Baende, 2)
For j = 0 To 1
'IF ARRAY != NULL SETZE ZEILE
Set Cells(i) = Application.Selection.Find(Baende(j, i))
'END IF
Next j
Next i
|