Über das RefEdit-Steuerelement darf nur eine Zelle ausgewählt werden.
Prozedur: RefEdit1_Exit
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Nur eine Zelle
Ablaufbeschreibung:
Wenn mehr als eine Zelle ausgewählt wurden...
Warnmeldung
RefEdit zurücksetzen
Verlassen des Steuerelements verhindern
Code:
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