ub Makro()
Application.ScreenUpdating = False
Sheets(1).Select
Sheets.Add After:=Sheets(1)
Sheets(2).Name = "test"
Sheets(1).Select
Rows("1:2").Select
Selection.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(1).Select
'Startzeile
startzeile = 3
'Spalten, die geprüft werden
Spalte = 8
Spalte2 = 24
Spalte3 = 48
startzeile2 = 3
Sheets(1).Select
Letzte_Zeile = Range(Cells(65536, Spalte), Cells(65536, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If Left(Sheets(1).Cells(i, Spalte), 2) = "IE" And Left(Sheets(1).Cells(i, Spalte24), 2) "DE" And Left(Sheets(1).Cells(i, Spalte48), 2) = "DE" Or Left(Sheets(1).Cells(i, Spalte), 3) = "IEF" And Left(Sheets(1).Cells(i, Spalte24), 2) "DE" And Left(Sheets(1).Cells(i, Spalte48), 2) = "DE" Then
'hier kopieren der Zellinhalte
Sheets(1).Rows(i & ":" & i).Copy
Sheets(2).Select
Cells(startzeile2, 1).Select
ActiveSheet.Paste
startzeile2 = startzeile2 + 1
Else
End If
Next
Application.ScreenUpdating = True
End Sub
Hallo, dieser komplette Code wird mir gelb angezeigt.
ich möchte dass das Makro mir die Daten kopiert, die in SPalte 8 "IE" ODER "IEF", in SPalte 24 nicht "DE" und in Spalte 48 "DE" enthalten.
Was genau an dem Code falsch ist, weiß ich leider nicht.
Freue mich über jede Antwort!
MFG
Karin