Hallo Gerd,
ich denk dein Problem ist erst mal dass man die Tabellen nicht mit Namen Ansprechen soll.
Ich mein wer hindert schon einen User daran den Tabellennamen zu änder, und schon heißt es nciht mehr Tabelle2 sondern weils schöner
zu lesen ist Tabelle 2.
Also habe extra ne Personal.xlsb erzeugt und folgender Code gibt mir genau die Namen der Tabellenblätter.
( 2 mal die fast gleiche Schleife um das Verwenden von Variablen und Objekten zu verdeutlichen)
ActiveWorkbook und ActiveSheet funktionieren bei mir einwandfrei, auch über Mappen-Grenze hinaus.
Sonst würde ActiveWorkbook auch kein Sinn machen.
Sub Makro1()
Dim AWB As Workbook
Dim AWS As Worksheet
Dim ws As Worksheet
Dim i As Integer
Set AWB = ActiveWorkbook
Set AWS = ActiveSheet
MsgBox AWS.Name
For i = 1 To AWB.Sheets.Count
MsgBox AWB.Sheets(i).Name
Next i
For Each ws In AWB.Sheets
MsgBox ws.Name
Next ws
End Sub
|