Hallo VBAler,
ich habe mir ein Userframe erstellt, auf dem ich ein Frame(name:frmGeschlecht) und 2 Optionsfelder (optMann und optFrau) bedienen kann.
Beim Eintragen des Userform werden dann in die Spalte 10 erfolgreich ein m für einen Mann und ein w bei Auswahl der optFrau eingetragen.
Zusätzlich werden noch durch Textfelder z.B. txtNachname in die 3Spalte des erstenfreien Userrange der Nachname geschriebengeschrieben...
Bin jetzt gerade dabei ein Rücknavigation zu basteln.
Damit mein ich, wenn ich eine Zelle in der Tabelle anklicke (navigationsframe ist ShowModal=True) wird über die
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Routine über
frmKontaktnavi.txtNachname.Value = Cells(ActiveCell.Row, 3).Value
z.B auf einem Userform frmKontaktnavi der Wert der Spalte 3 hier Nachname an das zueghörige Textfeld übergeben
AUf dem Navigationsformular habe ich genau wie in dem Eintragen Formular (das ja schon funkt) wieder EIn Frame optgeschlecht und die beiden zugehörigen optMann und optFrau.
Ich hätte jetzt logischerweise gern, dass je nach dem ob in der Spalte 10 die gerad angeklickt ist ein m oder w steht die optMann oder optFrau richtig vormarkiert wird also alleine den Focus erhält. Mein bisheriger Ansatz war dieser:
'Optionen hier mann m und frau w
If Cells(ActiveCell.Row, 10).Value = w Then
frmKontaktnavi.optFrau.SetFocus
End If
If Cells(ActiveCell.Row, 10).Value = m Then
frmKontaktnavi.optMann.SetFocus
End If
Leider wird aber so kein richtiger Focus auf das richtige Optionsfeld gesetzt.
Habt Ihr eine Idee?
Vielen Dank für Eure Hilfe!