Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Input-Box anpassen

Input-Box anpassen
26.09.2005 11:35:44
Lutz
Hallo Experten,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Input-Box anpassen
26.09.2005 11:40:57
MichaV
Hi Lutz,
so z.B.:
x = InputBox("Daten einfügen:")
If x "" Then Target.Value = x
Gruß- Micha
AW: Input-Box anpassen
26.09.2005 12:02:17
Lutz
Hi Micha,
läuft leider auf ein Debuggen hinaus (Typen unverträglich).
Grübel?
Gruß Steffen
AW: Input-Box anpassen
26.09.2005 12:41:55
MichaV
Hi Lutz,
als was hast Du x deklariert? Sollte Variant oder String sein.
Gruß- Micha
AW: Input-Box anpassen
26.09.2005 13:07:21
Lutz
hi Micha,
Asche auf mein Haupt
manchmal sieht man den Wald vor Bäumen nicht. Hatte x als Integer deklariert. Und das bei Stringwiedergabe.
Danke
Gruß Lutz
Danke für die Rückmeldung! owT
26.09.2005 17:37:29
MichaV
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige