Bin leider nicht so gut in VBA, wäre super wenn mir jemand den Fehler zeigen könnte :)
Private Sub LosButton_Click()
Dim SearchPool(1) As Integer
Dim sh As Worksheet
Set sh = Worksheets("Reparaturaufträge")
Dim i As Integer
Dim itm As Variant
Set itm = 0
For i = 3 To rc("Reparaturaufträge") - 2
ReDim Preserve SearchPool(UBound(SearchPool) + 1)
Set SearchPool(i - 2) = i
Next
For Each itm In SearchPool
MsgBox (itm)
Next
End Sub
|