Progressbar (Fortschrittsanzeige) in Makro implementieren

Moderator: ModerationP

Progressbar (Fortschrittsanzeige) in Makro implementieren

Beitragvon gladdo123 » 16. Jun 2014, 10:23

Hallo Freunde,
beim Start meines Word-Dokumentes laufen einige Aktualisierungen (Abruf aus einer ExcelDatei) ab.
Während dieser Zeit soll eine Progressbar den Fortschritt des Ladevorgangs anzeigen.
Hier mien Ausgangscode bei öffnen des Dokuments:
Code: Alles auswählen
Private Sub Document_New()
    Dim xlApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws1 As Excel.Worksheet
    Dim ws2 As Excel.Worksheet
    Dim zeile As Long

    Set xlApp = New Excel.Application
    Set wb = xlApp.Workbooks.Open(FileName:="N:\EXCEL\LISTEN\Daten-Protokolle.xlsm")
    Set ws1 = wb.Worksheets("Daten Mitarbeiter")
    Set ws2 = wb.Worksheets("Daten WI")
    With ComboBoxName
        Me.ComboBoxName.Clear
        For zeile = 1 To 100
            Me.ComboBoxName.AddItem ws1.Cells(zeile, 13)
        Next zeile
    End With
    wb.Close
    xlApp.Quit
    Set xlApp = Nothing
End Sub
Ich hoffe Ihr könnt mir schnell helfen.

Grüße
gladdo123
 

Re: Progressbar (Fortschrittsanzeige) in Makro implementiere

Beitragvon Miss Marple » 16. Jun 2014, 11:08

Hi,

auf diese Frage kann man dir nicht so einfach antworten. Wenn du go...lst, ("word vba progress bar") wirst du von Lösungen geradezu erschlagen. Von einfach bist genial. Was du für dich davon verwenden kannst, kommt darauf an, was du erwartest und wie deine Programmierkenntnisse sind. Eine ganz einfache und schnell nachzubauende Lösung findest du hier: Implementing a Progress Bar in Word VBA

Gruß
MM
Miss Marple
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1568
Registriert: 24. Jan 2014, 08:13
Wohnort: 52° 15' 53" N, 10° 31' 26" E

Re: Progressbar (Fortschrittsanzeige) in Makro implementiere

Beitragvon Gladdo123 » 16. Jun 2014, 13:02

Mhhhhhh danke erst einmal,
die Lösung mit der "selbstgebastelten" Progressbar habe ich zu Haufe im Netz gefunden. Konnte abe rkeine dieser umsetzen.
Meine Vorstellung geht eher in die Richtung, die MS Progressbar Control aus den aktiveX Steuerelementen zu verwenden.
Mein Ziel ist es die Userform so lange anzeigen zu lassen, wie das Makro zum laden der Daten braucht.
Eventuell kann man das auch mit einer MsgBox realisieren, die sich selbst schließt wenn der Vorgang beendet ist.

Vielleicht fällt euch noch etwas ein.......
Gladdo123
 


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste