For schleife Zähler

[Steffl]

Hallo Florian,

auf dem label2 sind 109 zu sehen und label3 hat 96
also label3 mit den Durchläufen der schleife ist nicht gleich groß wie kann ich das machen ???

rechne mal nach welchen Wert Autostep hat und welche Werte dann i hat.

[Florian20]

Ich hab es jetzt anders gemacht so klappt es wunder bar.

Hier der code hab den Zähler komplett weggelassen.

Code:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub LeseTxtDatei()
'Öffnet die .txt Datei um sie zu lesen und die Neuen Firmen in die Tabelle zu schreiben
Dim Wert, meAr, M
Dim nCounter As Long
'====================================================================================================
'Überprüft ob die Datei vorhanden ist
If varDatei = "" Or varDatei = "Falsch" Then
   MsgBox "Datei nicht vorhanden!", vbCritical, "Fehler Info Box!"
   Unload Me
   Exit Sub
Else
   Wert = iniClass.GetPrivateProfileString("Adressen")
   'Wenn "Wert" leer dann exit
   If Wert = "" Then
       MsgBox "Keine Neuen Firmen vorhanden!", vbInformation, "Info Box!"
       Unload Me
       Exit Sub
   End If
End If
'====================================================================================================
'Wenn "Wert" nicht leer und Datei vorhanden ist dann Eingaben setzten
If Wert <> "Keine Daten" And Wert <> "" Then
   meAr = Split(Wert, vbNullChar)
   Me.Label2.Caption = ("" & UBound(meAr) - LBound(meAr) + 1 & "")
   
   With Sheets("Adressen")
       For nCounter = LBound(meAr) To UBound(meAr)
           Wert = iniClass.GetPrivateProfileString("Adressen", CStr(meAr(nCounter)))
           If IsDate(Wert) Then
               .Range(CStr(meAr(nCounter))) = CDate(Wert)
           ElseIf IsNumeric(Wert) Then
               .Range(CStr(meAr(nCounter))) = Wert * 1
           Else
               .Range(CStr(meAr(nCounter))) = Wert
           End If
           Me.Label3.Caption = nCounter
             Sleep 100
           Me.Repaint
       Next nCounter
   End With
   
   MsgBox "Lesen und Schreiben Erfolgreich!", vbInformation, "Neue Firmen"
     Me.Label3.Caption = Me.Label2.Caption
       Me.Label3.ForeColor = vbGreen
         SuchButton.Caption = "Beenden"
           SuchButton.ForeColor = vbGreen
   iniClass.WritePrivateProfileString "Adressen"
Else
   Me.Label2.Caption = ("0")
End If
End Sub