for schleife ohne bestimmte zeilennummern
23.07.2003 13:38:22
chris b
ich habe eine for next schleife,in dieser suche ich nach Werten in Spalte A die z.B den Wert "test" enthalten.
in der Tabelle habe ich aber auch viele ausgeblendete Zeilen diese ich nicht durchsuchen möchte.
Gibt es da eine möglichkeit das ich also dann nur die zeilen durchsuche die nicht mit dem autofilter ausgeblendet sind ? Vielen Dank für eure Hilfe Christian
For i = 1 To Worksheets("Nadelauswertung").Range("A65536").End(xlUp).Row
' andere Arebitsmappe aktivieren
Windows(mappe).Activate
If Worksheets("Nadelauswertung").Cells(i, 1) Like "*test*" And _
Worksheets("Nadelauswertung").Cells(i, 1) Like "*Plan*" Then
'Zeile in der der Suchtext gefunden wird kopieren und in die neue Mappe einfügen !
Rows(i).EntireRow.Copy
' andere Arebitsmappe aktivieren
Windows(cb).Activate
' In dem neuen Tabellenblatt nach letzter Zeile suchen und diese in x eintragen
x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Kopierte Zeile in neue Arbeitsmappe einfügen
Sheets("Daten").Paste Destination:=Worksheets("Daten").Cells(x, 1)
y = 1
End If
Next i