Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1428to1432
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

Zellennamen

Zellennamen
12.06.2015 09:33:09
Larissa
Hallo liebe Community,
folgende Situation:
Ich habe in einer Excel-Datei zwei Tabellenblätter, die identische Zellennamen haben (von mir so gewünscht und diese Zellennamen sind nicht mehr "A1" etc. ).
Für jeden Zellennamen in meinem Workbook möchte ich je nach Eigenschaften die Farbe verändern:

For Each rName In wkb.Names
Set rng = rName.RefersToRange
For x = 0 To lrow
If PosX(x) = rName.Name Then
rng.Interior.ColorIndex = 4
End If
Next
Next
Für das erste Tabellenblatt werden die Zellen wie gewünscht gefärbt, aber für das zweiten Tabellenblatt wird die if-Bedingung (PosX(x) = rName.Name) nie erfüllt und entsprechend nicht gefärbt.
Meine Idee war das zweite Arbeitsblatt separat anzusprechen:
For Each rNameTB2 In wkb.Sheets(2).Names

If PosX(x) = rNameTB2.Name Then
Aber die If-Bedingung wird trotzdem nie erfüllt.
Habt ihr eine Idee wo mein Denkfehler ist?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellennamen
12.06.2015 10:03:11
Klexy
Nur eine Idee:
If wkb.Sheets(2).PosX(x) = rName.Name Then

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige