5.3k Aufrufe
Gefragt in Tabellenkalkulation von m-o-m Mitglied (499 Punkte)
Hallo,

in Excel 2010 brauche ich als Hinweis automatisch beim Öffnen einer Datei eine Message-box.

Private Sub Workbook_Open()
msg = MsgBox("Hier steht mein Text")
End Sub

Schonmal vorab vielen Dank für eure Hilfe.

Gruß Maik

5 Antworten

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo Maik

das sollte reichen

[code]Private Sub Workbook_Open()
MsgBox("Hier steht mein Text")
End Sub

Gruß
Rainer
0 Punkte
Beantwortet von beverly Experte (3.5k Punkte)
Hi Maik,

hier eine Lösung, wenn die MsgBox nach 3 Sekunden automatisch geschlossen werden soll:
Private Sub Workbook_Open()
Dim LoI As Long
Dim WsShell As Object
Set WsShell = CreateObject("WScript.Shell")
LoI = WsShell.Popup("Hier dein Anzeigetext", 3, "Titel der MsgBox")
End Sub

Bis später,
Karin
0 Punkte
Beantwortet von m-o-m Mitglied (499 Punkte)
Hallo und vielen Dank für die Antworten.

Leider funzt das bei meinem 2010er irgendwie nicht.

Wenn ich die Makros aus dem VBA-Projekt öffnen klappt es wunderbar. Nur halt nicht automatisch.

Muss wohl an einer Einstellung liegen. Nur an welcher? :-(
Habe sowohl alle Makros aktiviert, als auch den Zugriff auf das VBE-Projektobjektmodell gestattet.

Vielleicht fällt Euch ja noch was ein?

Gruß Maik
0 Punkte
Beantwortet von beverly Experte (3.5k Punkte)
Hi Maik,

ich habe den Code in Excel2010 getestet - funktioniert korrekt. Hast du beim Öffnen auch die Inhalte aktiviert (gelbe Zeile oberhalb der Bearbeitsungsleiste)? Andere Möglichkeit: schiebe die Mappe in einen Ordner, den du als vertrauenswürdig eingestuft hast, dann sollten die Makros ohne Rückfrage aktiviert werden.

Bis später,
Karin
0 Punkte
Beantwortet von m-o-m Mitglied (499 Punkte)
Hallo nochmal,

jetzt funzt es!

Nachdem ich das Makro nicht im Modul, sondern in der Arbeitsmappe gespeichert habe, klappt es.

Ich Danke Euch beiden für die kompetente und schnelle Hilfe.

Maik
...