Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1232to1236
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

Registerfarbe besdingt durch Zelleneingabe ändern

Registerfarbe besdingt durch Zelleneingabe ändern
Lars
Hallo zusammen,
ich habe mal wieder ein Frage, wie lautet der VBA_Code wenn ich abhängig vom Text in einer Zelle abhängig die Registerfarbe ändern möchte.
In Zelle K14 kann per drop-down verschiedene Auswahlmöglichkeiten getroffen werden, entsprechend der Auswahl soll sich die Registerblattfarbe ändern, habe Beispieldateidrangehängt. Die Formel soll aber auch funktionieren wenn ich das Tabellenblatt dupliziere.
Vielen Dank
Lars

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Registerfarbe besdingt durch Zelleneingabe ändern
12.10.2011 21:30:00
Beverly
Hi Lars,
im Codemodul des Tabellenblattes diesen Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$14" Then
If Target = "abgeschlossen" Then
ActiveSheet.Tab.Color = RGB(0, 255, 0)
ElseIf Target = "zurückgestellt" Then
ActiveSheet.Tab.Color = RGB(255, 0, 0)
Else
ActiveSheet.Tab.Color = RGB(204, 204, 204)
End If
End If
End Sub

Wenn du das Tabellenblatt insgesamt kopierst, wird der Code mitkopiert.


Anzeige
AW: Registerfarbe besdingt durch Zelleneingabe ändern
13.10.2011 09:20:05
Lars
Danke jetzt zeigt er mir sie an :-)
Sorry für die Doppelposts

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige