Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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 :-)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige