Text in Textbox kurze Zeit zeigen, dann lpöschen
27.01.2009 12:55:00
Ramon
ich habe eine Datei, in der man sich per AutoFilter und Buttons (blenden Spalten ein und aus)
einen Bericht "stricken kann" und diesen dann per Knopfdruck in eine neue Datei kopieren kann.
Also nur die sichtbaren Zellen!
Damit der Benutzer eine Rückmeldung bekommt, ob der Kopiervorgang abgeschlossen ist, soll
in einem Textfeld kurz der Text "data transfer completed" erscheinen und anschließend wieder
gelöscht werden.
Dazu habe ich folgenden Code geschrieben:
Sub copy_displayed() 'kopiert sichtbare Daten in neue Datei
Application.ScreenUpdating = False
Cells.Copy
Workbooks.Add
ActiveSheet.Paste
Cells.EntireColumn.AutoFit
Windows("C & M Stammdaten_3.xls").Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
Statusmeldung 'hier wird das Makro mit der Textbox aufgerufen
End Sub
Sub Statusmeldung()
Dim TextBox1 As TextBox
Dim i As Long
Sheets("Input09").TextBox1.Value = "Data transfer completed"
For i = 1 To 1000000: Next 'a)
Sheets("Input09").TextBox1.Value = "" 'b)
End Sub
Leider bleibt die Textbox die ganze Zeit leer. Wenn ich die Zeilen a) und b) auskommentiere
kommt nach dem Kopiervorgang wie gewünscht die Satusmeldung, wird aber natürlich nicht
wieder gelöscht.
Was mach ich denn bloß falsch?
Danke, Gruß, Ramon