title image


Smiley So z.B. ...
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: