VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auslesen von Schnittstellenwerten

Gruppe

Funktion

Bereich

Schnittstelle

Thema

Auslesen von Schnittstellenwerten

Problem

Aus einer Tabelle sollen Schnittstellenwerte ausgelesen werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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 Funktion und Schnittstelle