Hallo zusammen,
ich schreibe gerade eine rek. Funktion die überprüft ob eine gegebene Range über einen gegebenen Integer freie Zellen hat.
Beispiel: Belegung gleich Zelle A1, Belegungsdauer gleich 4 -> Überprüfe: Sind A1-A4 frei? Wenn ja gib true, sonst false.
Oder gibt es einen Alternativen Einzeiler/Command der das ganze einfacher löst? So überprüfe ich ja jede Zelle einzeln und mein Offset Command für
die Range "Belegung" funktioniert leider nicht, kann da jemand helfen?
Viele Grüße,
G
Function FreierP(Belegung, Belegungsdauer) As Boolean
If Belegungsdauer > 1 Then
If Not IsEmpty(Belegung) Then
FreierP = False
End If
Else
'hier ist der Fehler
Belegung = Belegung.Offset(0, 1)
Belegungsdauer = Belegungsdauer - 1
FreierP = FreierP(Belegung, Belegungsdauer)
End If
If Belegungsdauer = 1 Then
If Not IsEmpty(Belegung) Then FreierP = False
Else
FreierP = True
End If
End Function
|