Anw.- oder Obj.or. Fehler bzw. Obj. erforderlich
21.08.2024 17:56:14
Christian
irgendwie stehe ich auf dem Schlauch
der Code
' Bestimme letzte Zeilen für Bereiche Leute!J:Q und Leute!A:H
Set ws = ThisWorkbook.Sheets("Leute")
' Letzte Zeile basierend auf Spalte K (für Leute!J:Q)
lastRowK = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
' Letzte Zeile basierend auf Spalte B (für Leute!A:H)
lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
' Formel in Leute!R2:R[lastRowK] einfügen
ws.Range("R2:R" & lastRowK).Formula = "=XVERWEIS(K2;B$2:B$" & lastRowB & ";H$2:H$" & lastRowB & ";"";0;1)=Q2"sagt anwendungs- oder objektorientierter Fehler,
wenn ich aus der letzten Zeile
ws.Range("R2:R" & lastRowK).Formula.Local = "=XVERWEIS(K2;B$2:B$" & lastRowB & ";H$2:H$" & lastRowB & ";"""";0;1)=Q2"mache sagt er mir Objekt erforderlich. Was übersehe ich?
Danke
Christian
Anzeige