Hallo liebes Forum,

zur Problemstellung: Die Ausgangslage ist eine manuell ausgewählte Zeile (z.B. Zeile 1) . Nun sollen die einzelnen Zellen der ausgewählten Zeile die Werte einer anderen Referenzzeile annehmen durch die Herstellung eines direkten Bezugs. Dies soll durch ein Inputfenester geschehen welchen den Zeilenwert der Referenzzeile  abfragen soll, z.B. soll auf Zeile 5 Bezug genommen werden muss der User den Wert 5 in das Feld eingeben.

Im Ideallfall sollte als in Zelle A1 =A5 stehen, in der Zelle B1 =B5, in der Zelle C1 =C5 usw...

Modellhaft ist dieses Problem natürlich leicht zu lösen, leider fehlt mir als absoluter Beginner das grammatikalische Know How.

Mein Erster Versuch

Sub testinput()

Dim eingabe As String
Dim Zellen As Range

eingabe = InputBox("Bitte geben Sie die Zeile des neuen Titels ein", "Abfrage Zeile", "94")

For Each Zellen In Selection
Zellen.Value = "=" & active.cells.column&eingabe
Next Zellen


End Sub

Leider funktioniert das nicht wie gewollt. Insbesondere die Abfrage des Spaltenwerts der aktiven Zelle macht mir zu schaffen. Wie kann ich diesen auslesen?

Beste Grüße und Vielen Dank im Voraus