Laufzeitfehler 424
19.05.2006 13:04:08
Peter
habe folgenden Code in einem Tabellenblatt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If ActiveCell.Value = "" Then
ActiveCell.Offset(0, 1).Value = ""
Else
ActiveCell.Offset(0, 1).Value = "=VLOOKUP(RC[-2],Zähler!C[-4]:C[-3],2)"
End If
End If
End Sub
Funktioniert auf meinem Rechner super.
Die gleiche Datei liefert mir auf einem anderen Rechner diesen Fehlercode.
Laufzeifehler '424'
Objekt erforderlich
was ist da los ?
Gruss Peter
Anzeige