Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

vba bedingte Formatierung

vba bedingte Formatierung
07.10.2015 13:29:36
stef26
Hallo Zusammen,
hab da ein Problem, bei dem ich eure Unterstützung bräuchte.
If Not Intersect(Target, Range("D18:AS383")) Is Nothing Then
With Target
Select Case .Value
Case Is = "Projekt"
.Interior.ColorIndex = 40
Case Is = "Abwesenheit"
.Interior.ColorIndex = 16
Case Is = "Tagesgeschäft"
.Interior.ColorIndex = 23
'
'
'
'
End Select
End With
End If
Mit diesen Makro kann man je nach Wort die Zelle einfärben.
Für meine Anwendung bräuchte ich es etwas anders.
Er müsste bei mir den Zellinhalt im Tabellenblatt Einstellungen Spalte B suchen
(Sverweis B:D,3) und mir die Zelle nach dem Wert in Spalte D einfärben.
Wer ist in VBA so gut bewandandert um mir das zu zeigen ?
Liebe Grüße
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba bedingte Formatierung
07.10.2015 14:56:55
stef26
Habs selbst gefunden...
Dim Bereich As Range
Dim Zelle As Range
Dim rng As Range
Set Bereich = Range("D15:V400")
'Set Zelle = Sheets("Wartezyklus").Range("B:B").Find(what:=Target.Value, Lookat:=xlWhole)
suchbegriff = Selection.Value
Set rng = Sheets("Wartungszyklus").Range("B1:B100").Find(suchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
Selection.Interior.ColorIndex = rng.Offset(0, 2).Value
Danke Trotzdem ...
:-)
Stefan

Du solltest ab Xl12/2007 .Color verwenden! orT
07.10.2015 19:17:38
Luc:-?
Gruß, Luc :-?
Besser informiert mit …
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige