|
Hallo Zusammen,
ich hätte noch eine frage, mit der bedingten Formatierung bin ich nicht weiter gekommen, da ich 7 verschiede varianten habe.
Ich würde gerne ab der Spalte A2 die zeilen farbig einfärben wenn folgende Vorschläge erfüllt sind.
1 Aktiv
2 Ehrenmitglied
3 EhrenmirgliedN
4 Jugend
5 Passiv
6 Freimitglied
7 Gönner
Kann ich dies mit der bedingten formatierung erfüllen? irgendwo hab ich gelesen das es max 3 wenn lösungen sein können.
anbei hab ich mal einen Code gefunden:
[Code]
Sub Faerben()
Dim lngZeile As Long
For lngZeile = 2 To Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Select Case Cells(lngZeile, 30)
Case "1 Aktiv"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 255
Case "2 Ehrenmitglied"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 256
Case "3 EhrenmitgliedN"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 257
Case "4 Jugend"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 258
Case "5 Passiv"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 259
Case "6 Freimitglied"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 260
Case "7 Gönner"
Range(Cells(lngZeile, 1), Cells(lngZeile, 28)).Interior.Color = 261
End Select
Next lngZeile
End Sub
[/code]
wie kann ich diesen code auf das sheet legen das er bei jeder änderung die Tabelle anpasst?
Besten Dank
swizzmade |