Re: ruf nochmals durch !
06.10.2002 14:02:32
Walter an Andreas
Hallo Andreas,herzlichen Dank für dein Hilfe. Anbei sende ich Dir schon mal das Makro. Ich möchte das beim betätigen des Makros der Balken läuft und beim Beenden der Abspeicherung aufhört.
Sub C_DateiSchließen_Click()
Dim PctDone As Single
Dim Counter As Integer
Dim RowMax As Integer, ColMax As Integer
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Prov-Blatt").Select
Range("c1").Select
Dim Verzeichnis As String
Verzeichnis = "c:\1_PKW_Verkauf"
Counter = Counter + 1
PctDone = Counter / (RowMax * ColMax)
With UserForm11 ' ab hier wird balken angezeigt
.FrameProgress.Caption = Format(PctDone, "0%")
.LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
End With
Application.DisplayAlerts = False
' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
' DoEvents
' Unload UserForm11
Application.ScreenUpdating = True
End Sub
Gruss Walter