Hallo PM,
nicht ganz so einfach, wie du dir das denkst. Die Spalte wird mit ActiveCell.Column naemlich als Zahl und nicht als Buchstabe zureuckgegeben. Du kannst aber den Buchstaben aus der Zelladresse (ActiveCell.Address) rausfiltern, um es in der Formel, die du eingeben willst, zu benutzen. Ausserdem musst du VBA mitteilen, dass du eine Formel eingeben willst in die Zelle, sonst gibt VBA das als Text in die Zelle ein.
Versuchs mal so:
Sub testinput()
Dim eingabe As String, Adr As String, SpaBu As String
Dim Zellen As Range
Adr = ActiveCell.Address()
SpaBu = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
eingabe = InputBox("Bitte geben Sie die Zeile des neuen Titels ein", "Abfrage Zeile", "94")
For Each Zellen In Selection
Zellen.Formula = "=" & SpaBu & eingabe
Next Zellen
End Sub
Gruss Torsten
|