Sheets(1).Select
Sheets.Add After:=Sheets(1)
Sheets(2).Name = "TabelleABC"
Sheets(1).Select
Rows("1:2").Select
Selection.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(1).Select
'Startzeile
startzeile = 2
Spalte = 14
grenzwert = 2
startzeile2 = 2
Spalte2 = 8
grenzwert2 = "Text1"
grenzwert3 = "Text2"
Spalte3 = 3
grenzwert4 = "Zahlenfolge1"
grenzwert5 = "Zahlenfolge2"
grenzwert6 = "Zahlenfolge3"
Sheets(1).Select
Letzte_Zeile = Range(Cells(65536, Spalte), Cells(65536, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert2 And Sheets(1).Cells(i, Spalte3) = grenzwert4 Or Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert2 And Sheets(1).Cells(i, Spalte3) = grenzwert5 Or Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert2 And Sheets(1).Cells(i, Spalte3) = grenzwert6 Or Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert3 And Sheets(1).Cells(i, Spalte3) = grenzwert4 Or Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert3 And Sheets(1).Cells(i, Spalte3) = grenzwert5 Or Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert3 And Sheets(1).Cells(i, Spalte3) = grenzwert6 Then
Sheets(1).Rows(i & ":" & i).Copy
Sheets(2).Select
Cells(startzeile2, 1).Select
ActiveSheet.Paste
startzeile2 = startzeile2 + 1
Else
End If
Next
Guten Morgen,
Habe eben eine Schleife erstellt, nur leider funktioniert es nicht.Das Makro kopiert lediglich nur die Überschriften.
Kann mir jemand helfen?
Vielen Dank im Voraus