[VBA] Bedingte Formatierung mit mehreren Bereichen

Hallo Nils
meine Programmierkenntnisse stammen noch aus der alten Excel 97 Zeit!
Darüber können die Profi Programmierer im Forum nur die Nase rümpfen.
Um Target habe ich bisher immer einen grossen Bogen gemacht.
Ein teil meines bescheidenen Könnens liegt darin mir Aufgaben genau anzusehen,
und wenn sie mich ernsthaft interessieren, sie direkt in der Praxis auszutesten.
Als ich das "Supermakro" sah, bin ich echt laufen gegangen!
Target, Colzahl Intersect, das ist absolut nicht meine Welt!!
Mir fiel aber beim nachdenken und überlegen um zu verstehen was da im Programm ablaeuft auf,
das hier offenbar über Target schlicht und simpel -eine einfache Eingabe- in eine Zelle erfolgt.
Sorry, ich bin nicht klügste Programmier, aber verarschen lasse ich mich von Programmen nicht!
Erkenne ich das es fiel simpler und einfacher geht, suche ich nach einer -Simpel Lösung-
Das ist ja m.E. hier gefordert: geht das einfacher! Schau dir meine Makro Lösung an.
Ich ermittle über Sp die Columne, und den Farbcode in Zeile 1
Dann bekommt die aktive Zelle den gleichen Farcode wie oben.
Das ist alles ....
Wird kein "x" eingegeben, oder mehrere Zellen angesprochen,
laueft das alte Original Programm weiter, genau so wie vorher!
Du musst ins Original nur meine Zeilen "Simpel Lösung" kopieren.
mfg Piet
Private Sub Worksheet_Change(ByVal Target As Range)
'Piets Simpel Makro zur Problemlösung
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
If Target.Value = "x" Then
Sp = Target.Column
FCode = Cells(1, Sp).Interior.ColorIndex
Target.Interior.ColorIndex = FCode
Exit Sub
End If
End If
'ab hier funktioniert das -unveraenderte Originalmakro- so wie ich es vorfand

Hi
so gehts ganz ohne VBA:
markiere den kompletten Zellbereich (alle Zellen, Zelle A1 ist aktiv) und richte für ihn für jede der 7 Farben eine Bedingte Formatierung mit einer Formel als Regel nach diesem Schema ein:
cyan (A): =Und(A$1="A";oder(Zeile()=1;A1="x"))
rot (B): =Und(A$1="B";oder(Zeile()=1;A1="x")
usw für die restlichen Farben.
die Zelle wird dann immer in der entsprechenden Farbe gefärbt, wenn die Zelle nicht leer ist und in Zeile1 derselben Spalte der entsprechende Buchstabe steht.
somit brauchst du für die zwischenbereiche keine gesonderte Formatierung, sondern das Format kann einheitlich für alle Zellen gelten.
als Makro würde ich das so schreiben:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Zelle1 As Range
For Each Zelle In Target
Set Zelle1 = Zelle.Offset(1 - Zelle.Row, 0)
If Zelle1.Value Like "[A-G]" Then
If Zelle.Value = "x" Then
Zelle.Interior.Color = Zelle1.Interior.Color
Else
Zelle.Interior.Color = 15921906
End If
End If
Next
End Sub

hierbei wird die Farbe aus der jeweiligen Zelle in Zeile 1 genommen.
Gruß Daniel

[VBA] Bedingte Formatierung mit mehreren Bereichen

Forumthread: [VBA] Bedingte Formatierung mit mehreren Bereichen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

[VBA] Bedingte Formatierung mit mehreren Bereichen

Forumthread: [VBA] Bedingte Formatierung mit mehreren Bereichen

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread