mein Problem ist, dass ich auf dem Worksheet alle Zahlen die 3 teilbar sind dick und rot markiert haben möchte.
Ich konnte als Einstieg den folgenden Modul finden bei der ich aber mit der For Anweisung bis auf eine bestimmte Zahl begrenze also hier mit 25, kann ich hier auch auf unendliche bzw. bis zur Zeilenschluss durchgehen? Sub ToggleBold() Dim i As Integer With Worksheets(1) For i = 1 To 25 With Rows(1) .Font.Bold = Not .Font.Bold .Rows(2).Font.Bold = Not .Font.Bold End With End With End Sub