[VBA] Bedingte Formatierung mit mehreren Bereichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

…Daniel,
also sollte sich Piet den Teil mal ansehen! Mir ging es aber um BedingtFormatierung per VBA, wie unschwer aus meinem Text zu erkennen sein dürfte…
Deine Behauptung, dass das auch eine bedingte Formatierung wäre, ist kontraproduktiv, denn sie vermischt einen exakt definierten FachTerminus mit einem Allerweltsbegriff! Wenn man nicht aneinander vorbeireden will, ist eine gewisse Präzision auf jedem Fachgebiet erforderlich. Dafür wdn diese Termini ja geschaffen. Die echte BedingtFormatierung ist ein kompletter PgmAblauf, der in beide Richtungen fktioniert, also dynamisch. Was hier mit VBA gemacht wird ist aber statisch! Hinzu kommt, dass sich die BedingtFormatierung auf (ein) andere(s) Objekt(e) bezieht als die DirektFormatierung.
Ich hatte ja eine exakte Definition dessen, was hier geschieht angeboten. Das musst du nun ja nicht mit deinem Beharren auf dem Allerweltsbegriff verwässern wollen. Passt gar nicht zu deinen sonstigen ausführlich(st)en Erläuterungen… :-]
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

[VBA] Bedingte Formatierung mit mehreren Bereichen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

367 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

[VBA] Bedingte Formatierung mit mehreren Bereichen

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

367 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread