Schleife einbauen
17.06.2005 23:01:34
maik
ich habe folgendes Problem:
In der Spalte E meines Tabellenblattes stehen Daten, nach denen ich filtern möchte. Um den Inhalt von Zeilen mit gleichen Daten in Spalte E weiter zu verarbeiten, hatte ich folgende Idee:
In Spalte 8 beginnen und alle Zeilen deren Inhalt in Spalte E gleich dem von E8 ist, via makro ausschneiden oder kopieren und ab Zeile 22 einfügen. Die Daten würde ich dann anderweitig auswerten.
So weit so gut. Nur wie kann ich jetzt anschließend automatisch mit den nächsten Elementen in der Spalte E fortfahren, wenn die ersten kopiert un ausgewertet sind?
Über Lösungsvorschläge, Ideen oder Ansätze würde ich mich sehr freuen! ;)
Danke
Maik
anbei noch mein bisheriger Codeversuch und eine Beispieldatei:
Sub ausschneiden()
Dim i As Integer
Dim Eingabe As String
For i = 1 To ActiveSheet.UsedRange.Columns(1).Cells.Count
If Cells(i, 5).Value = Sheets("tabelle1").Range("E8").Value Then
Rows(i).Select
Selection.Cut
Rows(20 + i).Activate
ActiveSheet.Paste
If i > 30 Then
End
End If
End If
Next i
End Sub
Datei:
https://www.herber.de/bbs/user/23984.xls