Textbox temporär ein- und ausblenden
20.09.2016 11:10:05
Gunter
Ich habe mit dem Makrorecorder aufgezeichnet und wollte jetzt das Ganze etwas erweitern, komme aber nicht weiter.
Folgendes ist einem Steuerelement zugewiesen:
Sub Montag()
' Montag Makro
' Tastenkombination: Strg+a
ActiveSheet.TextBox1.Visible = True
Application.Wait (Time + TimeSerial(0, 0, 5))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Tagesplan$\httpdocs\Tageskalender_Mo.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveSheet.TextBox1.Visible = False
End Sub
Wenn ich mit F8 step by step durchgehe funktioniert folgendes. Zuerst wird die Textbox sichtbar, dann bleibt der Zustand für fünf Sekunden so, anschliessend wird ausgedruckt und die Textbox verschwindet wieder. So wie es sein soll. Wenn ich aber nicht mit F8 durchgehe, sondern normal das Steuerelement anklicke dann erscheint die Textbox nur ganz kurz.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter