Textfeld für VBA-Meldung
24.05.2005 11:37:29
Torsten K.
in meinem Makro möchte ich ein Textfeld setzen, das den User darauf hinweist, während der Ausführung des Makros einen Augenblick zu warten:
Private Sub cmb_UpLoad_Click()
If MsgBox("Sollen der UpLoad jetzt beginnen?", vbYesNo) = vbYes Then
Dim i As Integer
Dim irow As Integer
Dim wbName As String
Dim Daten() As Long 'Array, noch nicht dimensioniert, da Länge noch nicht bekannt
Dim DatenAnz As Integer
Dim j As Integer
Dim k As Integer
Dim CostCenter As Long
On Error GoTo errHandler
Application.ScreenUpdating = False
'Application.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
Application.DisplayAlerts = False
Application.EnableEvents = False
ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.Checkbox.1", Left:=70, Top:=60, Width:=15, Heigth:=25).Activate
ActiveSheet.OLEObjects(ActiveSheet.OLEObjects.Count).Name = "Nachricht"
ActiveSheet.OLEObjects("Nachricht").Object.Text = "Bitte einen Augenblick warten..."
Code
Application.ScreenUpdating = True
Else
End If
Exit Sub
errHandler:
Application.DisplayAlerts = True
Application.StatusBar = False
Application.EnableEvents = True
MsgBox "Beim UpLoad der Datei" & vbCr & wbName & vbCr & _
"ist ein Fehler aufgetreten!", vbCritical + vbOKOnly, "ABBRUCH!"
End Sub
Leider springt Excel nach der Zeile:
"ActiveSheet.OLEObjects("Nachricht").Object.Text = "Bitte einen Augenblick warten..."
direkt in den errHandler, ohne den Code auszuführen.
Kann mir jemand weiterhelfen?
Vielen Dank im voraus.
Gruß
Torsten