Moin,

Ich häng immernoch an dem einen Problem... :/

If c.Value <> "SIT" And c.Value <> Left(c.Value, 3) = "ST " And c.Value <> "E2E" And c.Value <> "Load&Stress" And c.Value <> "L&S" Then
'If c.Value <> "SIT" And c.Value <> Left(c.Value, 3) = "ST " And c.Value <> "E2E" And c.Value <> "Load&Stress" And c.Value <> "L&S" Then
laRZ = Sheets("Rest").Cells(Rows.Count, 1).End(xlUp).Row
If laRZ = 1 And Sheets("Rest").Range("A1").Value = "" Then laRZ = 0
Rows(c.Row).Copy
Sheets("Rest").Range("A" & laRZ + 1).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If

letzten Donnerstag hatte ich noch überall wo "and" steht ein & damals hat mein Prog alles kopiert, jetzt macht es gar nix mehr...

zur kurzen erklärung, das Programm soll spalte G nach vordefinierten Werten durchsuchen und alle Werte die er findet in die dazugehörige tabelle stopfen, macht es auch, nur bei der abfrage ob ein Wert ungleich den zu suchenden Werten ist, da macht er nix :(
kann mir einer weiterhelfen? Bitte?

Gruß Tom H.