Codenamen aus anderer Arbeitsmappe

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe eine Arbeitsmappe offen und öffne eine zweite Arbeitsmappe.

Nun will ich aus Arbeitsmappe2 das Worksheet mit dem Codenamen „Tabelle2“ nach Arbeitsmappe1 kopieren.

Wie mache ich das?

Also wie man kopiert weiß ich, aber wie rufe ich ein sheet anhand des codenamens in einer anderen Arbeitsmappe auf?

Workbooks(2).Tabelle2.copy
funktioniert nicht

Es ist wichtig, dass es der Codename ist, da der normale Name ja umbenannt werden kann.

Gruß,

arthur

2

Nun will ich aus Arbeitsmappe2 das Worksheet mit dem Codenamen
„Tabelle2“ nach Arbeitsmappe1 kopieren.
Workbooks(2).Tabelle2.copy
funktioniert nicht
Es ist wichtig, dass es der Codename ist, da der normale Name
ja umbenannt werden kann.

Hi Arthur,

als workaround:

Sub tt()
Dim wks As Worksheet
For Each wks In Workbooks("Mappe2").Worksheets
 If wks.CodeName = "Tabelle2" Then
 wks.Copy
 Exit For
 End If
Next wks
End Sub

Direkteren Weg kenne ich nicht, beim Copy mußt du noch das Ziel ergänzen.

Gruß
Reinhad