Nach 2 oder mehr Zahlen in einer Spalte suchen
18.09.2003 15:36:20
Karsten
In einer Schleife suche ich nach einer Zahl, wenn diese gefunden wird, wird die komplette Zeile in ein anderes Arbeitsblatt kopiert. Ich möchte aber nach mehreren Zahlen suchen und deren Zeilen kopieren ohne jedesmal eine neue Schleife anzusteuern.
'Schleife FG1
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = (Zahl1) Then
Selection.EntireRow.Copy
Sheets(Blatt2).Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets(Windparkname).Select
ActiveCell.Offset(1, 0).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Kann man dies mit ....(Zahl1) or (Zahl2) erreichen?
Wäre toll wenn jemand hilft. Danke!