Makro mit Template

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Ich fange einfach mal mit ein paar Inputs an. Bitte die Frage bei Bedarf wieder als offen markieren.
Die Zuweisung/Referenzierung hast du schon richtig als Problem erkannt. Zur Präzisierung würde ich vorschlagen, dass du ThisWorkbook verwendest also diejenige Mappe mit dem Makro im Gegensatz zur zufälligerweise aktiven Mappe.


Set gwkbWorkbook = ThisWorkbook
Set gwksWorksheet = gwkbWorkbook.Sheets(1)

Manchmal öffnet sich das Makro beim Anwender im geschützten Modus, das führt zu einem Fehler in der zweiten Zeile
Kann ich nicht nachvollziehen (stimmt die Fehlerzeile?). Und welcher Modus ist denn genau gemeint, abgesicherter Modus, Datei-Schreibschutz, Mappenschutz, Blattschutz...
Wenn ich im Debugging bin, führt die Ansprache des Worksheets zu einem Fehler, weil das wohl nicht mehr definiert ist
Wenn du auf "beenden" statt "debuggen" drückst, werden die Variablen geleert. Dies ist normal. Aber Debuggen sollte eigentlich nur in der Entwicklung vorkommen und nachher sind die Fehler eliminiert oder per Error-Handling abgefangen.
Ich nehme an mit Drumrum ist ein formatiertes Tabellenblatt gemeint. Ob du da soviel Übersichtlichkeit gewinnst, wenn du die Vorlage in eine externe Datei kopierst würde ich bezweifeln. Zumal du damit eine neue Komplexität und Fehleranfälligkeit schaffst. Und wenn du das doch willst, dann einfach mal mit dem Makrorekorder, Datei öffnen, Blatt kopieren, wieder schliessen.
Vielleicht meinst du mit Drumrum aber auch Makros. In dem Fall würde ich eher auf eine Add-In Datei tendieren.
cu
Chris

Hi Hans-Jürg
"geschützte Ansicht"
https://support.microsoft.com/de-de/topic/was-ist-die-gesch%C3%BCtzte-ansicht-d6f09ac7-e6b9-4495-8e43-2bbcdbcb6653
Da gibt es scheinbar diverse Varianten, wobei ich eigentlich annehmen würde, dass die Makros dann ganz generell deaktiviert sind. Jedenfalls kann ich den Fehler noch nicht einordnen.
Statt GoTo könntest du mal Activate versuchen. Einfach nur um sicherzustellen, dass auch wirklich die richtige Mappe und Tabelle aktiv sind.


Sub t()
Dim gwkbWorkbook As Workbook
Dim gwksWorksheet As Worksheet
Set gwkbWorkbook = ThisWorkbook
Set gwksWorksheet = gwkbWorkbook.Sheets(1)
gwkbWorkbook.Activate
gwksWorksheet.Activate
gwksWorksheet.Range("Y29:AD30").Select
End Sub

Wenn der Fehler tatsächlich immer nur beim ersten Öffnen einmalig auftritt, hätte ich hier mal eine Variante zum Fehlerhandling. Zwar nicht sauber sondern recht schmutzig, aber das musst du ja niemandem verraten und als einmalige Angelegenheit m.E. vertretbar.


Sub tt()
Dim gwkbWorkbook As Workbook
Dim gwksWorksheet As Worksheet
On Error GoTo errorhandler
Set gwkbWorkbook = ThisWorkbook
Set gwksWorksheet = gwkbWorkbook.Sheets(1)
gwkbWorkbook.Activate
gwksWorksheet.Activate
gwksWorksheet.Range("Y29:AD30").Select
Exit Sub
errorhandler:
MsgBox "Beim ersten Start dieser Datei kann es zu einem unvorhergesehenen Fehler kommen. " & _
"Bitte schliessen sie die Datei und starten sie erneut."
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread