[gelöst] RadioButton's das unbekannte Wesen :-(

[gogo]

In Deinen Radiobuttons gibt's eine Eigenschaft, die heißt "Gruppenname". Da trägst Du für alle Radiobuttons die Du in einer Gruppe haben willst denselben Wert ein. (Für's Makro unten hab' ich "GruppeX" verwendet.

Dann sollte das Makro unten funktionieren:

Code: Alles auswählen

Sub RBInfo(oEvent AS OBJECT)
	Dim oGrp As Object
	Dim oRadBut As Object
	
	oEvent.Source.Model.Parent.GetGroupByName("GruppeX",oGrp)
	For Each oRadBut In oGrp
		If oRadBut.State Then
			Print oRadBut.RefValue
			Exit Sub
		End if
	Next
	Print "KEIN Radiobutton mit Status = 1 gefunden!"
End Sub

... ich hab' die rechte der 2 Gruppen bearbeitet - das ist die wo sich mehrere Buttons simultan aktivieren ließen!

[gogo]

Code: Alles auswählen

oEvent.Source.Model.Parent.GetGroupByName("GruppeX",oGrp)

weist "oGrp" alle Kontrollelemente mit Gruppenname "GruppeX" zu ... ganz ohne "="