VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Außer Kommata und Semikoli keine anderen Zeichen doppelt eingeben

Gruppe

Feature

Bereich

Gültigkeit

Thema

Außer Kommata und Semikoli keine anderen Zeichen doppelt eingeben

Problem

In Spalte C dürfen außer Kommata und Semikoli keine Zeichen doppelt eingegeben werden. Lösung über Menü DATEN / GÜLTIGKEIT.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




ClassModule: frmAuslesen

Private Sub cmdAuslesen_Click()
   Dim cnt As Control
   Dim iCounter As Integer
   For Each cnt In Controls
      If TypeName(cnt) = "OptionButton" Then
         iCounter = iCounter + 1
         If cnt.Value = True Then Exit For
      End If
   Next cnt
   MsgBox "Optionsfeld Nr. " & iCounter & _
      " wurde ausgewählt!"
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmAuslesen.Show
End Sub

    


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