Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1996to2000
1996to2000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Falsche Eingabe verhindern

Forumthread: Falsche Eingabe verhindern

Falsche Eingabe verhindern
04.12.2024 12:07:18
sigrid
Guten Morgen,
ich habe folgendes Makro, funktioniert einwandfrei. 
'----------Postleitzahl ----------------------

Private Sub TextBox9_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

    ActiveSheet.Range("O20") = TextBox9            ' raus 27.03.23 19:14.Value

    TextBox9 = ActiveSheet.Range("O20")

With TextBox10

    .SetFocus

    .SelStart = 0

    .SelLength = Len(.Text)

End With

End Sub


Meine Kollegin macht schon mal falsche Eingaben bei dieser Zelle, in dieser Zelle
sollte nur die PLZ also bis 5 Stellig eingegeben werden.
Sie gibt immer PLZ und den Ort rein.
Ich weiß nicht wie ich dies verhindern kann, das nur die PLZ eingegeben werden soll.

mfg sigrid
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Falsche Eingabe verhindern
04.12.2024 12:22:43
daniel
Hi

füge noch dieses Makro hinzu: 

Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not Chr(KeyAscii) Like "#" Then KeyAscii = 0

If Len(TextBox9.Text) >= 5 Then KeyAscii = 0

End Sub


das erlaubt nur die Eingabe von Ziffern und nur die Eingabe von maximal 5 Zeichen.

allerdings, sei doch nutzerfreundlich.
wenn die Kollegin PLZ und Ort in einem eingibt, dann Teile die Eingabe in PLZ und Ort und verteile die Werte in die jeweiligen Textboxen und Zellen.

also sowas in der Art: 

if Textbox9.Text like "##### ?*" Then '-- 5 Ziffer und weitere Text

    Textbox10.Text = Mid(Textbox9.Text, 7)

    Textbox9.Text = left(Textbox9.Text, 5)

end if

Range("O20").Value = Textbox9.Text


Gruß Daniel
Anzeige
AW: Falsche Eingabe verhindern
04.12.2024 12:24:39
Onur
Mach doch einfach aus 
ActiveSheet.Range("O20") = TextBox9

das 
ActiveSheet.Range("O20") = Left(TextBox9,5)
Danke zusammen, klappt ! --))
04.12.2024 14:19:47
sigrid
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum