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?
