Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1036to1040
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
Inhaltsverzeichnis

mögliche Zelleingaben einschränken

mögliche Zelleingaben einschränken
03.01.2009 18:10:00
Robert
Hallo,
stehe wieder einmal auf dem Schlauch...
Ich habe in einem Tabellenblatt u.a. die Eingabemöglichkeit wie folgt eingeschränkt:

If Target.Value  "#" And Target.Value  "" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
If Target.Value = "#" Then
Application.OnKey "{BS}"
Else
Application.OnKey "{BS}", ""
End If


Die Eingabemöglichkeit müsste ich nun um "#?" erweitern - und kriegs einfach
nicht hin. Könnt ihr mit bitte weiterhelfen?
Danke schon mal im Voraus.
Gruß Robert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mögliche Zelleingaben einschränken
03.01.2009 18:26:08
Oberschlumpf
Hi Robert
Versuchs mal so:

If Target.Value  "#" And Target.Value  "" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
If Target.Value = "#" Then
Application.OnKey "{BS}"
Else
If Target.Value = "#?" Then
Application.OnKey "{BS}", ""
End If
End If


Hilfts?
Ciao
Thorsten

AW: mögliche Zelleingaben einschränken
03.01.2009 19:30:00
Robert
Hi Throsten,
leider hilfts mir nicht weiter.
Mit deinem Vorschlag ist die Eingabemöglichkeit weiterhin auf ein "#" beschränkt.
Es wird nur die Backspace-Taste mit der Onkey-Methode angesprochen.
Gruß Robert
Anzeige
AW: mögliche Zelleingaben einschränken
03.01.2009 19:52:46
Uwe
Hi Robert,
erweietere dann die erste Zeile mal auf:

If Target.Value  "#" And Target.Value  "" And Target.Value  "#?" Then


Die zweite If Abfrage ginge wohl auch so:


If Target.Value = "#" Or _
Target.Value = "#?" Then
Application.OnKey "{BS}"
End If


Allerdings verstehe ich nicht was damit erreicht wird, bei mir ändert sich nichts, wenn ich diesen Teil auskommentiere.
Gruß
Uwe
(:o)

AW: mögliche Zelleingaben einschränken
03.01.2009 20:38:00
Robert
Hi Uwe,
die Erweiterung funktioniert astrein.
Bezüglich des zweiten Teils:
Im Workbook_Open nehme ich mit
Application.OnKey "{BS}", ""
der Backspace-Staste ihre Funktion. Mit diesem zweiten Teil
wollte ich eigentlich der Backspace-Taste ihre Funktion wieder
zuweisen, wenn in der aktiven Zelle "#" oder "#?" steht.
Aber Du hast recht. Das funktioniert nicht ganz so richtig....
Gruß Robert
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige