Das Archiv des Excel-Forums

Spalte: nur bestimmte Zeichen und Länge

Bild

Betrifft: Spalte: nur bestimmte Zeichen und Länge
von: Peter

Geschrieben am: 04.10.2003 16:17:38

Hallo,

ich möchte gerne die Eingabe von Zeichen in einer Spalte begrenzen. Es sollen nur die Zeichen A-Z, a-z und der Bindestrich erlaubt werden und die Textlänge auf 12 Zeichen begrenzt werden. STRG-C soll funktionieren. Geht wohl nur über VBA-Code... habe von VBA leider keine Ahnung.... Hat denn jemand einen Beispiel-Code für mich ?

Danke,

Gruß

Peter
Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Nepumuk
Geschrieben am: 04.10.2003 18:28:04

Hallo Peter,
das prüfen wärend der Eingabe geht nicht. Nach der Eingabe, kann der Zellinhalt geprüft werden. Würde das reichen?
Gruß
Nepumuk


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Peter
Geschrieben am: 04.10.2003 19:35:26

Hallo Nepumuk,

ja klar, nach dem ich etwas in die Zelle geschrieben habe drücke ich return oder verlasse diese. Somit kann die Prüfung anschließend erfolgen.
Wichtig ist, das ich auch Daten aus einer anderen Zelle mit STRG-C reinkopieren kann.
-> Gültigkeitsprüfung funktioniert ja nur bei manueller Eingabe...

Danke,

Gruß

Peter


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Reinhard
Geschrieben am: 04.10.2003 20:18:48

Hi Peter,
Alt-F11, dann im Editor oppelt auf "Diese Arbeitsmappe " klicken und einfügen.
Die Zeile: If Target.Column <> 4 Then Exit Sub
ggfs. anpassen auf deine gewünschte Spalte, A=1, B=2, C=3, usw.
Gruß
Reinhard


Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim n As Long
Dim Fehler As Boolean
If Target.Column <> 4 Then Exit Sub ' Nur Salte 4 überprüfen, also "D"
Fehler = False
For n = 1 To Len(Target.Value)
Select Case LCase(Mid(Target.Value, n, 1))
Case Is > Asc("z"), Is < Asc("a"), Is <> "-"
Fehler = True
End Select
Next n
If Len(Target.Value) > 12 Or Fehler = True Then
MsgBox "Nur ""A-Z"", ""a-z"". und ""-"""
Target.ClearContents
Target.Select
End If
End Sub



Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Peter
Geschrieben am: 04.10.2003 20:41:57

Hallo Reinhard,

danke für das Makro. Irgendetwas scheint noch falsch zu sein...
Es tut noch nicht so richtig...

Gruß

Peter


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Nepumuk
Geschrieben am: 04.10.2003 21:03:16

Hallo Peter,
es ist nicht ganz optimal, wenn du z.B. in drei Zellen gleichzeitig etwas eingibst, kommt die Meldung nach jeder Korrektur nochmal. Aber so auf die schnelle ging es nicht besser. Überwacht wir Spalte A

https://www.herber.de/bbs/user/1289.xls

Gruß
Nepumuk


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Peter
Geschrieben am: 05.10.2003 08:46:31

Hallo Nepumuk,

Dein Code gefällt mir sehr gut. Es ist nur noch irgendwo ein kleiner Fehler drin, denn die Eingabe falscher Zeichen gefolgt von einem zugelassenen z.B. "%%A" funktioniert...
Kannst Du bitte nochmal über den Code schauen ?

Danke,

Gruß

Peter


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Peter
Geschrieben am: 05.10.2003 09:09:01

Hallo Nepumuk,

ich hab´s... for-Schleife mit "Exit For" beenden, falls not_ok=true... ;-)

Gruß

Peter


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Josef Ehrensberger
Geschrieben am: 05.10.2003 00:15:00

Hallo Peter,

ich hab das Makro von Nepumuk ein bisschen verändert,
probier mal ob du jetzt besser damit arbeiten kannst.


Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
Dim Fehler As Boolean
If Target.Column <> 4 Or Target.Count > 1 Then Exit Sub ' Nur Salte 4 überprüfen, also "D"
If Target <> "" Then
Fehler = False
For n = 1 To Len(Target)
Select Case Asc(LCase(Mid(Target, n, 1)))
Case 97 To 122, 45
'Fehler = Fehler
Case Else
Fehler = True
End Select
Next n
End If
If Len(Target) > 12 Or Fehler = True Then
MsgBox "Nur ""A-Z"", ""a-z"" und ""-""" & vbLf & _
"   Maximal 12 zeichen!", vbExclamation + vbOKOnly, "Falsche Eingabe"
Target.ClearContents
Target.Select
End If
End Sub


Gruß Sepp


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Nepumuk
Geschrieben am: 05.10.2003 07:20:33

Hallo Sepp,
da bekommst du aber immer einen Programmfehler, wenn du mehrere Werte einfügst, oder mehrere Zellen markierst, einen Wert eingibst und mit Strg+Enter bestätigst.
Gruß
Nepumuk


Bild


Betrifft: AW: Spalte: nur bestimmte Zeichen und Länge
von: Josef Ehrensberger
Geschrieben am: 05.10.2003 08:15:13

Hallo Nepumuk,

kann nicht nachvollziehen warum du immer einen Fehler bekommst.

Bei mir funktioniert das ganz prima, nur beim gleichzeitigen einfügen
mehrerer Werte, wird die überprüfung ausgehebelt und auch falsche eingaben
zugelassen.

Gruß Sepp


 Bild

Excel-Beispiele zum Thema " Spalte: nur bestimmte Zeichen und Länge"

Befindet sich die aktive Zelle in einem bestimmten Bereich? download Werte eins bestimmten Monats summieren download
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen download Alle Links zu einer bestimmten Arbeitsmappe löschen download
Anzahl eines bestimmten Wochentages im Monat download Alle Dateien ab einem bestimmten Datum listen download
Daten eines bestimmten Jahres filtern download Word mit bestimmtem Dokument starten download
Bestimmte Anzahl von Zeichen zulassen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Zeile löschen, wenn ein bestimmter Wert vorkommt download xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Kommentarfenster in bestimmter Größe erstellen download
Wert einer bestimmten Zelle merken download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
Feststellen, ob eine bestimmte Zelle markiert ist download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Bestimmte Zeichen in einer UserForm-TextBox markieren download Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten download
Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln download
Anzahl der Einträge zu einer bestimmten Kalenderwoche download Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle download
Errechnung der Maximaltemperatur an bestimmtem Datum download Datenmaske mit einem bestimmten Datensatz aufrufen download
Nur Zeilen mit bestimmtem Inhalt kopieren download Aus Liste Anzahl der Januartage eines bestimmten Jahres listen download
Einem Datum eine bestimmte Anzahl von Jahren hinzufügen download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen download Bestimmte Wochentage ohne Feiertage listen download
Dateien mit bestimmtem Inhalt suchen download Summe bilden, wenn Kriterium Zeichenfolge download
Leerzeichen aus einem Bereich löschen download Anfügen des Zeichens für Durchmesser download
Zeichenfolge aufteilen download Filtern einer Zahl aus einer Zeichenfolge download
Zeichenfolgen in Zahlen nach Textimport download Zeichenfolge korrigieren download
Zeichenfolge umkehren download Zeichen separieren download
Zeichenfolge in Wert wandeln download Häufigkeit des Vorkommens eines Zeichens download
Zeichentabelle StandBy download Nach jedem 5. Zeichen ein Leerzeichen einfügen download
Minuszeichen umkehren download Die ersten 5 Zeichen nach einem "+" separieren download
Ein Zeichen in einer Formel suchen download Zeichenfolgen zusammenfassen download
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen download Zeichenfolge AAAA bis DDDD listen download
Alle überflüssigen Leerzeichen im Arbeitsblatt löschen download Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen download
In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern download Wasserzeichen in Tabelle einfügen download
Wertermittlung in Abhängigkeit eines Zeichens in einem String download Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen download
Suchen von Nachnamen in Zeichenfolgen download 5-Längen-Zeichenfolgen in Zeit mit Format mss,00 umwandeln download
Zeichenfolge in Ziffern und Buchstaben aufteilen download Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download
Positionen einzelner Zeichen in langer Zeichenfolge auslesen download Zelleingaben in Gruppen von 5 Zeichen aufteilen download
Zeichenfolge analysieren und Zeichen auflisten download Einer Zeichenfolge eine zweite in anderer Schriftart hinzufügen download
Eingabemöglichkeit auf 255 Zeichen je Zelle begrenzen download Vorkommen eine Zeichens in einem Bereich ermitteln download
Zeichenfolgen vervollständigen download Druck mit und ohne Wasserzeichen download
Zeichenfolgen über Doppelklick in externen Bezug umwandeln. download Werte aus Zeichenfolgen filtern und berechnen download
Aufhebung der Suchstringbegrenzung von 255 Zeichen download Daten in einer Textdatei ohne Anführungszeichen speichern download
Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen download TextBox mit 12.000 Zeichen unterhalb einer Tabelle einfügen download
Überflüssige Leerzeichen in einem vorgegebenen Bereich löschen download Keine doppelten Werte und nur Werte mit 10 Zeichen akzeptieren download
Umwandlung einer Zeichenfolge in Spalte A in Großbuchstaben download