Microsoft Excel

Herbers Excel/VBA-Archiv

Problem beim Zählen ....

    Betrifft: Problem beim Zählen .... von: Dari
    Geschrieben am: 29.08.2003 13:58:52

    Hallo, kann mir jemand helfen,

    Folgendes Makro:
    Set wks = Worksheets("Tabelle1")
    lgRow = 9
    lgZiel = 1
    iCount = 1
    Do
    If Right(Cells(lgRow + 1, 1), 1) < Right(Cells(lgRow, 1), 1) Then
    wks.Cells(lgZiel, 1) = "Einzelsubstrat " & lgZiel
    wks.Cells(lgZiel, 2) = iCount
    lgZiel = lgZiel + 1
    iCount = 0
    End If

    iCount = iCount + 1
    lgRow = lgRow + 1

    Loop Until IsEmpty(Cells(lgRow, 1))

    zählt von _1 bis _4. Bräuchte aber von _4 bis _1. Weiß jemand, wie ich das drehen muss ???

    Gruß
    aus Tübingen



      


    Betrifft: crossposting oT von: joel
    Geschrieben am: 29.08.2003 14:03:14

    https://www.herber.de/forum/messages/301483.html


     

    Beiträge aus den Excel-Beispielen zum Thema " Problem beim Zählen ...."