Zellennamen
12.06.2015 09:33:09
Larissa
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?