Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

keine doppelten zeichen in einem wort

keine doppelten zeichen in einem wort
30.12.2007 12:47:16
Wolfgang
hallo,
wie schaffe ich es, dass keine doppelten zeichen in einem wort eingegeben werden können.
bei der eingabe in eine textbox habe ich festgelegt, dass man nur zahlen und ein "," eingeben kann. ich möchte jetzt, dass man keine zwei "," in eine textbox eingeben kann.
also verboten: "123,456,78" halt nur standard währungen wie 123,45 auch evtl. mit mehr nachkommastellen
danke schonmal im voraus

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

Betreff
Datum
Anwender
Anzeige
AW: keine doppelten zeichen in einem wort
30.12.2007 13:03:17
Peter
Hallo Wolfgang,
versuch es einmal mit dem beigefügten Makro - aus dem Klassenmodul des UserFormulars.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 0 Then   ' wurde noch nichts eingegeben ?
Select Case KeyAscii
Case 44, 45, 48 To 57 ' 44 = , 45 = - 48 - 57 = 0 - 9
Case Else
KeyAscii = 0
End Select
ElseIf InStr(1, TextBox1, ",") = 0 Then ' gibt es noch kein Komma ?
Select Case KeyAscii
Case 44, 48 To 57     ' 44 = , 48 - 57 = 0 - 9
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57         ' 48 - 57 = 0 - 9
Case Else
KeyAscii = 0
End Select
End If
End Sub


Gruß Peter

Anzeige
AW: keine doppelten zeichen in einem wort
30.12.2007 13:09:00
Wolfgang
vielen vielen dank,
wünsch dir noch einen guten rutsch ins neue jahr
gruß
wolfgang

AW: keine doppelten zeichen in einem wort
30.12.2007 13:15:00
Daniel
Hi
sollte genauso funktionieren, ist aber etwas kürzer

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 ' 44 = , 45 = - 48 - 57 = 0 - 9
Case 44, 45
If InStr(TextBox1.Value, Chr(KeyAscii)) > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End Sub


Gruß, Daniel

AW: keine doppelten zeichen in einem wort
30.12.2007 13:04:59
Josef
Hallo Wolfgang,
das geht zB. so.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 48 To 59
    Case 44
        If InStr(1, TextBox1, ",") > 0 Then KeyAscii = 0
    Case Else
        KeyAscii = 0
End Select
End Sub

Gruß Sepp

Anzeige
AW: auch negative Werte eingeben
30.12.2007 14:29:33
Peter
Hallo Wolfgang,
um auch negative Werte eingeben zu können, in der Kurzform so:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 59   ' die Ziffern 0 - 9
Case 44         ' das Komma
If InStr(1, TextBox1, ",") > 0 Then KeyAscii = 0
Case 45         ' das Minuszeichen
If InStr(1, TextBox1, "-") = 0 And _
Len(TextBox1) = 0 Then
Else: KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub


Gruß Peter

209 Forumthreads zu ähnlichen Themen

Suche nach einem bestimmten Wort
Ralf

Hallo Excel - Experten,
ich habe eine Excel - Datei, in der immer wieder
in zwei verschiedenen Zellen ( deren Position sich nach jeder
Aktualisierung woanders befindet ) das Wort : Gesamtergebnis
erscheint. Ich möchte jetzt gerne mittels eines VBA - Codes, daß
mir Excel die...
23.10.2008 08:33:21
Thread-ID: 1018507
5 Beiträge
Anzeige
Passworteingabe funktioniert nicht
Timmy

Liebe Excler,
ich habe vor, ein Blatt mit einem Passwort zu hinterlegen, welches man eingeben muss, wenn man einen bestimmten Button drueckt. Dafuer habe ich folgenden Code:
Private Sub PurchasingButton1_Click()
'Last Change: 01/27/2009
'starts the Process and functions of the P...
28.01.2009 15:16:00
Thread-ID: 1044583
5 Beiträge
Datenübertrag ohne Passworteingabe möglich?
Dietmar

Guten Abend zusammen!
Hat jemand eine Idee wie ich Daten in ein Passwortgeschütztes Tabellenblatt (nicht Blattschutz, um Veränderungen zu verhindern, sondern Passwortschutz, um dieses Sheet überhaupt öffnen zu können) übertragen kann, ohne das Passwort eingeben zu müssen?
Situation:
...
23.03.2009 22:04:32
Thread-ID: 1063075
6 Beiträge
Anzeige
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Wortteil in Tabelle suchen und Zelle markieren
Elmar

Hallo zusammen,
ich bräuchte mal Hilfe... ich krieg´s irgenwie selbst nicht hin.
Ich möchte ein Makro, das mir Suchbegriffe aus einer Liste ausliest (Liste z.B. in Tabelle 2 von A1 bis A10) und damit (mit den Suchbegriffen) eine andere Tabelle dann durchsucht. Wenn der Begriff (das ist...
17.08.2009 22:44:22
Thread-ID: 1096582
8 Beiträge
Online-Forum: Antwortformular erscheint nicht
Constantin

Hallo,
da ich neu im Forum bin, eine Verständnisfrage: Wenn auf einen Beitrag geantwortet (incl. Programmcode) wurde und man hierauf wiederum antworten möchte, erscheint zuweilen ein Antwortformular, in dem der Betreff bereits die entsprechende Überschrift ("AW:....") beinhaltet. Was ist, w...
30.09.2009 10:15:47
Thread-ID: 1106364
8 Beiträge
Ich suche eine Formel
Larissa

Hallo,
ich suche eine Formel, die ich mal versuche zu beschreiben:
Die Suchkriterium wird in Spalte E aus dem Tabellenblatt "Kontierung" der Mappe PP_RB_Eingang.xls gesucht.
Ein Ausschnitt der Spalte E sieht so aus, wobei immer nach den letzten 4 Ziffern gesucht werden soll.
944...
31.10.2009 13:08:03
Thread-ID: 1113490
15 Beiträge
doppelte Werte suchen und markieren
Wolfgang

Hallo,
suche eine Lösung für folgendes Problem:
Habe eine Tabelle, in der von Zelle A10 bis J1000 Daten mittels Maske eingetragen werden. Nun kommt es vor, das bei der Auswertung = Ausdruck in einigen Zeilen (immer die komplette Zeile ist doppelt, nicht eine Zelle !!!) doppelte Werte st...
26.11.2009 12:43:01
Thread-ID: 1120227
16 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
4
5
5
1
7
7
14
15
7
15
5
3
5
1
1
2
8
8
3
6
5
3
4