02.05.2018, 07:08
Hallo und Guten Morgen,
Ich habe zu dem Thema VBA Internet suche was übrigens sehr gut gelöst worden ist :18: nun eine zusätzliche Frage.
Ich möchte gerne einen Status Balken anzeigen, während das Makro sucht.
Habe auch schon im Internet da nach gesucht, aber nichts passendes gefunden, weil Ich ein Makro mit schleife habe.
Hier mal die Idee aus dem Internet leicht abgewandelt:
Option Explicit
Public SW As Long
Public Schritt As Double
Public Länge1 As Double
Public Länge2 As Double
Public Sub Progressbar1()
Dim i As Long
Dim Länge As Double
Länge = (Länge1 & Länge2)
SW = 2500 'Schrittweite festlegen
Länge = 0
Schritt = UserForm1.Label1.Width / SW 'Schrittbreite pro Aktualisierung
For i = 2 To SW
UserForm1.Label2.Width = Länge
UserForm1.Label2.BackColor = RGB(0, 0, 255)
UserForm1.Label3.Caption = Format(i / SW, "0 %")
DoEvents
Next
End Sub
hoffe Ihr schlauen Leute könnt mir wieder helfen.
Lg
Flo
Ich habe zu dem Thema VBA Internet suche was übrigens sehr gut gelöst worden ist :18: nun eine zusätzliche Frage.
Ich möchte gerne einen Status Balken anzeigen, während das Makro sucht.
Habe auch schon im Internet da nach gesucht, aber nichts passendes gefunden, weil Ich ein Makro mit schleife habe.
Hier mal die Idee aus dem Internet leicht abgewandelt:
Option Explicit
Public SW As Long
Public Schritt As Double
Public Länge1 As Double
Public Länge2 As Double
Public Sub Progressbar1()
Dim i As Long
Dim Länge As Double
Länge = (Länge1 & Länge2)
SW = 2500 'Schrittweite festlegen
Länge = 0
Schritt = UserForm1.Label1.Width / SW 'Schrittbreite pro Aktualisierung
For i = 2 To SW
UserForm1.Label2.Width = Länge
UserForm1.Label2.BackColor = RGB(0, 0, 255)
UserForm1.Label3.Caption = Format(i / SW, "0 %")
DoEvents
Next
End Sub
hoffe Ihr schlauen Leute könnt mir wieder helfen.
Lg
Flo