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, 12).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
For lngSpalte = 5 To lngLetzteSpalte
If .Cells(2, lngSpalte).Value = "" Then
.Cells(2, lngSpalte).Value = .Cells(lngSpalte, 1).Value
End If
Next lngSpalte
End If
Next lngZeile
End With
End Sub