Schleife
20.05.2003 10:51:35
Volker
was muss ich machen das der Code nachdem er das erste ergebnis
geliefert hat in der nächsten zelle darunter schaut ob die lfNr ein weiteres mal vorhanden ist und diese ebenfalls ausliest bis keine weitere lfNr geliefert wird.....
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column = 5 Or Target.Column = 7 Then
With Worksheets("Tabelle2")
For Each lfNr In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
If lfNr = Cells(Target.Row, 5) Then
xx = Cells(lfNr.Row, 2)
'yy = Cells(lfNr.Row, 3)
Exit For
End If
Next lfNr
End With
End If