|
Hallo,
wenn ich den Vergleicht weglasse, löscht er alle Zeilen.
Wenn ich durch einen Vergleich (if then) versuche nur die Zeilen mit x zu löschen kommt die Fehlermeldung:
"Laufzeitfehler '13': Typen unverträglich"
Beil Klick auf Debuggen markiert er die Zeile "If Cells(i,2..."
Folgender code wird verwendet:
Sub Vergleich()
' Vergleicht die Produktionsnummern und markiert die Zeilen
Dim lz As Integer
Columns("B:B").Select
Selection.Insert shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(VLOOKUP(RC[-1],Projektplan!R15C3:R500C3,1,FALSE)=RC[-1],""x"",)"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B500")
'Zeilen löschen
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 2 Step -1
If Cells(i, 2).Value = "x" Then
Rows(i).Delete shift:=xlUp
End If
Next i
End Sub
Kann man die Tabelle hier hochladen?
Danke schon mal für die erste Rückmeldung!
|