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
lngLetzteZeile
If
.Cells(2, lngSpalte).Value =
""
Then
.Cells(lngSpalte,2).Value = .Cells(2, lngZeile).Value
End
If
Next
End
If
Next
lngZeile