With Tabellenblatt liefert "Nothing"

Hi, ich verzweifel grade etwas....
Ich lasse mir in einer Sub über


'Neues Temporäres Arbeitsblatt erstellen und bennenen für die Druckausgabe
ThisWorkbook.Worksheets.Add After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Name = "tmpAusgabe"
ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Properties("_CodeName") = "tblTmpAusgabe"

ein neues Arbeitsblatt in einer Mappe erstellen und möchte dann anschließend über


With tblTmpAusgabe

einstellungen vornehmen, allerdings bekomme ich dann beim Starten der Sub schon
Fehler beim Kompilieren: Variable nicht definiert und der Verweis im Debug genau auf With tblTmpAusgabe.
Wenn ich dann


Dim tblTmpAusgabe As Worksheet

einsetze, dann startet es erstmal, bis es dann zu dem ersten Punkt nach With tblTmpAusgabe kommt, in diesem Fall



.Unprotectet "Test"

dann bekomme ich die Meldung "Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt".
Ich hab es auch schon mit den Tabellennamen versucht, aber das gleiche Problem.
Wenn ich mit der Maus über With tblTmpAusgabe fahre, dann bekomme ich "Nothing" im Tooltip angezeigt.
Was mache ich falsch?
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() ThisWorkbook.Worksheets.Add After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count) ActiveSheet.Name = "tmpAusgabe" ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Properties("_CodeName") = "tblTmpAusgabe" test2 End Sub Sub test2() With tblTmpAusgabe .Cells(1, 1) = "test" .Protect End With End Sub

stümmt, Thomas,
da musste noch ma drüber nachdenken, denn...der Zugrif aufs VBA-Projektobjektmodell ist immer erst mal de-aktiviert.
Es mag Ausnahmen geben, weil vielleicht Firma XY denkt "wir brauchen das" und lassen vielleicht per Gruppenrichtlinie den Zugriff aufs Projektobjektmodell immer zu, aber standardmäßig ist bei jeder MSO-Installation diese Option ausgeschaltet - jeder User muss das "per Hand" aktivieren, wenn er das haben will.
Es gilt zu beachten:
das Zulassen des Zugriffs aufs Projektobjektmodell gibt einem "bösen Programmierer" ganz, ganz, ganz freie Hand auf deinen Computer
Daher würd ich eher empfehlen:
arbeite doch lieber mit...


With Sheets("Blattname")
End With

...anstatt mit...


With Blattname
End With

...du hast zwar mit Sheets("") immer wieder genau 10 Zeichen mehr Tipparbeit^^ :-), aber damit hast du auch viel höhere Zugriffssicherheit.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

With Tabellenblatt liefert "Nothing"

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

With Tabellenblatt liefert "Nothing"

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread