Office: Sheet über CodeName ansprechen

Hallo,

ich lese den CodeNamen eines Sheet aus und übergebe diesen an eine public varible as variant.
Nun möchte ich wieder auf dieses Sheet verweisen, habe aber Probleme damit.

PHP:

         public function eins()
For Each Worksheet In ActiveWorkbook.Worksheets
'Code
sheet_to_write = Worksheet.CodeName
'Code
next
end function

public function zwei()

sheet_to_write.Cells(1, 1).Value = "test"     Funktioniert so nicht

end function


:)

 

Hallo Heinzi,

meinst Du so?

Code:

Grüße
EarlFred

 

He danke für die Antwort.

Ja so meine ich das nur möchte ich noch

PHP:

         set test = ActiveWorkbook.VBProject.VBComponents(strBlattCodeName).Activate


 

Hallo heinzi,

dann musst Du alle Blätter mit For Each... abklappern und die Codenamen mit dem hinterlegten vergleichen, dann "Setten".

Grüße
EarlFred

Ergänzung:
Oder mach's gleich so:

Code:

 

BOAR WAS!! Ich kann das nicht direkt referenzieren? Was den das...

egal...ich danke dir trotzdem für deine hilfe und weiss nun wie ich es umzusetzen habe.

Aso und in die Zelle soll nicht der Codename. Die Codenamen sollen alle in ein Array um später über eine ComboBox die Sheets auszuwählen von denen die Daten für ein Diagramm kommen. Also ein Diagramm, mehrere Datenquellen und da ich sichergehen will, dass auch alles verfügbar ist, egal ob der User ein Sheet umbenennt, wollte ich über die Codenamen gehen.

Gruß

 

Moin Heinzi,

Danke für die Info *wink.gif* Solange ich nicht weiß, was Du genau vorhast, musst Du aber mit meinen Beispielen vorlieb nehmen *wink.gif*

Das habe ich nicht behauptet, ich kenne nur keinen anderen Weg *wink.gif* Wenn Du was besseres rausfindest, bin ich durchaus interessiert.

Ich würde meinen Anwendern nur nicht unbedingt die Codenamen anpreisen, da damit keiner was anfangen kann, wenn sie tatsächlich von den (sichtbaren) Blattnamen abweichen. Eher würde ich beim Aktivieren des Auswahlblattes sicherheitshalber die Combobox aktualisieren.

Grüße
EarlFred