Inputbox per Klick starten
08.09.2005 08:56:06
Lutz
ich habe eine Spalte mit 100 Zellen; sobald ich auf eine Zelle klicke, soll sich eine Inputbox öffnen.
Sub Eingabe()
Dim E As String
E = InputBox("Bitte Text eingeben", "Eingabe")
Range("B16").Value = E
End Sub
Wie starte ich die Inputbox per Klick auf die Zelle?
Und wie muss der Code umgeschrieben werden, dass es auch bei den anderen Zellen funktioniert? Also bei Klick auf B66 soll der Wert der inputbox auch in B66 eingetragen werden.
Grüsse Lutz
Anzeige