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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen