2 Makros gleichzeitig laufen lassen
21.11.2008 18:11:00
Frank
Wie kann ich zwei Makro's gleichzeitig laufen lassen?
Folgendes Problem: In einer UF habe ich eine Schaltfläche zum Speichern der Datei und nebenan einen Verlaufsbalken! Dieser läuft aber erst wenn bereits gespeichert wurde, dies soll aber gleichzeitig passieren!
Ich benutze folgenden Code:
Private Sub CommandButton8_Click()
ActiveWorkbook.Save
Dim lng As Long
Dim lng_Z As Long
Dim i As Integer
lng = Label36.Width
Label36.Width = 0
DoEvents
lng_Z = 1000
For i = 1 To lng_Z
With Label36
.Width = i / lng_Z * lng
.TextAlign = fmTextAlignCenter
.BackColor = RGB(0, 0, 256)
.ForeColor = RGB(256, 256, 256)
.Font.Bold = True
.Caption = Int(i / 10) & "%"
DoEvents
End With
Next
End Sub
Danke für eure kreative Hilfe und ein schönes Wochende!!!
M. f. G. Frank H.
Anzeige