Anzahl der kopierten Zeilen
05.06.2003 10:34:29
Jörg
Hier der Code:
With wksAus.Range("D:D")
lngRowDest = .Range("D65536").End(xlUp).Row - 2
End With
If lngRowDest > 1 Then lngRowDest = lngRowDest + 1
Do
If wksSim.Cells(lngRow - 5 * intCounter, varFind.Column).Value = varFind Then
intCopyCount = intCopyCount + 1
wksSim.Range(wksSim.Cells(lngRow - 5 * intCounter, 7), _
wksSim.Cells(lngRow - 5 * intCounter, 7)).Copy _
Destination:=wksAus.Range(wksAus.Cells(lngRowDest + 1 + intCopyCount, 7), _
wksAus.Cells(lngRowDest + 1 + intCopyCount, 7))
End If
intCounter = intCounter + 1
If intCopyCount = 5 Then Exit Do
Loop Until lngRow - 5 * intCounter < 1
Else
Msgbox "Sollwert 3 """ & varKrit & """ wurde nicht gefunden"
End If
Wo muß die Änderung eintragen.
Jörg
Anzeige