Clever-Excel-Forum

Seiten: 1 2 3

...und kann ich vielleicht ein Progressbar einbauen, der während des Speichervorgangs
angezeigt wird!

Habe auch schon ein PB gemacht mit folgenden Code:

Public Sub PB()
Progressbar.Show vbModeless
Dim i As Long
With Progressbar
.ProgressBar1.Max = 12000
.ProgressBar1.Min = 0
For i = 1 To 12000
.ProgressBar1 = i
Application.Wait Now + TimeSerial(0, 0, 0.5)
Next i
End With
Unload Progressbar
End Sub

Allerdings läuft dieser ab und dann geht der eigentliche Code/Speichervorgang weiter! Geht das, dass der Prozessbar während des Speichervorgangs läuft und in Vordergrund angezeigt wird?

Vielen Dank
VG
Alexandra

Hallo Alexandra,

wenn Du meinst, dass das nötig ist, dann binde die Progressbar in die aufrufende Userform mit ein.
das "Befüllen" erfolgt eingebunden im eigentlichen Code:

Code:
For Each wsZiel In ThisWorkbook.Sheets(Array("produkte", "kunden", "LNA", "zwischen", "Attribute", "LNK"))

      ProgressBar1 = ProgressBar1 + 1

      wsZiel.Cells.ClearContents

      ProgressBar1 = ProgressBar1 + 1

      wsZiel.Cells.ClearFormats

      ProgressBar1 = ProgressBar1 + 1

      wbQuelle.Worksheets(wsZiel.Name).Cells.Copy Destination:=wsZiel.Cells

    Next wsZiel

Gruß Uwe

Hi Uwe,

nötig ist es wirklich nicht, ich dachte ich verschönere das Ganze etwas, aber ich lasse es doch weg!

Danke für deine Hilfe!

VG
Alexandra

Seiten: 1 2 3

cysu11

Kuwer

cysu11