Prüfung ob Datei bereits offen!

[cysu11]

...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

[Kuwer]

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

[cysu11]

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