Sub MarkColumns()

  Dim ws As Worksheet

  Dim lastRow As Long, lastColumn As Long

  Dim col As Long

  Dim row As Long

  Dim cell As Range

  ' Arbeitsblatt festlegen

  Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Ersetzen Sie "Tabelle1" durch den Namen Ihres Arbeitsblatts

  ' Letzte Zeile und letzte Spalte ermitteln

  lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row

  lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

  ' Alle Spalten durchlaufen

  For col = 1 To lastColumn

    ' Prüfen, ob ein Wert in irgendeiner Zeile der Spalte größer oder gleich 25 ist

    For row = 1 To lastRow

      Set cell = ws.Cells(row, col)

      If cell.Value >= 25 Then

        ' Wenn ja, die gesamte Spalte markieren und zur nächsten Spalte wechseln

        ws.Columns(col).Interior.Color = RGB(255, 0, 0)

        Exit For ' Beenden Sie die Schleife, wenn ein Wert >= 25 gefunden wurde

      End If

    Next row

  Next col

End Sub

Das Makro markiert jedeglich eine Spalte Rot, wenn ein Wert = 25 oder grösser 25 wenn diese Bedingung auf Zeile 1 zutrifft, es sollte jedoch die Spalte rot markieren egal in welcher Zeile der Wert gleich 25 oder grösser 25 ist.

Weis jemand wie ich das Makro anpassen muss damit es die gewünschte Funktionalität gewährleistet?