vb.net Excel Makro funktioniert nicht wie gewünscht?
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?
