Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Workbook_Open

Private Sub Workbook_Open
17.11.2004 16:19:27
marcellos
Hallo zusammen!
wie kann man in "Diese Arbeitsmappe" 2 Private Sub Workbook_Open () laufen lassen. Hab ein wenig das Gefühl, dass die anders beschriftet werden müssen oder so...
viel Dank

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

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Workbook_Open
Ulf
Geht nicht, es kann nur einen geben.
Ulf
AW: Private Sub Workbook_Open
c0bRa
erm... widerspricht sich das eigentlich nciht schon in der fragestellung?
öffnest du die mappe 2x?
du kannst in sub workbook_open() eine zweite funktion aufrufen, aber keine 2 workbook_open() schreiben.
*nen sack steine hinstell, für die die mich eines besseren belehren*
c0bRa
AW: Private Sub Workbook_Open
Marcellos
sorry für die Fragestellung ,,,, hab mir gerade VBA-Programmierung mit Excel -Grundlagen heruntergeladen ;-)
bislang habe ich mir einfach einen code genommen und den in ein Modul copiert oder so...
jetzt wollte ich zwei sachen in eine Mappe copieren weil ich dachte die gehören dahin... könnt ihr mir trotzdem helfen ;-)
folgende vba´s sollen laufen:
1)

Private Sub Workbook_Open()
With Cells(Sheets("Zugriffsprotokoll").Cells(Rows.Count, 2).End(xlUp).Row + 1, 2)
.Select
.Value = Now
End With
'ActiveWorkbook.Save 'Hochkomma vor ActiveWorkb... entfernen, wenn Mappe automatisch gespeichert werden soll
End Sub

*********************************
2)

Private Sub Workbook_Open()
Range("A1").Value = Range("A1").Value + 1
End Sub

Anzeige
AW: Private Sub Workbook_Open
c0bRa 

Private Sub Workbook_Open()
With Cells(Sheets("Zugriffsprotokoll").Cells(Rows.Count, 2).End(xlUp).Row + 1, 2)
.Select
.Value = Now
End With
'ActiveWorkbook.Save 'Hochkomma vor ActiveWorkb... entfernen, wenn Mappe automatisch gespeichert werden soll
Range("A1").Value = Range("A1").Value + 1
End Sub

einfach aus 2 mach 1 betreiben :)
c0bRa
AW: Private Sub Workbook_Open
c0bRa
und halt die reihenfolge festlegen... wenn des wb.save als letztes stehen soll, den ausdruck drunter einfach eine zeile drüber setzen
AW: Private Sub Workbook_Open
Marcellos
super... eine kleine Privatstunde ist doch besser als ein Handbuch ;-)
Anzeige
AW: Private Sub Workbook_Open
c0bRa
jeder fängt mal an ;)
und ich denk mal hier im forum, findet man immer jemanden (egal welchen lvl man hat), der ne lösung weiß :)

223 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
6
3
2
10
1
1
2
3
1
4
10
9
3
4
4
3
7
4
1
5
1
20
1