Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerfarbe ändern nach Kriterium einer Liste

Registerfarbe ändern nach Kriterium einer Liste
24.03.2017 14:06:13
Samantha
Hallo zusammen,
ich bin auf der Suche nach einem VBA Makro, dass mir folgendes ermöglicht:
Ich habe eine Registerkarte "Übersicht" in der an die 200 Projekte aufgelistet sind, alle mit einer eigenen Projekt Nummer (PRJ-1, PRJ-2, PRJ-3, usw.
Daneben kann ich 3 Optionen auswählen (geprüft und versandt / ausgefüllt / offener Punkt).
Nun habe ich auch an die 200 einzelne Register/Tabs, die Informationen zu den Projekten enthalten und jeweils nach PRJ-1, PRJ-2, PRJ-3 usw. benannt sind.
Wie schaffe ich es nun, dass sich für alle in der Liste auf "Geprüft und Versandt"- gesetzten PRJ-Nummern automatisch die jeweilige Registerkarte auf grün färbt? (gelb für ausgefüllt und rot für offener Punkt)?
Vielen vielen Dank im Voraus!!
LG

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Registerfarbe ändern nach Kriterium einer Liste
24.03.2017 14:34:49
ransi
Hallo Samantha,
Du musst mit VBA eine Schleife über die zellen mit den Prejektnamen laufen lassen.
In der Schleife fragst du die option ab und reagierst.
Eigentlich ganz einfach, aber ohne Beispieldatei schwer zu erklären.
Der Code sieht dann ungefähr so aus:
For Each zelle In projektnummern
    Select Case option für Zelle
        Case geprüft und versand
            Sheets(zelle.Value).Tab.Color = vbGreen
        Case ausgefüllt
            Sheets(zelle.Value).Tab.Color = vbYellow
        Case offener Punkt
            Sheets(zelle.Value).Tab.Color = vbgred
    End Select
Next

ransi
Anzeige
AW: Registerfarbe ändern nach Kriterium einer Liste
24.03.2017 14:35:52
Werner
Hallo Samantha,
da du nicht mitgeteilt hast in welcher Spalte der Tabelle Übersicht deine Projektnamen bzw. dein Projektstatus steht hier mal eine Musterdatei.
https://www.herber.de/bbs/user/112408.xlsm
Gruß Werner
AW: Registerfarbe ändern nach Kriterium Liste
24.03.2017 14:55:36
Samantha
Hallo Werner,
danke für die fixe Antwort!
Leider habe ich wohl doch ein Brett vorm Kopf und kann das nicht so leicht auf meine Spalten umändern..
Deswegen hier die Info:
- Die einzelnen Projektnummern stehen in Spalte C (C6:C420)
- Der jeweilige Status dazu in Spalte N (N6:N420)
Kannst du das mit den Infos entsprechend anpassen?
Danke!!
LG
Anzeige
AW: Registerfarbe ändern nach Kriterium Liste
24.03.2017 15:29:17
Samantha
Sicher, dass das die richtige Datei ist? :)
LG
AW: Registerfarbe ändern nach Kriterium Liste
24.03.2017 16:21:50
Werner
...nö, war definitiv die falsche Datei...
ich hoffe ich verklicke mich jetzt nicht nochmal...
https://www.herber.de/bbs/user/112412.xlsm
Gruß Werner
AW: Registerfarbe ändern nach Kriterium einer Liste
24.03.2017 15:25:57
UweD
Hallo
hier meine Lösung:
Sub Färben()
    Dim EZ As Integer, SP As Integer, LR As Integer
    Dim i As Integer, TBName As String, Farbe As Double
    On Error Resume Next
    EZ = 1 'Erste Zeile mit Werten 
    SP = 3 'Spalte mit den Projektnamen 
   With Sheets("Übersicht")
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
        For i = EZ To LR
            With .Cells(i, SP)
                TBName = .Value
                If TBName <> "" Then
                    Select Case .Offset(0, 11) 'Spalte N 
                        Case "ausgefüllt"
                            Farbe = vbYellow
                            
                        Case "Geprüft und Versandt"
                            Farbe = vbGreen
                            
                        Case "offener Punkt"
                            Farbe = vbRed
                        Case Else
                            Farbe = xlAutomatic
                    End Select
                    Sheets(TBName).Tab.Color = Farbe
                End If
            End With
        Next i
    End With
End Sub

LG UweD
Anzeige

299 Forumthreads zu ähnlichen Themen

Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Liste deaktivieren, wenn Bedingung erfüllt
Timo

Hallo,
ich habe in der Zelle B13 eine Liste (über Gültigkeit--Liste) eingefügt, wo ein Nutzer zwischen den drei Optionen "Alle", "Erste Hälfte" und "zweite Hälfte" wählen kann. In Zelle B14 befindet sich ebenfalls eine ähnliche Liste auch u.a. mit der Option "Alle".
Jetzt würde ich ger...
23.09.2008 16:08:04
Thread-ID: 1011800
2 Beiträge
Webabfrage aus Liste in Liste
Holger

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiter komme. Hier die Datei:
https://www.herber.de/bbs/user/55676.xls
Aus den Links in Spalte C sollen die in den Spalten D bis J gefragten Werte aus den entsprechenden Webseiten ausgelesen werden. Am besten per Button, den k...
26.09.2008 11:25:00
Thread-ID: 1012552
9 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
Aufbereitung Liste mit Bedingungen
BH5925

Hallo,
anbei habe ich Musterdatei beigefügt mit entsprechender Beschreibung:
https://www.herber.de/bbs/user/59317.xls
Es soll eine große Liste mit Datensätzen so aufbereitet werden, dass Werte aus gleichartige Datensätze (Kriterium die Werte in Spalte A) zusammengefasst sollen nach...
10.02.2009 18:21:46
Thread-ID: 1049256
8 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
1
8
9
5
9
7
1
5
4
5
2
4
3
8
3
1
2
2
2
2
2
12
10