Frage : Vorsprungfarbe ändern, wenn Vorsprungname in der Liste erscheint

Dieses ist der Code, den ich die Farbe eines Vorsprunges ändern muss, wenn er in einer Liste erscheint, es adaequat bin für einfache Verteilungsbögen, in denen die Vorsprünge a, b, c, d und dergleichen genannt, aber ich habe ein Arbeitsbuch, in dem der Vorsprung eine Zahl in Klammern nach dem Wert enthält, der in der Liste ist (Vorsprung aussieht wie 123z4567-1 (1) ht und die in der Liste bewerten, 123z4567-1 sind).  Ich wünsche nur den gefärbten Vorsprung, wenn er in dieser Liste erscheint, jede mögliche Hilfe, dass Sie anbieten können?

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:

Sub ColorTabs () Schwaches TabName als Schnur x = 1 'Blätter („während Liste“). Aktivieren Bis Zellen (x, 1).Value = "" tun TabName = Zellen (x, 1).Value ActiveWorkbook.Sheets (TabName). Tab.ColorIndex = 4 x = x + 1 Schleife Enden-Unterseeboot

Related Lösungen: Get, das von der Vorsprungfarbe auf allen Vorsprüngen zwischen 2 tabs gereinigt

Antwort : Vorsprungfarbe ändern, wenn Vorsprungname in der Liste erscheint

VorColorTabs ()
Schwaches TabName als Schnur

x = 1

'Blätter („während Liste“). Aktivieren
Bis Zellen (x, 1).Value = "" tun

  TabName = Zellen (x, 1).Value

Für jedes Blatt in ActiveWorkbook.Sheets
Wenn InStr (Sheet.Name, TabName) dann
 Sheet.Tab.ColorIndex = 4
Beenden wenn
Zunächst

  x = x + 1
 
Schleife
Enden-Unterseeboot


'genau sein