Option Explicit
Public Sub test()
Dim lngZeile As Long
Dim lngLetzteZeile As Long
Dim lngSpalte As Long
Dim lngLetzteSpalte As Long
With Tabelle1
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
lngLetzteSpalte = .Cells(2, 10).Column
For lngZeile = 2 To lngLetzteZeile
If .Cells(lngZeile, 1).Value > .Cells(2, 2).Value And .Cells(lngZeile, 1).Value < .Cells(2, 3).Value Then
.Cells(lngZeile, 1).Font.Bold = True
End If
For lngSpalte = 5 To lngLetzteZeile
If .Cells(2, lngSpalte).Value = "" Then
.Cells(2, lngSpalte).Value = lngZeile
End If
Next
Next lngZeile
End With
End Sub