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
, 79 mal gelesen