Input-Box anpassen
26.09.2005 13:35:44
Lutz
wie kann ich eine Inputbox dahingehend anpassen, dass sie beim Klicken der Zelle folgendes tut:
wenn ein Wert bereits in der Zelle steht, soll dieser Wert beim Klick auf "Abbrechen" stehen bleiben.
bisher habe ich folgenden Code eingfügt:
-------------------------------------------------
If Intersect(Target, [B16:C115]) Is Nothing Then Exit Sub
Target.Value = InputBox("Daten einfügen:")
-------------------------------------------------
Hier verschwindet der Wert in der zelle, da ein leerer String zurückgegeben wird. Das will ich halt unterdrücken.
Gruß Lutz
Anzeige