Thema: Begrenzung der Textlänge bei Eingaben

ClassModule: frmOneOnly

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Range(RefEdit1.Value).Cells.Count > 1 Then
      MsgBox "Bitte nur eine Zelle auswählen!"
      RefEdit1.Value = ""
      Cancel = True
   End If
End Sub
StandardModule: Modul1

Sub CallForm()
   frmOneOnly.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit