Sub findeUndFaerbe(Optional pOrt As String, Optional pVon As Date, Optional pBis As Date)
Dim rngErgebnis As Range
Dim zeile As Integer
Dim vonCol As Integer
Dim bisCol As Integer
Dim gesuchterOrt As String
Dim von As Date
Dim bis As Date
Dim buchenBtn As CommandBarButton
Dim reservierenBtn As CommandBarButton
Dim clearBtn As CommandBarButton
Stop
If pOrt = vbNullString Then
gesuchterOrt = Range("B1").Value
Else
gesuchterOrt = pOrt
End If
If pVon = "00:00:00" Then
von = Range("B2").Value
Else
von = pVon
End If
If pBis = "00:00:00" Then
bis = Range("B3").Value
Else
bis = pBis
End If
Set rngErgebnis = Range("A06:C66").Find(what:=gesuchterOrt, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngErgebnis Is Nothing Then
zeile = rngErgebnis.Row
vonCol = spalte(von)
bisCol = spalte(bis)
Range(Cells(zeile, vonCol), Cells(zeile, bisCol)).Interior.Color = vbYellow
End If
End Sub