Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen enfärben

Zellen enfärben
07.02.2004 17:24:25
toni
Servus!
Mit folgender VBA wird wenn in Zelle A1 eine 1 steht die Zelle B1 entsprechend eingefärbt. Nun möchte ich dies erweitern so dass auch in den Zellen C1, D1, E1, und G1 bis K1 die Hintergrundzellfarbe entsprechend der Auswahl A1 übernommen wird.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Cells(1, 2).Interior.ColorIndex = 36
Case 2
Target.Cells(1, 2).Interior.ColorIndex = 15
Case 3
Target.Cells(1, 2).Interior.ColorIndex = 20
Case 4
Target.Cells(1, 2).Interior.ColorIndex = 4
Case ""
Target.Cells(1, 2).Interior.ColorIndex = xlColorIndexNone
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

Hat ein gscheiter eine Lösung für mich.
Vielen Dank
Toni

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen enfärben
07.02.2004 17:38:36
Jens
Hi
Wie wäre es damit:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Farbe
Select Case Target.Value
Case 1: Farbe = 36
Case 2: Farbe = 15
Case 3: Farbe = 20
Case 4: Farbe = 4
Case Else: Farbe = xlColorIndexNone
End Select
Range("B1").Interior.ColorIndex = Farbe
Range("C1").Interior.ColorIndex = Farbe
Range("D1").Interior.ColorIndex = Farbe
Range("E1").Interior.ColorIndex = Farbe
Range("G1:K1").Interior.ColorIndex = Farbe
End Sub

Gruß Jens
AW: Zellen enfärben
07.02.2004 17:42:25
Hajo_Zi
Hallo Jens
hast Du das getestet??
egal wo was eingegeben wird die Zelen werden immer gefärbt.
Gruß Hajo
Anzeige
AW: Zellen enfärben
07.02.2004 17:46:16
Jens
Hi, Stimmt habe das mit dem A1 ganz vergessen... ;-)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Farbe
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target.Value
Case 1: Farbe = 36
Case 2: Farbe = 15
Case 3: Farbe = 20
Case 4: Farbe = 4
Case Else: Farbe = xlColorIndexNone
End Select
Range("B1").Interior.ColorIndex = Farbe
Range("C1").Interior.ColorIndex = Farbe
Range("D1").Interior.ColorIndex = Farbe
Range("E1").Interior.ColorIndex = Farbe
Range("G1:K1").Interior.ColorIndex = Farbe
End Sub

Gruß
AW: Zellen enfärben
07.02.2004 17:48:00
Hajo_Zi
Hallo Jens
um ganz genau zu sein davor muß noch
If Target.Count > 1 Then Exit Sub
Gruß Hajo
Anzeige
Das ist unnötig! oT
07.02.2004 17:52:20
Ulf
oT
AW: Da hat Ulf Rech Ot
07.02.2004 17:56:53
Hajo_Zi
Zu was?
07.02.2004 17:54:38
Jens
Hi Hajo
Zu was
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
reicht doch.
Wenn ich eine Änderung in A1 bis A10 mache zugeleich (Strg+U) dann ist die Adresse "$A$1:$A$10" also auch verschieden zu "$A$1"
Egal.
Die Frabe zuweisen kann man noch Optimieren viel mir gerate auf.
Range("B1,C1,D1,E1,G1:K1").Interior.ColorIndex = Farbe
Gruß Jens
AW: Zellen enfärben
07.02.2004 18:32:49
Hajo_Zi
Hallo Toni
aufbauend auf Jens seinem Code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Farbe
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case 1: Farbe = 36
Case 2: Farbe = 15
Case 3: Farbe = 20
Case 4: Farbe = 4
Case Else: Farbe = xlColorIndexNone
End Select
Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.ColorIndex = Farbe
Range(Cells(Target.Row, 7), Cells(Target.Row, 11)).Interior.ColorIndex = Farbe
End Sub

Gruß Hajo
Anzeige
AW: Zellen enfärben
07.02.2004 21:25:07
toni
Danke Hajo - super Lösung.
Gruss Toni

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige