While counter <= listcount
 
 
    txt_WriteLine x, z1, auto.browser.Document.All.tags("td")(tag1).innerText
    txt_WriteLine x, z2, auto.browser.Document.All.tags("td")(tag2).innerText
    txt_WriteLine x, z3, auto.browser.Document.All.tags("td")(tag3).innerText
    txt_WriteLine x, z4, auto.browser.Document.All.tags("td")(tag4).innerText
    txt_WriteLine x, z5, auto.browser.Document.All.tags("td")(tag5).innerText
    txt_WriteLine x, z6, "--------------------------------------------------"
 
    Let z1 = z1 + 6
    Let z2 = z2 + 6
    Let z3 = z3 + 6
    Let z4 = z4 + 6
    Let z5 = z5 + 6
    Let z6 = z6 + 6
 
    Let tag1 = tag1 + 7
    Let tag2 = tag2 + 7
    Let tag3 = tag3 + 7
    Let tag4 = tag4 + 7
    Let tag5 = tag5 + 7
 
 
    If counter2 = 8 Then
 
        Let tag1 = "48"
        Let tag2 = "51"
        Let tag3 = "52"
        Let tag4 = "53"
        Let tag5 = "54"
        auto.browser.Document.All(htmlb1).Click
        Delay 5
        ' hier soll das prog dann eine Pause machen bis die neue Seite 
        ' aufgebaut wurde
 
   End If
 
   If counter2 = 16 Then
        Let tag1 = "48"
        Let tag2 = "51"
        Let tag3 = "52"
        Let tag4 = "53"
        Let tag5 = "54"
        auto.browser.Document.All(htmlb2).Click
        ' hier soll das prog dann eine Pause machen bis die neue Seite 
        ' aufgebaut wurde
        Delay 5
    End If
 
 
 
    Let counter = counter + 1
    Let counter2 = counter2 + 1
 
    If counter = 21 And info_auto.List1.listcount > 0 Then
     auto.browser.Navigate _
       "https://tto.deutschepost.de/nexttonline/jsp/login.do"
     Delay 10
        Let tag1 = "48"
        Let tag2 = "51"
        Let tag3 = "52"
        Let tag4 = "53"
        Let tag5 = "54"
        Let counter2 = "1"
        Let htmlb1 = "320"
 
        Dim I As Integer
        Dim sList As String
 
 
        With info_auto.List1
            While I < 20 And .listcount > 0
                I = I + 1
                sList = sList & .List(0) & vbCrLf
                auto.browser.Document.Forms(0).identcodes.Value = sList
                .RemoveItem 0
            Wend
        End With
 
 
       auto.browser.Document.All(102).Click
        Delay 15
     End If
 
Wend

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste