Office: (Office 2019) VBA Laufzeitfehler 9

Guten Abende an alle VBA Profi,
Ich lerne gerade Programmierung mit VBA und habe fast null Ahnung von Fehlern
ich habe folgenden Probleme. ich einen xlsm Datei versuche eine Tabelle mit codename anzusprechen aber leider gibt mir immer die Laufzeitfehler 9 und dies geschieht nicht bei diese Datei sondern fast alle Datei die ich xlsm habe. Zur Einstellung habe ich Trustcenter haken auf Zugriff auf das VBA Projektobjektmodell vertrauen angesetzt. Trotzdem hat nicht gebracht. soweit ich gegooglet habe, die Fehler besagt, das Objekt nicht da ist aber ich kann versichern, dass es da ist und habe ich richtig die Name geschrieben. Er soll auf die Tabelle mit codename ansprechen aber blieb meine Versuchungen erfolglos. habe excel zurückgesetzt nix gebracht.
hat jemand Ahnung und mir behilflich sein. Als Beispiel lade ich eine Datei hoch um besser zu verstehen.
Danke im Voraus

 

Hallo,

der Fehler liegt hier: Set ws = ThisWorkbook.Sheets("Tabelle1") du hast den Codenamen falsch eingesetzt. So wie du es gemacht hast, wäre das: Set ws = ThisWorkbook.Sheets("tblCode") richtig. Mit Codenamen sähe es so aus: Set ws = Tabelle1.

 

Hallo Klaus-Dieter,
vielen Danke für dein prompt Antwort.
Meinst mit thisworkbook.sheets kommt nur die Tabellen Name und nicht codename oder habe ich falsch verstanden? Tatsächlich habe ich wie du beschrieben geschrieben und den Fehler kommt nicht. aber bitte meine Frage beantworten damit ich lerne.
Besten Dank
Yohana Monir

 

Moin!
Wenn Du Vokabeln lernst, wirst Du auch nicht verstehen warum der englische butcher auf Deutsch Metzger oder Fleischer heißt.
Also musst Du es Dir "einfach nur" merken.
Ähnlich hier:
Gib mal ins Direktfenster (Strg+g im VBE) folgendes, gefolgt von Enter, ein:
?Tabelle1.Name
Du erhältst tblCode
Hingegen ergibt
?Worksheets("tblCode").CodeName
Tabelle1

Gruß Ralf

 

Weiter im Text:
Bei Worksheets() oder Sheets() handelt es sich um Auflistungen, die einen String (.Name) oder eine Zahl (.Index, beginnend links mit 1) erwarten.
• Worksheets("xyz")
• Worksheets(1)
• Worksheets(Worksheets.Count)
Der CodeName hingegen ist ein Objekt, welches VBA bereits bekannt ist.
Letzteres überprüfen wir gleich mal:
Gib in einer neuen Zeile des Direktbereichs folgendes ein:
Tab
Wenn Du jetzt Strg+Leertaste drückst, ergänzt der Editor automatisch zu
Tabelle1
Jetzt fügst du ein neues Tabellenblatt ein
Tab
gefolgt von Strg+Leertaste, zeigt Dir jetzt eine Auflistung der möglichen Treffer:

Jetzt hoffe ich auf einen kleinen Lernerfolg …

 

Vielen Dank Ralf
ich hoffe das VBA nicht zu schwierig. habe wieder was neues gelernt.
Gruß Monir

 

Hallo Ernest,

du weißt schon, dass das hier ein Excelforum ist? Welche Office-Version verwendest du?