Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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.
;
Anzeige
Anzeige

Infobox / Tutorial

Logo beim Start einblenden in Excel


Schritt-für-Schritt-Anleitung

Um ein Logo beim Start deiner Excel-Datei für 2-3 Sekunden anzuzeigen, kannst du den folgenden VBA-Code verwenden. Diese Anleitung geht davon aus, dass du bereits ein Tabellenblatt mit dem Namen "Startbildschirm" erstellt hast, auf dem du dein Logo (Bild) platziert hast.

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge im Projekt-Explorer unter "DieseArbeitsmappe" den folgenden Code ein:

    Private Sub Workbook_Open()
       With Sheets("Startbildschirm")
           .Visible = xlSheetVisible
           .Select
           Application.Wait Now + TimeSerial(0, 0, 3)
           .Visible = xlSheetVeryHidden
       End With
    End Sub
  3. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Excel-Datei (*.xlsm).

  4. Schließe und öffne die Excel-Datei erneut, um zu überprüfen, ob das Logo (Excel-Logo 2023 oder ein anderes Logo) beim Start angezeigt wird.


Häufige Fehler und Lösungen

  • Makros nicht aktiviert: Stelle sicher, dass du Makros in Excel aktiviert hast, da der Code sonst nicht ausgeführt wird.
  • Automatische Ereignisse deaktiviert: Überprüfe, ob die automatischen Ereignisse ausgeschaltet sind. Aktiviere sie, um die Funktionen des Codes zu gewährleisten.
  • Falscher Ort für den Code: Stelle sicher, dass der Code in "DieseArbeitsmappe" eingefügt wurde. Andernfalls wird das Logo nicht angezeigt.

Alternative Methoden

Falls du eine andere Methode bevorzugst, kannst du auch ein UserForm verwenden. Hier ist ein Beispiel:

  1. Erstelle ein UserForm mit dem Logo.
  2. Füge folgenden Code in "DieseArbeitsmappe" ein:

    Private Sub Workbook_Open()
       UserForm1.Show False
       Application.Wait (Now + TimeValue("0:00:03"))
       UserForm1.Hide
    End Sub

Diese Methode ermöglicht es dir, das Logo (Excel-Logo) anzuzeigen, ohne ein zusätzliches Tabellenblatt verwenden zu müssen.


Praktische Beispiele

Hier sind einige Beispiele, wie du dein Excel-Logo einblenden kannst:

  • Logo auf einem Tabellenblatt: Platziere dein Logo auf dem "Startbildschirm"-Tabellenblatt und verwende den vorherigen VBA-Code, um es beim Start anzuzeigen.

  • UserForm mit Bild: Verwende ein UserForm, um das Logo anzuzeigen. Füge ein Bildsteuerelement hinzu und platziere dein Logo dort.


Tipps für Profis

  • Gitternetzlinien ausblenden: Um das Erscheinungsbild zu verbessern, blende die Gitternetzlinien und die Zeilen/Spaltenköpfe im "Startbildschirm"-Tabellenblatt aus.

  • Verwendung von xlSheetVeryHidden: Mit der Sichtbarkeitseinstellung xlSheetVeryHidden kannst du das Tabellenblatt so ausblenden, dass es nicht mehr über die Excel-Oberfläche zugänglich ist, sondern nur über den VBA-Editor.


FAQ: Häufige Fragen

1. Warum wird das Logo nicht angezeigt, wenn ich die Datei öffne? Überprüfe, ob die Makros aktiviert sind und der Code korrekt in "DieseArbeitsmappe" eingefügt wurde.

2. Funktioniert dieser Code in Excel 2023? Ja, der Code funktioniert sowohl in Excel 2023 als auch in anderen Versionen, solange die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige