ForSchleife,Zeile wird kopiert obw.nicht erfüllt
16.09.2015 11:49:32
karin
Sub T()
Sheets(1).Select
Sheets.Add After:=Sheets(1)
Sheets(2).Name = "BSP"
Sheets(1).Select
Rows("1:2").Select
Selection.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(1).Select
startzeile = 2
Spalte = 3
grenzwert = 2
startzeile2 = 2
Spalte2 = 2
Spalte3 = 4
grenzwert2 = "AB"
grenzwert3 = "C"
grenzwert5 = ""
Sheets(1).Select
Letzte_Zeile = Range(Cells(65536, Spalte), Cells(65536, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
On Error Resume Next
If Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert2 And _
Sheets(1).Cells(i, Spalte3) = grenzwert3 Or Sheets(1).Cells(i, Spalte) > grenzwert And Sheets(1).Cells(i, Spalte2) = grenzwert5 And Sheets(1).Cells(i, Spalte3) = grenzwert3 Then
'hier copieren der Zellinhalte
Sheets(1).Rows(i & ":" & i).Copy
Sheets(2).Select
Cells(startzeile2, 1).Select
ActiveSheet.Paste
startzeile2 = startzeile2 + 1
Else
End If
Next
End Sub
ich habe folgenden Code, der auch super funktioniert. Das Problem ist, wenn keiner der Bedingungen (Grenzwerte) gilt, dann kopiert mir das Makro einfach die ersten zwei Zeilen in das neue Tabellenblatt. Die erste Zeile ist in Ordnung, da dies die Überschriften sind.
Aber die zweite sollte nicht da sein, wenn die Bedingungen nicht gelten. Wie kann man das verhindern?
VIelen Dank