Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sub Workbook_open

Forumthread: Sub Workbook_open

Sub Workbook_open
28.01.2004 13:16:53
Dieter
Hallo Forum,
ich habe unten stehen Code in "DieseArbeitsmappe" stehen wie kann ich ereichen
das nicht nur Blatt1, sondern auch Blatt2 der Scroll vorgang begrenzt ist.
MfG Dieter

Private Sub workbook_open()
Sheets("Blatt1").ScrollArea = "A1:Z42"
Sheets("Blatt1").ScrollArea = "A1:Z42"
Range("A7").Select
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub Workbook_open
28.01.2004 13:25:54
Marc
Hallo Dieter,
mal ganz einfach damit probiert?

Private Sub workbook_open()
Sheets("Blatt1").ScrollArea = "A1:Z42"
Sheets("Blatt1").ScrollArea = "A1:Z42"
Sheets("Blatt2").ScrollArea = "A1:Z42"
Sheets("Blatt2").ScrollArea = "A1:Z42"
Range("A7").Select
End Sub

Gruß
Marc
Anzeige
AW: Sub Workbook_open
28.01.2004 13:29:52
Jonathan
warum eigentlich 2/ Blatt 1?
Den Code ausm Forum bekommen?
Ich denke, die 2. Zeile muss angepasst werden............

Grüße
Jonathan
AW: Sub Workbook_open
28.01.2004 13:43:33
Dieter
Hallo Jonathan, das ist genau richtig die zweite Zeile müsste
angepasst werden.
Hallo Marc,wenn dein Code laufen würde müsste der von mir auch laufen,
bekomme bei deinem und meinem eine Fehlermeldung und der Code wird ander
Stelle angehalten "Sheets("Blatt2").ScrollArea = "A1:Z42".
MfG Dieter
Anzeige
AW: Sub Workbook_open
28.01.2004 13:55:51
y
hi dieter,
ich gehe mal davon aus, dass der name nicht gestimmt hat
versuchs mal so:

Private Sub workbook_open()
Sheets(1).ScrollArea = "A1:Z42"
Sheets(2).ScrollArea = "A1:Z42"
Range("A7").Select
End Sub

cu Micha
AW: Sub Workbook_open
28.01.2004 14:00:23
Jonathan
Nochn kleiner Tipp:
ich habe das mal auf eine Datei angewandt, die schreibgeschützt war und die GAR NICHT gescrollt werden sollte. also alles was man sehen sollte, war standardmäßig auch sichtbar.
Da habe ich dann den Bereich A1:A1 genommen.
Weil:
wenn das blatt geschützt ist - dass geschützte zellen auch nicht ausgewählt werden köönen - kann es vorkommen, dass beim doppelklick auf eine zelle das bild irgendwo hinspringt. daher der kleinstmöglich bereich!
MfG
Jonathan
Anzeige
AW: Danke an alle , Micha lag richtig !!! o.T.
28.01.2004 14:20:24
Dieter
''
danke für die rückmeldung :-) o.t.
28.01.2004 14:24:02
y
...
;

Forumthreads zu verwandten Themen

Private Sub open geht nicht gut
Lukas

Hi Allerseits
Kann mir jemand von Euch helfen'
Ich starte die Datei mit Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen. Bis dahin alles i.O. Private Sub Workbook_Open() On Error Resume Next Application.Visible = False Application.ScreenUpdating = False...
14.02.2009 14:03:00
Thread-ID: 1050709
7 Beiträge
Problem mit Private Sub Workbook_SheetDeactivate
Peter

Guten Tag
Immer wenn ich die Tabelle "Journal-zum-bearbeiten" verlasse, sollte der Code Aktivieren_Analyse ausgeführt werden.
Mir ist nicht klar, weshalb der nachfolgende Code dies nicht immer auslöst:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If Sh.Name = "Journal-zu...
14.10.2009 15:21:27
Thread-ID: 1109595
3 Beiträge
Private Sub Workbook_Open()
Sandra

Hallo zusammen,
mittels dieses Ereignisses erhält mein Chef montags und mittags beim Öffnen der Datei eine Info:
Private Sub Workbook_Open() Sheets("Übersicht").Select If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 3 Then MsgBox "über ..... informieren!" End If End Sub
Dummerweise...
16.10.2009 17:36:38
Thread-ID: 1110164
7 Beiträge
Private Sub WorkbookOpen() | Herbers Excel-Forum
Heinz H
Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy<...
31.01.2010 17:59:02
Thread-ID: 1134636
4 Beiträge
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Anzeige
Sub Workbook_Open()
Manfred

Hallo zusammen,
ist es möglich nach einem Sub Workbook_Open() dierekt auf das Blatt KALENDER zu springen ? Ich bekomme das einfach nichthin. Sub Workbook_Open() 'hier werden die Tabellen versteckt Sheets("Passwort").Visible = 2 Sheets("Benutzer_01").Visible = 2 'Die Passwortabfrage sollt...
22.08.2013 09:53:58
Thread-ID: 1327935
2 Beiträge
Zwei unterschiedliche Private Sub Workbook_Sheet..
Alex

Hallo Herr Herber,
ich fürchte, dass ich bei einer Kombination aus zwei VBA-Codes nicht weiterkomme.
Ich habe einen Urlaubsplaner auf der Arbeit.
Bei diesem habe ich den Code (aus dem Netz) eingebettet, der die Datei nach 10 unbenutzten Minuten automatisch schließt.
Link: http:/...
15.01.2015 08:26:00
Thread-ID: 1402921
2 Beiträge
Private Sub Workbook_BeforeClose
Heinz

Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz Private Sub Workbook_BeforeClose(Cancel As B...
18.08.2015 21:00:19
Thread-ID: 1443017
3 Beiträge
Private Sub Workbook_Open() aus AddIn in Datei
Veit

Hallo,
ich suche ein Möglichkeit einer neuen EXCEL-Datei aus einem AddIn heraus ein Start-Makro zuzuweisen. Hintergrund der Geschichte ist, daß sobald eine zum AddIn gehörende Datei geöffnet wird schon die ersten Makros aus dem Addin ausgeführt werden sollen.
Gibt es da eine Möglichkeit?...
20.08.2002 14:55:16
Thread-ID: 150664
4 Beiträge
OptionButton bei Sub Workbook_open() nicht vorhand
Andreas

Hallo Kollegen,
ich bitte euch um Hilfe bei folgendem Problem mit demAktivXSteuerelement "OptionButton1":
Excel 2016
Ich habe zwei OptionButtons- wenn einer dieser Beiden ausgewählt wird, werden bestimmte Objekte aktiviert/deaktiviert. Das funktioniert im Normalfall.
Beim Start...
26.07.2018 09:00:00
Thread-ID: 1635938
2 Beiträge
Private Sub Workbook_Open() - Fehlermeldung
vbabi

Hallo zusammen,
ich habe in VBA ein Passwortschutz erstellt. Hierfür nutze ich eine Anmeldemaske die beim Öffnen der Excel-Datei erscheint. Nach Eingabe des Benutzernamens und des Passworts öffnet sich das Excel.
Wenn ich jedoch zuvor eine oder mehrere andere Excel-Dateien geöffnet habe...
08.01.2019 14:07:16
Thread-ID: 1666584
5 Beiträge
VBA: MsgBox in Private SuB zum laufen bringen
charly84

Hallo, ich bin neu hier.
Ich bin kein As in VBA aber dass was Ich bis Dato schaffe freut mich, denn man kann nur dazulernen.
Mein Persönliches Projekt ist es eine Eigene kleine Datenbank zu Erstellen.
Nun zu meinem Eigentlichen Problem, uns zwar habe Ich in einem Worksheet drei (Pri...
01.03.2019 20:51:54
Thread-ID: 1678829
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige