Sub Schleife() Dim Zeile As Long Dim ZeileEnd As Long With Tabelle1 ZeileEnd = .UsedRange.Rows.Count For Zeile = 1 To ZeileEnd If .Cells(Zeile, 1).Value > 100 Then .Cells(Zeile, 1).Font.Bold = True End If Next Zeile End With End Sub