Bedingtes Ausschneiden
15.11.2005 16:04:22
Martin
mit folgendem Makro lassen sich Zeilen, die bestimmten Bedingungen entsprechen, herausfinden und löschen:
-----
Sub Bereinigung1()
Dim intz As Integer
Dim intGesamt As Integer
Workbooks.Open("c:\Originaldaten\bau_test.xls").Worksheets("Tabelle1").Activate
With Sheets("Tabelle1")
intGesamt = .UsedRange.Rows.Count
For intz = intGesamt To 3 Step -1
If .Cells(intz, 32).Value = 1 Or .Cells(intz, 12).Value < 5 Then
.Rows(intz).Delete Shift:=xlUp
End If
Next intz
End With
End Sub
---------
Nun möchte ich die Zeilen, welche die beiden Bedingungen erfüllen, nicht komplett löschen, sondern aus der Originaltabelle ausschneiden und dann in ein neues Tabellenblatt (z.B. Tabelle2) einfügen. Der Befehl ".Rows(intz).Cut" klappt leider nicht. Vielleicht kann mir jemand helfen, wie ich das Makro modifizieren kann.
Schon mal vielen Dank im voraus.
Viele Grüße.
Martin