Office: Zeilen mit VBA einfärben (abhängig von Zelle)

User · 17. November 2012

Hallo zusammen,

die vorgeschlagene Lösung hat super geklappt (mit selectcase). Ich hätte nur noch eine Frage, wenn das Feld z.B. "Hamburg Altona" oder "1-Hamburg" enthält, wie kann ich das noch einbauen. Dachte eigentlich an "*Hamburg*", aber das funktioniert nicht.

Danke

markus

Beverly · 17. November 2012

Hi Markus,

Code:

Sub Faerben()
Dim lngZeile As Long
For lngZeile = 2 To Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If InStr(Cells(lngZeile, 30), "Hamburg") > 0 Then
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 255
ElseIf InStr(Cells(lngZeile, 39), "Frankfurt") > 0 Then
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 65535
End If
Next lngZeile
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 17. November 2012

Hallo,

wie kann ich das in die selectcase anwendung einbauen?

Hier der aktuelle Code:

Code:

Sub FrankfurtFaerben()
Sheets("Staedte").Activate
Dim lngZeile As Long
For lngZeile = 2 To Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Select Case Cells(lngZeile, 17)
Case "Frankfurt"
Range(Cells(lngZeile, 1), Cells(lngZeile, 29)).Interior.Color = 16436871
Case Else
Range(Cells(lngZeile, 1), Cells(lngZeile, 29)).Interior.ColorIndex = xlNone

End Select
Next lngZeile
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 17. November 2012

Hi Markus,

mir Select Case geht es nur mit einer genauen Berzeichnung, nicht mit einem Platzhalter. Deshalb die Verwendung von If.

Was soll in deinen Code eingebaut werden? Das müsstest du schon mal genauer beschreiben, was da vor sich gehen, also womit nun verglichen werden soll.

Office: Zeilen mit VBA einfärben (abhängig von Zelle)

Zeilen mit VBA einfärben (abhängig von Zelle)

Zeilen mit VBA einfärben (abhängig von Zelle)

Zeilen mit VBA einfärben (abhängig von Zelle)

Zeilen mit VBA einfärben (abhängig von Zelle) - Similar Threads - Zeilen VBA einfärben

VBA-Code überspringt einzelne Zeilen

VBA in einer Zeile zu lang

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

Excel VBA mit Toggle Button Zeile einfärben

Jeweils unterschiedliche Anzahl von Zeilen abwechselnd anders einfärben

[VBA] Zeilen einfärben nach Inhalt als selbsterstellender Mappe