Hallo Jonny,



Sub Datum_finden()

VW = Sheets("Tabelle1").Cells(1, 2).Value

z1 = 0

z2 = 2

Schleife:

Do While z1 = 0

DW = Sheets("Tabelle1").Cells(z2, 1).Value

If DW = "" Then z1 = 1

If Not DW = VW Then

z2 = z2 + 1

Else

z1 = 1

End If

Loop

Zeile = z2

z1 = 0

z2 = 2

If DW = "" Then

VW = VW - 1

GoTo Schleife

End If

MsgBox Zeile

End Sub

Gruß, Frank



geschrieben von Frank88 , 20.03.2006, 12:29 Uhr , 90 mal gelesen