Hallo Ingolf
Danke für deine Hilfe-ganz Funktionierts nicht.
Selection.Copy
MsgBox "Makro wechselt in Datei Ziel"
ActiveCell.Offset(15, 0).Range("A1").Select
Set rng = Application.InputBox("Bitte Einfügezeile mit der Maus wählen. " & _
"Es muss nur eine (beliebige) Zelle der Zeile ausgewählt werden.", Type:=8)
NACH eingabe (mit der Maus )in die InputBox--Verliert er sein Hirn aus der Selection.Copy.
(und Ringelt die ausgewählte Zelle wie bei Selection.Copy ein.
Cells(rng.Row, 1).PasteSpecial Paste:=xlPasteAll
Laufzeitfehler 1004--PasteSpecial...konnte nicht ausgeführt werden.
bitte nochmal
Danke michael