Zellinhalt in gleicher Zeile kopieren

Question

Hallo,
ich habe ein Problem mit der Codierung in Zeile 6
Die Zelle Target.Offset(0, 62) enthält eine Formel, ich möchte nur den ermittelten Wert in die Zelle Target.Offset(0, 76) kopieren. Dabei wird der Laufzeitfehler 1004 angezeigt!
Wäre dankbar, wenn mir jemand helfen würde!

1 If Not Application.Intersect(Target, Range("I9:I72")) Is Nothing Then
2 arg1 = Target.Offset(0, -8)
3 arg2 = Target.Offset(0)
4 Call ermitteln_summe(arg1, arg2)
5 Target.Offset(0, 4) =summe

6 Target.Offset(0, 76) = Target.Offset(0, 62)

7 End If

Answer 1

Hallo,

eigentlich sollte dein Makro funktionieren (ich nehme mal an das ist ein Worksheet-Change-Ereignis).

Wie lautet denn die vollständige Fehlermeldung? Meistens steht da noch etwas wie „Die ColorIndex-Eigenschaft des Interior-Objekts kann nicht festgelegt werden." Und was macht das Makro ermitteln_summe?

Gruß

M.O.

Answer 2

Hallo,
danke für die Antwort.
Die Zellen, die ich in Zeile 6 anspreche, waren gesperrt(!!)
Jetzt funktioniert es. Manchmal ist man so blind!

Gruss
haweS