Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.05.2024 13:28:40
Mit Inputbox eine Spaltenvariable vergeben
01.05.2024 11:28:01
Lotto 6 aus 45 - jede Zahl genau 2 Mal getippt
01.05.2024 11:19:43
Benutzerdefiniertes Zahlenformat
01.05.2024 11:00:09
Arbeitsblatt schützen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
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
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Logo beim Start einblenden

Logo beim Start einblenden
21.02.2023 09:42:30
Udo
Hallo
Ich möchte beim Start meiner Excel Datei für 2 - 3 Sekunden das ein Logo (Bild) einfügen.
Habe diesen Code hier gefunden der eine MsgBox einblendet.
Wie gehört dieser Code geändert, um ein Bild anstatt der MsgBox einzublenden.
Vielen Dank für eure Hilfe
Sub MsgBox_3Sekunden()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch...")
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Logo beim Start einblenden
21.02.2023 09:58:08
ChrisL
Hi
Du könntest ein Userform verwenden.
Modul DieseArbeitsmappe:
Private Sub Workbook_Open()
UserForm1.Show False
Application.Wait (Now + TimeValue("0:00:03"))
UserForm1.Hide
End Sub
cu
Chris
AW: Logo beim Start einblenden
21.02.2023 10:57:19
Daniel
Hi
Du könntest das Logo auf einem eigenen Tabellenblatt einfügen.
Dann aktivierst du dieses Blatt im WorkbooksOpen-Event und blendest das Blatt nach 3 Sekunden aus.
Gruß Daniel
AW: Logo beim Start einblenden
21.02.2023 12:00:48
Udo
Danke, so würd ich mir das Vorstellen, nur wie geht das, oder wie muss der Code aussehen
LG
AW: Logo beim Start einblenden
21.02.2023 12:46:11
Daniel
einfach so mit diesem Code im Modul "DieseArbeitsmappe"
Private Sub Workbook_Open()
With Sheets("Startbildschirm")
    .Visible = xlSheetVisible
    .Select
    Application.Wait Now + TimeSerial(0, 0, 3)
    .Visible = xlSheetVeryHidden
End With
End Sub
vorher musst du das Blatt "Startbildschirm" einmal erstellen und dein Logo dort platzieren. ich würde dann auch noch Gitternetzlinien und Zeilen/Spaltenköpfe ausblenden, damit es besser aussieht.
mit xlSheetVeryHidden wird das Blatt dann so ausgeblendet, dass der Anwender es nicht mehr einblenden kann (das geht dann nur noch über den VBA-Editor)
Gruß Daniel
Anzeige
AW: Logo beim Start einblenden
22.02.2023 11:14:45
Udo
Vielen Dank!
AW: Logo beim Start einblenden
22.02.2023 17:33:58
Udo
Wenn ich den Code manuell ausführe funktioniert er.
Nur wenn ich die Mappe neu öffne, passiert leider nichts?
LG
AW: Logo beim Start einblenden
22.02.2023 18:01:11
Daniel
Hi
bei mir gehts
hast du vielleicht:
- die Makros nicht aktiviert?
- die Automatsiche Events ausgeschaltet?
Ob dein Excel 365 da anders reagiert als meine 2016er Version weiß ich leider nicht
Gruß Daniel
AW: Logo beim Start einblenden
22.02.2023 19:51:37
Eifeljoi5
Hallo
Der Code funktioniert tadellos auch bei Microsoft 365.
Vermute hast nicht in "Dieser Arbeitsmappe" stehen.

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige