Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen beim Öffnen der Datei

Makro ausführen beim Öffnen der Datei
13.07.2005 10:29:42
Monique
Hi,
ich wollte in meine Exceltabelle eine Erinnerungsfunktion einbauen. Diese soll sich immer zeigen, wenn die Datei geöffnet wird. Wie mache ich das jetzt, dass das Makro dazu immer gleich nach dem Öffnen ausgeführt wird?
Gibt es auch einen Befehl dazu, dass immer Mappe 1 angezeigt wird nach dem öffnen?
Falls das von Bedeutung ist, ich habe eine englische Office-Version.
Vielen Dank.
Monique

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen beim Öffnen der Datei
13.07.2005 10:35:34
Rocky
Hi Monique,
geh in den VBA Editor,
links im Explorer sind alle Tabellenblätter aufgelistet die sich in deiner Datei befinden. An oberster Stelle ist eines das nicht grau sondern weiß ist und hat ein grünes excel symbol.
darauf doppelklick
dann oben in der Erfassung Workbook einstellen und als deklaration Open
das sieht dann so aus

Private Sub Workbook_Open()
End Sub

fertig
gruß rocky
AW: Makro ausführen beim Öffnen der Datei
13.07.2005 10:39:42
Eule
Hi Monique, hi Rocky
der Ansatz ist richtig, blos fehlt noch was.

Private Sub Workbook_Open()
Sheets(1). Activate
msgbox "Hallo"
End Sub

Gruss Eule
Anzeige
@Eule
13.07.2005 10:44:41
Rocky
Hallo Eule,
will dich ja nicht angreifen, doch von sheet(1) war nie die Rede
es funktioniert auch ohne sheet(1)

Private Sub Workbook_Open()
msgbox "Hallo"
End Sub

Gruß Rocky
AW: @Eule
13.07.2005 10:48:54
Eule
Hi Rocky
wer lesen kann, ist entschieden im Vorteil.
Die Frage war u.a. wie kann ich es machen, dass immer ein bestimmtes Sheet beim Öffnen aktiviert ist.
Gruss Eule
AW: @Eule
13.07.2005 10:54:16
Rocky
OK jetzt weiß ich was du meinst!
ich dachte mit Mappe 1 wäre die Urdatei (Vorlagedatei) gemeint und nicht das erste Tabellenblatt
nehm den Anschiss zurück!
Gruß Rocky
Anzeige
AW: Makro ausführen beim Öffnen der Datei
13.07.2005 10:59:40
Monique
Vielen Dank euch beiden.
Funktioniert an sich super. Leider habe ich nen Fehler in meinem Makro.
Ich hatte als Vorlage stehen:
If Range("Tabelle1!A1") "kleinerzeichen Now Then
MsgBox "Nachricht"
Range("Tabelle1!A1").Value = Range("Tabelle1!A1").Value + 7
End If
Und das habe ich daraus gemacht:
If Range("ActiveWorkbook.Sheets(1)!BN1") "kleinerzeichen" Now Then
MsgBox "Bitte überprüfen Sie die Aktualität Ihrer Files."
Range("Sheets(1)!BN1").Value = Range("Sheets(1)!BN1").Value + 7
End If
Leider funktioniert das nicht. Den Fehler gibt es schon in der ersten Zeile. Ich denke mal, dass ich für Tabelle1 der falsche eingesetzt habe. Was muss denn da hin? Oder kann es sein, dass er mein eingetragenes Datum nicht erkennt?
Danke nochmals.
Monique
Anzeige
AW: Makro ausführen beim Öffnen der Datei
13.07.2005 11:03:38
Eule
Hi Monique
If sheets(1).Range("BN1") "kleinerzeichen" Now Then
MsgBox "Bitte überprüfen Sie die Aktualität Ihrer Files."
Sheets(1).Range("BN1").Value = Sheets(1).Range("BN1").Value + 7
End If
Gruss Eule
AW: Makro ausführen beim Öffnen der Datei
13.07.2005 11:06:47
Rocky
Hallo Nochmal,
If Sheets(1).Range("BN1)"Kleinerzeichen" Now Then
MsgBox "Bitte überprüfen Sie die Aktualität Ihrer Files."
Sheets(1).Range("BN1).Value = Sheets(1).Range("BN1).Value + 7
End If
Probier das mal aus!
hab selbst jetzt nicht getestet!
Gruß Rocky
Danke.
13.07.2005 11:19:41
Monique
Hi.
Vielen Dank nochmal. scheint echt super zu funktionieren.
tschüssi Monique
Anzeige
AW: Makro ausführen beim Öffnen der Datei
13.07.2005 10:37:00
th.heinrich
hallo Monique,

Private Sub Workbook_Open()
Dein makro
End Sub

zu Mappe1, wenn Du die datei mit aktiver mappe1 speicherst wird sie auch so wieder geoeffnet.
gruss thomas

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4