Sub Null_Punkt_Eins_gruen()
Dim lngRow As Long
For lngRow = 7 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(lngRow, 4).Text Like "*" & "0.1" & "*" Then _
Cells(lngRow, 1).Resize(1, 48).Interior.Color = vbGreen
Next
End Sub
Um bestimmte Spalten in Excel mithilfe von VBA einzufärben, folge diesen Schritten:
Öffne die Excel-Datei, in der du die Spalten einfärben möchtest.
Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein:
Sub Null_Punkt_Eins_gruen()
Dim lngRow As Long
For lngRow = 7 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(lngRow, 4).Text Like "*" & "0.1" & "*" Then _
Cells(lngRow, 1).Resize(1, 48).Interior.Color = vbGreen
Next
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Die angegebenen Spalten werden nun hellgrün eingefärbt, wenn in Spalte D der Wert "0.1" steht.
Fehler: "Kompatibilitätsprobleme"
Fehler: "Makro kann nicht gefunden werden"
Farbe wird nicht angewendet
Wenn du keine VBA-Programmierung verwenden möchtest, kannst du die bedingte Formatierung nutzen:
=$D7="0.1" ein.Diese Methode ist einfach und benötigt kein VBA.
Angenommen, du hast in Spalte D verschiedene Werte und möchtest alle Zeilen von A bis AV einfärben, wenn "0.1" vorhanden ist. Der oben angegebene VBA-Code oder die bedingte Formatierung helfen dir, dieses Ziel zu erreichen.
1. Kann ich die Farbe ändern?
Ja, du kannst die Farbe im VBA-Code anpassen, indem du vbGreen durch eine andere Farbkonstante ersetzt, wie z.B. vbRed.
2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst die Desktop-Version verwenden, um diese Funktionalität zu nutzen.