Hallo zusammen,
ich habe folgendes Problem:
Ich möchte mehrere, nicht zusammenhängende Spalten per code identifizieren, und diese anschließend einem Namensbereich zuordnen.
Im Ergebnis müsste dann beispielsweise Spalten B,E, H den Namen "Planzahlen" tragen, die Spalten C,F,I den Namen "Istzahlen" etc.
Um Spalten mit gleichen Inhalten zu identifizieren habe, ist jeweils in Zeile 1 eine Nummer vergeben, welchen den Inhalt der Spalte eindeutig identifiziert.
Sinngemäß war nun meine Idee, mit folgendem Code zu arbeiten:
range(cells(1,1),cells(1,activesheet.usedrange.columns.count)).select
for each cl in selection.cells
if cl.value = 1 then cl.entirecolumn.select
next
selection.names.add:="Beispielname"
...
das Problem ist, dass die Zellen mit dem Wert 1 zwar gefunden werden, da der Wert 1 jedoch in mehreren Zellen vorkommt, wird immer nur die letzte Spalte mit diesem Wert markiert.
Danke vorab für hilfreiche Vorschläge!
Die Datei mit der Ausgangsbasis und dem gewünschten Ziel findet Ihr hier:
https://www.herber.de/bbs/user/97082.xlsx