Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farben einfügen

Farben einfügen
Ralf
Hallo Excel - Experten,
ich habe in einer Tabelle Farbnummern stehen ( B5:B9 z.B. 1 2 3 4 5 )
und möchte jetzt in der Zelle daneben d.h. A 5 die entsprechende Farbe
für 1 haben, in A 6 die Farbe für 2, in A 7 die Farbe für 3,... ) . Das gleiche soll
dann auch für die Bereiche D5:D9 und F5:F9,... gehen :-)
https://www.herber.de/bbs/user/65116.xls
Bin für jeden Tipp dankbar
Viele Grüße
Ralf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Farben einfügen
16.10.2009 09:00:37
Ralf
Hallo Matthias,
vielen Dank für Deine Antwort. Leider kann ich sie
nicht öffnen ( Denied by Watch Guard HTTP proxy :-( ! )
Kannst Du mir die Antwort bitte per email schicken ?
ralf.hollmann@avo.de
Vielen Dank und viele Grüße
Ralf
nur hier im Forum, nicht per Mail, sorry
16.10.2009 09:10:27
Matthias
Hallo
hier der Code in Textform:
Option Explicit
Private Sub CommandButton1_Click()
ruecksetzen
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
On Error Resume Next
If Not Intersect(Target, Range("B5:I9")) Is Nothing And Target.Count = 1 Then
For Each C In Range("B5:I19")
If C.Value  "" Then C.Offset(, 1).Interior.ColorIndex = C.Value
Next
End If
End Sub


Sub ruecksetzen()
Range("B5:I19").Interior.ColorIndex = xlNone
End Sub


Userbild
Anzeige
kleine Korrektur ...
16.10.2009 10:44:22
Matthias
Hallo
Userbild
und dann eben auch 
Sub ruecksetzen()
Range("A5:G19").Interior.ColorIndex = xlNone
End Sub
Gruß Matthias
VIELEN DANK MATTHIAS !!!
16.10.2009 11:26:07
Ralf
Hallo Matthias,
ich hatte schon alles aufgegeben ... da war die
Überraschung umso größer :-)
Vielen Dank für Deine Mühe
Ralf
PS: ich hoffe, ich kann mich mal revanchieren :-)

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige