Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

Anzeige
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
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)

Anzeige
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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige