Eingabebeschränkung per ASCII in Tabellenblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Josef!! ...danke für Deine Rückmeldung!!
Das funktioniert sehr gut... ...aber leider begrenzt! Es wird dann nur 1 Zeichen pro Zelle zugelassen.
Bei TextBoxen in UserForms ist es mir schon gelungen per ASCII-Anweisung selektierte Zeichen zuzulassen. Und deshalb dachte ich, das muss doch auch mit Tabellen-Zellen gehen... ...aber meine beschränkten VBA-Kenntnisse...
Hast Du noch eine andere Idee? Danke!
--------------------------------
Aber da "brennt mir noch etwas unter den Fingernägeln": Mit Schmunzeln nehme ich Deine Selbsteinschätzung bzgl. des Excel-Levels: "Excel gut - VBA bescheiden" wahr.
Ganz ehrlich Josef: Wenn ich das mit meinem Excel-Stand vergleiche, kann ich das nicht so stehen lassen! Josef! ...Du hast doch wesentlich mehr drauf als "Excel gut - VBA bescheiden"... ..."Excel-Profi - VBA-Profi" ist doch bei Dir eher angebracht! Oder?! :-))
Gruß
Lenni

Hallo Lenni,
hatte es so verstanden, das immer nur ein Zeichen eingegeben werden soll.
So können bis zu vier gültige Zeichen eingegeben werden.

' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim bolNotValid As Boolean, lngIndex As Long

  On Error GoTo ErrExit
  Application.EnableEvents = False
  If Not Intersect(Target, Range("B10:D150")) Is Nothing Then
    If Target.Count > 1 Then
      bolNotValid = True
    ElseIf Len(Target) > 0 And Len(Target) < 5 Then
      For lngIndex = 1 To Len(Target)
        Select Case Asc(Mid(Target, lngIndex, 1))
          Case 73, 77, 86, 88
          Case Else
            bolNotValid = True
            Exit For
        End Select
      Next
    Else
      bolNotValid = True
    End If
  End If
  If bolNotValid Then
    MsgBox "Ungültige Eingabe!", vbExclamation, "Hinweis"
    Application.Undo
  End If
  ErrExit:
  Application.EnableEvents = True
End Sub

Zum Level:
Im Thread siehst du immer die Levelangabe des Fragestellers, also deine.
Ich werde mich aber nie als Excel- oder VBA-Profi bezeichnen, erstens weil ich das sicher nicht bin und zweitens weil ich Excel/VBA nur als Hobby betreibe.

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Eingabebeschränkung per ASCII in Tabellenblatt

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabebeschränkung per ASCII in Tabellenblatt

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread