ich würde gerne ganze Zeilen ausschneiden und zwar in Abhängigkeit ob in der Spalte der jeweiligen Zeile eine 9 oder eine 0 steht. Also bei 9 ausschneiden... und anschließend in ein neues Sheet exportieren.
Vielen Dank!
Gruß
Joachim
Sub kopieren()
Dim i, a
For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row
If Sheets(1).Range("s" & i).Value = 9 Then
Rows(i).Cut
a = a + 1
Sheets(2).Rows(a).PasteSpecial
End If
Next i
End Sub
Sub kopieren()
Dim i, a
For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row
If Sheets(1).Range("f" & i).Value = "9" Then
Rows(i).Cut
a = a + 1
Sheets(2).Rows(a).PasteSpecial
End If
Next i
End Sub
Sub Joachim()
Dim BlaNa As String, _
laR As Long, i As Long, z As Long
Application.ScreenUpdating = False
BlaNa = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(BlaNa).Select
With Sheets(BlaNa)
laR = .Cells(Rows.Count, 6).End(xlUp).Row
For i = 1 To laR
If .Range("F" & i).Text = "9" Then
z = z + 1
.Rows(i).Cut _
Destination:=Sheets(Sheets.Count).Rows(z)
End If
Next i
End With
Application.ScreenUpdating = True
End Sub