Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

beim öffnen blank sheet

beim öffnen blank sheet
04.10.2004 23:18:04
mehmet
hallo forum,
'ThisWorkbook

Private Sub Workbook_Open()
WelcLogo.Show
End Sub

'Modul

Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2.5) '2.5sek
Unload Me
End Sub

wenn ich die datei öffne, öffnet sich ein userform (Mein Welcome Logo).
aber ich möchte gern, den sheet erst blank haben beim laden, dann sich
welcome logo öffnen und wenn logo weg ist soll man den sheet sehen können.
könnt ihr mir da helfen.
gruss
mehmet

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: beim öffnen blank sheet
k.Rola
Hallo,
OnTime kennt nur ganze Sekunden:
Option Explicit
Private Sub Workbook_Open()
Application.OnTime Now + TimeSerial(0, 0, 1), "UF_zeigen"
End Sub


Option Explicit
Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 3), "entladen"
End Sub


Option Explicit
Sub UF_zeigen()
UserForm1.Show
End Sub
Sub entladen()
Unload UserForm1
End Sub

Gruß K.Rola
AW: beim öffnen blank sheet
mehmet
hallo k.rola
erstmal dank für dein feedback
mein userform mit kurze verzögerung funktioniert
was ich möchte, ist das die worksheets beim öffnen der datei total blank sein sollen
dann der userform auftritt, dann sollen die datenblätter zu sehen sein

Private Sub Workbook_Open()
Spalten_und_Zeilen_Ausblenden
WelcLogo.Show
Spalten_und_Zeilen_Einblenden
End Sub

es sollen also 2 makros laufen
1. Spalten_und_Zeilen_Ausblenden und
2. Spalten_und_Zeilen_Einblenden
gruss
mehmet
Anzeige
AW: beim öffnen blank sheet
K.Rola
Hallo,
das habe ich wohl missvertanden.
Option Explicit

Private Sub Workbook_Open()
Sheets("Tabelle1").Cells.EntireRow.Hidden = True
UserForm1.Show
End Sub

Option Explicit

Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 3), "entladen"
End Sub

Option Explicit
Sub entladen()
Unload UserForm1
Sheets("Tabelle1").Cells.EntireRow.Hidden = False
End Sub
Gruß K.Rola
AW: beim öffnen blank sheet
mehmet
super k.rola
nach langem probieren hat es geklappt
ich hatte dein code falsch abgeschrieben 8-)
ich dank dir
gute nacht
gruss
mehmet
Anzeige

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