Hallo Experten,
ich möchte einen benannten Bereich in einem anderen Tabellenblatt einfügen:
If InStr(1, Empfänger, "AAA") > 0 Then
Set c = Worksheets(2).Range("B1:B200").Find("BBB", LookIn:=xlValues)
intZeile = c.Row
Worksheets(3).Range("CCC").Copy
Worksheets(2).Range("B" & intZeile).Insert xlShiftDown
End If
Wenn ich den Code in meinem Programm ausführe, kommt die Fehlermeldung: Die Insert-Methode des Range-Objektes konnte nicht ausgeführt werden
Wenn ich eine Haltepunkt davor einbaue und dann das Kopieren Step-by-Step vornehme funktioniert es.
Wo ist das Problem?
Danke und Gruß
Specke