Thema Datum  Von Nutzer Rating
Antwort
Rot DoLoop Schleife springt zum Anfang der Sub
12.10.2017 15:14:28 Florian
NotSolved
12.10.2017 15:22:21 amicro2000
NotSolved
12.10.2017 15:29:42 Gast53170
NotSolved
13.10.2017 11:04:01 Florian
NotSolved
13.10.2017 12:28:54 Gast19317
NotSolved
13.10.2017 16:05:58 Gast7777
NotSolved
13.10.2017 16:21:01 Florian
NotSolved
13.10.2017 16:27:03 Gast7777
NotSolved
13.10.2017 16:39:34 Florian
NotSolved
13.10.2017 16:41:27 Gast7777
NotSolved
13.10.2017 17:22:44 Florian
NotSolved
13.10.2017 17:31:06 Gast7777
NotSolved
13.10.2017 17:40:37 Florian
NotSolved
13.10.2017 17:51:32 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Florian
Datum:
12.10.2017 15:14:28
Views:
55
Rating: Antwort:
  Ja
Thema:
DoLoop Schleife springt zum Anfang der Sub

Hi Leute,

ich bin am verzweifeln. Ich habe eine DoLoop-Schleife erstellt welche aber nach einigen Durchläufen immer an den Anfang der Sub springt und dadurch ein fehlerhaftes Verhalten auslöst, da dann die Variable i wieder auf den Anfangswert gesetzt wird.
 

Code: [Auswählen]

Sub ZwischenzeilenEinfuegen()

    Dim i As Long
    
    i = 6
    With tblZahlungUebersicht
        Do Until .Cells(i, 1).Value = ""
            If .Cells(i, 1).Value <> .Cells(i + 1, 1).Value Then
                .Cells(i + 1, 1).EntireRow.Insert
            End If
            i = i + 1
        Loop
    End With
    
End Sub

Wo liegt der Fehler?

Danke euch und beste Grüße
Flo


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot DoLoop Schleife springt zum Anfang der Sub
12.10.2017 15:14:28 Florian
NotSolved
12.10.2017 15:22:21 amicro2000
NotSolved
12.10.2017 15:29:42 Gast53170
NotSolved
13.10.2017 11:04:01 Florian
NotSolved
13.10.2017 12:28:54 Gast19317
NotSolved
13.10.2017 16:05:58 Gast7777
NotSolved
13.10.2017 16:21:01 Florian
NotSolved
13.10.2017 16:27:03 Gast7777
NotSolved
13.10.2017 16:39:34 Florian
NotSolved
13.10.2017 16:41:27 Gast7777
NotSolved
13.10.2017 17:22:44 Florian
NotSolved
13.10.2017 17:31:06 Gast7777
NotSolved
13.10.2017 17:40:37 Florian
NotSolved
13.10.2017 17:51:32 Gast7777
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar