Hallo Christoph,

keine Ahnung ob ich dich richtig verstanden habe. Aber probiers mal so:

Sub Zeilenbezug()

zeile = Val(InputBox("Geben Sie eine Zeile ein", , Selection.Row))
If zeile = 0 Then Exit Sub

Sheets("Projektkarte").Select
Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Cells.Select
ActiveSheet.Paste
Range("BF35").Select
Application.CutCopyMode = False
ActiveWindow.DisplayZeros = False
With Range("O4:BD5")
 .FormulaR1C1 = "=Projektspeicher!R[" & zeile - .Row & "]C[-13]"
End With
With Range("C4:N5")
 .FormulaR1C1 = "=Definition!R[" & zeile - .Row & "]C[-1]"
End With
With Range("C9:N11")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[1]"
End With
With Range("C12:N14")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[2]"
End With
With Range("P9:AV17")
 .FormulaR1C1 = "=Projektspeicher!R[" & zeile - .Row & "]C[-13]"
End With
With Range("D21:P22")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[2]"
End With
With Range("Q21:AC22")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[-10]"
End With
With Range("AD21:AP22")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[-22]"
End With
With Range("AQ21:BC22")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[-34]"
End With
With Range("M30:U31")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[-11]"
End With
With Range("V30:AD31")
 .FormulaR1C1 = "=Planung!R[" & zeile - .Row & "]C[-19]"
End With
With Range("M32:AD33")
 .FormulaR1C1 = "=Definition!R[" & zeile - .Row & "]C[-10]"
End With
With Range("AE31:AQ32")
 .FormulaR1C1 = "=Definition!R[" & zeile - .Row & "]C[-27]"
End With
With Range("AR31:BD32")
 .FormulaR1C1 = "=Definition!R[" & zeile - .Row & "]C[-38]"
End With
With Range("AR31:BD32")
 .FormulaR1C1 = "=Definition!R[" & zeile - .Row & "]C[-39]"
End With
With Range("AE34:AQ35")
 .FormulaR1C1 = "=Definition!R[" & zeile - .Row & "]C[-25]"
End With
Range("BF37").Select

End Sub

Gruß Mr. K.