ich möchte die Gültigkeit einer Zelle auf
x Eingaben einer immer 7stelligen Zahl durch Komma getrennt
festlegen.
Hat jemand eine Ahnung wie ich das Anstelle, kann unter Gültigkeit oder VBA sein.
Danke
Henri
Private Sub cmbEintragen_Click()
With txtEingabe
If Len(txtEingabe) = 7 And ActiveCell.Value = "" Then
ActiveCell.Value = .Value
.Value = ""
.SetFocus
ElseIf Len(txtEingabe) = 7 And ActiveCell.Value <> "" Then
ActiveCell.Value = ActiveCell.Value & "," & vbLf & .Value
.Value = ""
.SetFocus
Else
MsgBox "Die Eingabe ist auf 7 Zahlen begrenzt!"
End If
End With
End Sub
Private Sub cmbSchließen_Click()
frmEingabe.Hide
End Sub
Private Sub txtEingabe_Change()
Dim i As Long
For i = 1 To Len(txtEingabe.Text)
Select Case Mid(txtEingabe.Text, i, 1)
Case "0" To "9"
Case Else
SendKeys "{BS}", Wait:=True
MsgBox "Bitte nur Zahlen eingeben!"
End Select
Next i
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen