5
VBA-Makro verschwindet nach Speichern
Liebe Leute,
bei mir verschwindet der Makro für den Scrollbereich in Excel(abgespeichert in xlsm) immer wieder nach dem Speichern.
Wenn ich die Datei wieder öffne und dann scrolle, funktioniert dieser eingeschränkte Bereich nicht mehr.
Ich gehe folgendermaßen vor:
Blattregister Tabellenblatt1 rechtsklick-->code anzeigen-->
Private Sub Workbook_Open()
Sheets("Tabellenblatt1").ScrollArea = "A$1:$R$100"
End Sub
dies funktioniert wenn ich den Makro ausführe, aber nach dem Speichern und wieder öffnen verschwindet es.
Was mache ich bitte nicht korrekt ?:
Danke.
LG
Hans
bei mir verschwindet der Makro für den Scrollbereich in Excel(abgespeichert in xlsm) immer wieder nach dem Speichern.
Wenn ich die Datei wieder öffne und dann scrolle, funktioniert dieser eingeschränkte Bereich nicht mehr.
Ich gehe folgendermaßen vor:
Blattregister Tabellenblatt1 rechtsklick-->code anzeigen-->
Private Sub Workbook_Open()
Sheets("Tabellenblatt1").ScrollArea = "A$1:$R$100"
End Sub
dies funktioniert wenn ich den Makro ausführe, aber nach dem Speichern und wieder öffnen verschwindet es.
Was mache ich bitte nicht korrekt ?:
Danke.
LG
Hans
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 322585
Url: https://administrator.de/contentid/322585
Printed on: April 25, 2024 at 20:04 o'clock
5 Comments
Latest comment
Und das ist schon falsch.
Du musst den Code im VBA Editor (ALT+F11)in den Abschnitt DieseArbeitsmappe oder ThisWorkbook einfügen (Auf der linken Seite im Ordnerbaum doppelklicken), da nur dort das Event Workbook_Open existiert und beim Start der Mappe ausgeführt wird.
Das ist der einfache Grund.
Gruß
Du musst den Code im VBA Editor (ALT+F11)in den Abschnitt DieseArbeitsmappe oder ThisWorkbook einfügen (Auf der linken Seite im Ordnerbaum doppelklicken), da nur dort das Event Workbook_Open existiert und beim Start der Mappe ausgeführt wird.
Das ist der einfache Grund.
Gruß
Danke.
Bitte.
danke dir hat geklappt
LG
Hans
LG
Hans
Hallo,
ich bins wieder, aber dies ist für dieses Thema meine letzte Frage)
ich wollte nun für ein zweites Tabellenblatt das gleiche machen und habe dies bei "dieseArbeitsmappe" eingefügt, jetzt nimmt er die Änderung zwar an, wenn ich es gleich probiere aber beim Speichern und Öffnen der Datei verschwindet der Scrollbereich für das zweite "Tabellenblatt 2". Es bleibt nur die Änderung für das "Tabellenblatt 1 " bestehen.
Das ist mein Code das ich verwendet habe
Private Sub Workbook_Open()
Sheets("Tabellenblatt 1").ScrollArea = "B$1:$AS$70"
End Sub
Private Sub Scrollbereich()
Sheets("Tabellenblatt 2").ScrollArea = "A$1:$L$700"
End Sub
Danke dir vielmals .
LG
Hans
ich bins wieder, aber dies ist für dieses Thema meine letzte Frage
)ich wollte nun für ein zweites Tabellenblatt das gleiche machen und habe dies bei "dieseArbeitsmappe" eingefügt, jetzt nimmt er die Änderung zwar an, wenn ich es gleich probiere aber beim Speichern und Öffnen der Datei verschwindet der Scrollbereich für das zweite "Tabellenblatt 2". Es bleibt nur die Änderung für das "Tabellenblatt 1 " bestehen.
Das ist mein Code das ich verwendet habe
Private Sub Workbook_Open()
Sheets("Tabellenblatt 1").ScrollArea = "B$1:$AS$70"
End Sub
Private Sub Scrollbereich()
Sheets("Tabellenblatt 2").ScrollArea = "A$1:$L$700"
End Sub
Danke dir vielmals .
LG
Hans
Wow da steht aber einer ziemlich dick auf dem Schlauch x-)
Private Sub Workbook_Open()
Sheets("Tabellenblatt 1").ScrollArea = "B$1:$AS$70"
Sheets("Tabellenblatt 2").ScrollArea = "A$1:$L$700"
End Sub
vielen dank )
Langsam, aber doch mit deiner Hilfe seit letzter Woche find ich mich ein wenig mit VBA zurecht :)
LG
Hans
)Langsam, aber doch mit deiner Hilfe seit letzter Woche find ich mich ein wenig mit VBA zurecht :
)LG
Hans
