VBA Status Balken

[Florian20]

Achso :19:

[Florian20]

Hi nochmal,

Ich habe es jetzt selber geschaft. nur wenn die schleife 2 oder 3 usw. läuft dann steht anstatt 100%   2%   oder   3%  im label3.caption??? aber warum
'====================================================================================================================
'letzte benutzte Zelle in Spalte H finden
With ActiveSheet
  i = .Cells(Rows.Count, 8).End(xlUp).Row
End With
  lastRow = Range("A" & Rows.Count).End(xlUp).Row

Anzahl = 0
E:
For i = i + 1 To lastRow

If Cells(i, 1) = "" Then GoTo E
 If Cells(i, 1) Like "STEFFEN SCHULZ" Then GoTo E
  If Cells(i, 1) Like "GERALD BÖHM" Then GoTo E
   If Cells(i, 1) Like "WALTER SCHIMMEL" Then GoTo E
    If Cells(i, 1) Like "HANS TRAUTMANN" Then GoTo E

GoogleSuche.Repaint
 GoogleSuche.Label2.BackColor = RGB(0, 255, 0)
  GoogleSuche.Label2.Width = GoogleSuche.Label2.Width + 1
   GoogleSuche.Label3.Caption = GoogleSuche.Label2.Width & "%"   'Hier steht anstatt 100% dann 2% oder 3%
   
    url = "https://www.google.co.in/search?q=" & URLEncode(Cells(i, 1) & Cells(i, 3) & " Telefonnummer")
    Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
      XMLHTTP.Open "GET", url, False
        XMLHTTP.setRequestHeader "Content-Type", "text/xml"
       XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    XMLHTTP.send
'====================================================================================================================

[Steffl]

Hallo Florian,

vermutlich ist vor dem Makroauslösen die Breite vom Label2 die 0, das heißt es ist nicht zu sehen und nach zwei oder drei Durchlaufen der Schleife eben 2 oder 3. Mache es ungefähr so

Code:

GoogleSuche.Label3.Caption = lastRow  / i & "%"

Das ungefähr deshalb weil ich nicht weiß, inwieweit deine Spalte A und H gefüllt sind.

[Florian20]

Hey danke für eure Antworten habe es jetzt selber hin bekommen.
Hier meine Mappe habe es nochmal komplett umgebaut.   

Lg Flo