Office: OptionsButton aktivieren

Hallo,
ich benötige wieder einmal eure VBA Hilfe

In meiner HealthCare-Datenbank sind ab der Spalte M bis Spalte R also über insgesamt 6 Spalten jeweils eine variable Anzahl von Befunden abgelegt.
Das kann je nach Arztbesuch entweder überhaupt kein Befund, dann sind die
Zellen M:R alle Leer oder es sind bis zu 6 Befunde abgelegt, dann sind die
einzelnen Befunde in den Zellen M:R gefüllt mit einem Datum und einer fortlaufenden Nummer von 1-6

Jetzt sollte nach öffnen der Userform der jeweilige OptionsButton aktiviert werden entsprechend der eingetragenen Befunde in der entsprechenden
aktiven Zeile!
Beispiel:
Der Cursor steht in Zeile B7 dann sollte nach Öffnen der Userform der OptionsButton 6 aktiviert werden

oder

Der Cursor steht in Zeile B8 dann sollte nach Öffnen der Userform der OptionsButton 0 aktiviert sein, für keine Befunde

usw.
siehe beiliegende Testmappe

Vielen Dank für Eure Hilfe
Gruß Derhard

:)

 

Hallo Gerhard,

Sub Schaltfläche1_Klicken()
Dim lngCount As Long

With ActiveCell
lngCount = Application.CountA(Range(Cells(.Row, 13), Cells(.Row, 18))) + 1
End With

With UserForm1
.Controls("OptionButton" & lngCount).Object.Value = True
.Show
End With
End Sub


Gruß Sepp

 

Hallo Sepp
Vielen Dank für deine schnelle Hilfe!
funktioniert super

Ich wünsche Dir ein schönes Wochenende
LG
Derhard