Sub get_UrlaubBack()
Dim i As Integer
Dim lng_found As Integer
Dim str_Beginn As String
Dim str_Ende As String
Dim arrUrlaub() As Variant
Dim arrZ As Variant
 
With wks_Urlaub
  lng_found = 0
  For i = 9 To 377
        'steht nix drin
        If .Cells(i, 37).Value = "" Then
            'steht was drin
            If .Cells(i, 6).Value = 1 And lng_found = 1 Then
                'zähler ist auf 1 und steht was drin
                Debug.Print .Cells(i, 3).Value
            Else
                'Zähler steht auf 1 aber es steht nix drin
                lng_found = 0
            End If
        Else
            'setze den Zähler auf 1
            lng_found = 0
            ReDim Preserve arrUrlaub(arrZ)
            Debug.Print .Cells(i, 3).Value
            arrUrlaub(arrZ) = .Cells(i, 3).Value
            arrZ = arrZ + 1
        End If
 
  Next i
End With
End Sub