Klick auf OptionsButton's in Tabelle erkennen

Private Sub Worksheet_Change(ByVal Target As Range) 'MsgBox "Worksheet_Change" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'MsgBox "Worksheet_SelectionChange" End Sub Private Sub Worksheet_TableUpdate(ByVal Target As TableObject) 'MsgBox "Table Update" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Die Reaktionsfähige Zellen liegen in benannte Bereiche, deren Namen "Frage1" bis "Frage.." Dim N Cancel = True 'damit wird die Excel-Doppelklick anschliessend nicht durchgeführt For Each N In Application.Names If Left(N.Name, 5) = "Frage" Then If Not Intersect(Target, Range(N.Name)) Is Nothing Then Range(N.Name).Value = "" Target.Value = "x" Exit Sub End If End If Next End Sub

Ich experimentiere gerade hierzu auch mit GPT.

Die Idee, wenn das Dokument fertig ist, dann sollte für jeden Optionsbutton das Click Ereignis automatisch erstellt werden.

Diesen Teil habe ich schon:

Sub Click_EreignisseFürOptionButtonErstellen()

Dim ws As Worksheet

    Dim obj As OLEObject

    Dim strButtonName As String

    

    ' Arbeitsblatt festlegen

        Set ws = ActiveSheet

    

    ' Durch alle OLE-Objekte auf dem Arbeitsblatt iterieren

    For Each obj In ws.OLEObjects

        ' Prüfen, ob das OLE-Objekt ein Optionsfeld ist

        

        If TypeName(obj.Object) = "OptionButton" Then

            

            strButtonName = obj.Name

            AssignClickEventToOptionButton obj, strButtonName

        

        End If

    Next obj



End Sub

Der Teil funktioniert auch:

' Makrocode für das Click-Ereignis des Optionsbuttons erstellen

    code = "Sub " & strButtonName & "_Click()" & vbCrLf

    code = code & "    MsgBox ""Optionsbutton wurde geklickt!""" & vbCrLf

    code = code & "End Sub"

Aber wie bekomme ich jetzt diesen String (Code) in den Code-Editor für die Arbeitsmappe?

Das schlägt mir GPT vor, ist aber Fehlerhaft:

With ThisWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule

        .InsertLines .CountOfLines + 1, code

    End With

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = False If Target.Column = 1 Then If Target.Value = "Punkte" Then Cells(Target.Row, 13).ClearContents ElseIf Target.Column >= 2 And Target.Column = 11 Then If Cells(Target.Row, 1).Value = "Punkte" Then Cells(Target.Row, 13).Value = 10 - Target.Column + 2 Else Cancel = True End If End Sub

Sub Click_EreignisseFürOptionButtonErstellen() Dim ws As Worksheet Dim obj As OLEObject Dim strButtonName As String ' Arbeitsblatt festlegen Set ws = ActiveSheet ' Durch alle OLE-Objekte auf dem Arbeitsblatt iterieren For Each obj In ws.OLEObjects ' Prüfen, ob das OLE-Objekt ein Optionsfeld ist If TypeName(obj.Object) = "OptionButton" Then strButtonName = obj.Name AssignClickEventToOptionButton obj, strButtonName End If Next obj End Sub Sub AssignClickEventToOptionButton(obj As OLEObject, strButtonName As String) Dim code As String Dim ws As Worksheet ' Makrocode für das Click-Ereignis des Optionsbuttons erstellen code = "Sub " & strButtonName & "_Click()" & vbCrLf code = code & " MsgBox ""Optionsbutton wurde geklickt!""" & vbCrLf code = code & "End Sub" Set ws = obj.Parent ' Makro im Modul der Arbeitsmappe erstellen With ThisWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule .InsertLines .CountOfLines + 1, code End With End Sub

Private Sub OptionButton1_Click(): Option_global 1: End Sub Private Sub OptionButton2_Click(): Option_global 2: End Sub '... Private Sub Option_global(BtnNr As Long) 'Hier findet die Behandlung statt anhand des BtnNr End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Die Reaktionsfähige Zellen liegen in benannte Bereiche, deren Namen "Frage1" bis "Frage.." Dim N Cancel = True 'damit wird die Excel-Doppelklick anschliessend nicht durchgeführt For Each N In Application.Names If Left(N.Name, 5) = "Frage" Then If Not Intersect(Target, Range(N.Name)) Is Nothing Then Range(N.Name).Cells(1).Value = Target.Value Exit Sub End If End If Next End Sub

Public Sub NotenSumme_rechnen() Dim N Dim Summe As Long For Each N In Application.Names If Left(N.Name, 5) = "Frage" Then Summe = Summe + Range(N.Name).Cells(1).Value Next Range("B3").Value = Summe End Sub

Hallo,
Gibt es denn kein Ereignis, dass einen Mausklick innerhalb der Tabelle abfangen kann?
Doch. Aber nur innerhalb der Tabelle (Zellen) und nicht auf Steuerelemente. Für Steuerelemente gibt es eigene Ereignisprozeduren. Du musst also für jeden Button eine eigene Click-Prozedur schreiben.

Eine andere mögliche Lösung ist, die Optionbuttons in eine eigene Klasse zu packen und dort zu verarbeiten. Dann brauchst du nur eine Click-Prozedur für alle. Allerdings musst du dann dafür sorgen, dass die Buttons eindeutig zu identifizieren sind. z.B. für Prüfungspunkt 1 Namen opt_01_00 bis opt_01_10 und weiter für Punkt2 opt_02_00 bis opt_02_10 etc. Da hast du einen Haufen Arbeit.

Gruß aus'm Pott
Udo

Beliebteste Forumthreads (12 Monate)

Klick auf OptionsButton's in Tabelle erkennen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Klick auf OptionsButton's in Tabelle erkennen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread