Sub testinput()
Dim eingabe As String, Adr As String, SpaBu 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
Adr = Zellen.Address()
SpaBu = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
Zellen.Formula = "=" & SpaBu & eingabe
Next Zellen
End Sub