mein Ziel ist es, mit einer UserForm ein String(xml Dateinamen) anzeigen lassen. Während die xml Datei ausgelesen und ausgewertet wird, soll der Name angezeigt werden. Es sind mehrere Dateien. D. h. die UserForm soll vorlaufet den aktuellen Namen anzeigen.
Zur Vereinfachung habe ich ein Testprogramm geschrieben, siehe Anhang.
Beim Ausführen des Testprogramms ist es leide so, dass währte des Rechnens das UserForm-Fenster lädt und nichts vom Vorgang anzeigt und am Ende nur den Endwert angezeigt wird.
Gruß und Danke für Antworten
GerdL
Anhang:
Sub test()
Dim TOm As String
Dim TOm1 As String
Dim TOm2 As String
Dim cnt As Integer
For cnt = 0 To 1000
TOm1 = "Text" & cnt
TOm2 = "Antwort" & cnt + 2
TOm = AnzeigeDateinamen(TOm1, TOm2)
Next
End Sub
Function AnzeigeDateinamen(Dateinamen As String, Überschrift As String)
Application.ScreenUpdating = True
With UserForm1
.TextBox1.Text = Dateinamen
.Label2.Caption = Dateinamen
.Show (vbModeless)
End With
Application.ScreenUpdating = False
End Function