Thema Datum  Von Nutzer Rating
Antwort
11.02.2021 10:45:24 Apollix
Solved
11.02.2021 12:13:17 Mase
Solved
Rot Nur bestimmte Zeichen in Zelle zulassen
 11.02.2021 12:43:06 volti
Solved
11.02.2021 13:40:53 Gast42367
Solved
11.02.2021 13:51:51 volti
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
11.02.2021 12:43:06		 Views:
544		 Rating:
     
Antwort:
 Nein
Thema:
Nur bestimmte Zeichen in Zelle zulassen

Hallo,

hier eine Idee, die auch eine einfache Korrektur vornimmt:

PS: Eine Sofortüberprüfung nach Eingabe eines Zeichens ist in einer Zelle nicht möglich, da es kein Event dafür gibt. So was ginge nur mit Timer-Kram...

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31		  
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr() As String

  With Target
      If .Address = "$A$1" And .Value <> "" Then     ' Feld <<<anpassen>>>
         Application.EnableEvents = False
         .Value = Replace(UCase$(.Value), " ", "")
         If Not .Value Like "####-####-V##" Then
            sArr = Split(.Value, "-")
            If UBound(sArr) = 2 Then
               sArr = Split(.Value, "-")
               sArr(0) = Right$("20" & sArr(0), 4)
               sArr(1) = Right$("000" & sArr(1), 4)
               sArr(2) = Replace(sArr(2), "V", "")
               sArr(2) = "V" & Right$("0" & sArr(2), 2)
               .Value = Join$(sArr, "-")

' Korrektur möglich
            End If
            If Not .Value Like "####-####-V##" Then
               MsgBox "Die Eingabe '" & .Value & "' ist nicht richtig formatiert!" & vbCr & vbCr _
               & "So soll es sein: ####-####-V##", _
               vbCritical, "Fehler bei der Eingabe"
            End If
         End If
         Application.EnableEvents = True
      End If
  End With
End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.02.2021 10:45:24 Apollix
Solved
11.02.2021 12:13:17 Mase
Solved
Rot Nur bestimmte Zeichen in Zelle zulassen
 11.02.2021 12:43:06 volti
Solved
11.02.2021 13:40:53 Gast42367
Solved
11.02.2021 13:51:51 volti
Solved