Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vba Zellhintergrund

vba Zellhintergrund
09.08.2006 16:44:14
Dirk
Hallo Excelprofis, und all die anderen, die wie ich, mal einer werden möchten.
Habe ein Problem, möchte per vba eine Prüfung des Hintergrundes zweier Zellen ( B3 , C3 ) realiesieren, und bei Übereinstimmung die Spalten unterhalb der Prüfzellen mit der Hintergrundfarbe der Prüfzellen belegen.
Sicher könnt ich das per bedingte Formatierung bewerkstelligen, aber da sehr viel mit vba gearbeitet wird bei der Tabelle, möchte ich Folgefehler vermeiden, und alles mit vba machen
Hoffe das geht, wer kann mir helfen?
Danke im Vorraus
Dirk

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba Zellhintergrund
09.08.2006 18:31:15
EtoPHG
Hallo Dirk,
Versuch's mal so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B3").Interior.ColorIndex = Range("C3").Interior.ColorIndex Then
Range("B4").Interior.ColorIndex = Range("B3").Interior.ColorIndex
Range("C4").Interior.ColorIndex = Range("B3").Interior.ColorIndex
Else
Range("B4").Interior.ColorIndex = xlColorIndexNone
Range("C4").Interior.ColorIndex = xlColorIndexNone
End If
End Sub

Gruss Hansueli
AW: vba Zellhintergrund
09.08.2006 18:44:12
Dirk
Hallo Hansueli
danke für die Hilfe, hilft mir schon mal ein wenig weiter, ein Problem hab ich nu noch
wie schaffe ich es das die ganzen Spalten unterhalb der dritten Zeile farblich geändert werden?
besten Dank
Dirk
Anzeige
AW: vba Zellhintergrund
09.08.2006 20:48:30
EtoPHG
Hallo Dirk,
So:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B3").Interior.ColorIndex = Range("C3").Interior.ColorIndex Then
Range("B4:C65536").Interior.ColorIndex = Range("B3").Interior.ColorIndex
Else
Range("B4:C65536").Interior.ColorIndex = xlColorIndexNone
End If
End Sub

Gruss Hansueli
Danke
09.08.2006 22:41:33
Dirk
Super vielen Dank, funktioniert genau wie ich möchte
Danke schön, schönen Abend noch
Dirk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige