Textfeld für VBA-Meldung

Hallo beisammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 Dim obj As OLEObject Set obj = ActiveSheet.OLEObjects.Add _ (ClassType:="Forms.TextBox.1", Left:=70, Top:=60, Width:=150, Height:=25) Debug.Print TypeName(obj) obj.Name = "Nachricht" obj.Object.Text = "Bitte einen Augenblick warten..." 'Code Application.ScreenUpdating = True Else End If Exit Sub errHandler: Debug.Print Err.Number, Err.Description 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

Hallo Bernd,
das ist sehr nett von Dir, daß Du noch Geduld mit mir hast.
Hier der Link:

Die Datei https://www.herber.de/bbs/user/23163.xls wurde aus Datenschutzgründen gelöscht

Hintergrund der Datei:
In das WS("DATENVJYTD") füge ich die Daten aus SAP ein, wobei CC=Kostenstelle und CostElement=Kostenart sind. Beim UpLoad im WS("VJYTD") werden die Daten dann, abhängig von der Kostenstelle, in die Dateien der enstprechenden Kostenstellen kopiert. Dabei geht Excel eine Liste der Kostenstellen durch, die im WS("FILES") hinterlegt ist. Ich möchte nun, daß der User während dieses Vorganges eine Meldung erhält, die darauf hinweist, daß das Makro noch läuft (Dauer ca. 2 Min). Ich hatte schon eine Meldung in Application.Statusbar, das ist mir allerdings zu wenig, weil sie gerne übersehen wird.
Die Datei ist gekürzt, damit ich sie hochladen konnte.
Vielen Dank für Deine weiteren Bemühungen schon mal im voraus.
Schönen Abend und bis morgen.
Gruß
Torsten

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread