Supportnet / Forum / Tabellenkalkulation

Hallo Ihr guten Geister dieses Forums, gibt es eine Möglichkeit beim beenden der Datei "Test.xls" zwei Tabellenblätter (Tabelle1, Tabelle2)auszublenden und ein drittes (Info) ausgeblendetes Tabellenblatt beim beenden für ca. 10 sek. einzublenden, die anderen beiden Blätter in der Zeit auszublenden und dann die Datei entgültig zu schließen. Habe den Ursprungscode von der Homepage von Coros "30 Tage Testversion einer Exceldatei"! Aber da schließt die Datei fast sofort (gewisse verzögerung durch Abschlußspeicherung) Es geht mir um die Erweiterung das das eingeblendete Blatt erst nach 10 sek. vom Bildschirm verschwindet. Vielen Dank im voraus. Gruß Karsten

Hallo,

füge einfach eine Wartefunktion in den Code ein:

Application.Wait (Now + TimeValue("0:00:10"))

Entspricht 10 Sekunden !
Die Zeile muss nach dem "Einblendbefehl" für das Blatt "Info" eingefügt werden.

MfG

Moin kvtv,

folgendes Makro blendet vorm schließen deiner Mappe die Blätte "Tabelle1" und "Tabelle2" aus und das Blatt "Info" für 10 Sekunden ein. Nach Ablauf der 10 Sekunden wird Blatt "Info" wieder ausgeblendet und die beiden anderen wieder eingeblendet, die Mappe gespeichert und geschlossen.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Info").Visible = True
Sheets("Tabelle1").Visible = False
Sheets("Tabelle2").Visible = False
Application.Wait (Now + TimeValue("0:00:10"))
Sheets("Tabelle1").Visible = True
Sheets("Tabelle2").Visible = True
Sheets("Info").Visible = False
Workbooks("Test").Save
End Sub

Der Code muss in die VBA Umgebung der Arbeitsmappe.

MfG

JöKe

Hallo Ihr beiden,
vielen Dank für Eure schnellen Lösungen. Klappen prima. Wieder mal was dazu gelernt.
Gruß Karsten

• VBA - zurück zum letzten Blatt
• Excel daten in regelmäßigen abständen erfassen lassen
• nachtstunden in mehren bereichen ausrechnen????
• lotto zahlen anzeigen