☰

Formatieren Sie leere Spalten basierend auf der Anzahl der Zeilen in der Tabelle

tag-icon • tag-icon microsoft-excel vba
Formatieren Sie leere Spalten basierend auf der Anzahl der Zeilen in der Tabelle

Ich versuche, leere Spalten in einem Arbeitsblatt basierend auf der Anzahl der Zeilen in meinem Datensatz farblich zu kennzeichnen. Ich habe ein vorhandenes Makro, das meine Daten sortiert und formatiert, aber ich möchte Code hinzufügen, um dies zu tun. Die Anzahl der Zeilen könnte zwischen 50 und 50.000 variieren und ich möchte nicht die gesamte Spalte bis zum unteren Rand des Blattes farblich kennzeichnen. Gibt es eine Möglichkeit, dies mit VBA-Code zu tun? Ich habe diesen Code ausprobiert, aber er färbt die gesamte Spalte, nicht nur die 100 Zeilen, die ich habe.

Range(Range("H13"), Range("H13").End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Interior.Color = vbBlue

Antwort1

Du bist nah dran

Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub

Sie verwenden xldown, das die letzte Zelle nimmt und dann bis zum Ende des Blatts nach unten geht. Versuchen Sie es mit xlup. Versuchen Sie außerdem, sich die Verwendung von xlup abzugewöhnen selection– es ist normalerweise nie notwendig.

verwandte Informationen