Ich habe auf eine UF zwei Optionsbutton mit den Werten "App" und Papier" als Gruppe "optGrp_Abgabeart" und möchte je nach Auswahl den Text "App" oder "Papier" in die Tabelle "Parameter" Spalte AG schreiben.
Das klappt soweit auch ganz gut.
Dabei habe ich ein Script, dass durch Doppelklick auf Spalte A von der aktiven Tabelle die Werte der dazugehörigen Zeile ausliest und in in die UF einlesen soll.
TextBoxen klappen ganz gut, bei Option Buttons bekomme ich derzeit nur das Schreiben des ausgewählten Wertes hin.
Private Sub btn_OK_Click()
'Eintrag wieder in die Zelle der ausgewählten Zeile zurück schreiben
With ActiveCell.EntireRow
.Cells(1, 34).Value = txt_Abgabe.Value
.Cells(1, 26).Value = cbx_Reisezweck.Value
'.Cells(1, 31).Value = cbx_Zielort.List(cbx_Zielort.ListIndex, 1)
'Abgabeart eintragen
If Me.opt_App.Value = True Then
.Cells(1, 33).Value = "App"
ElseIf Me.opt_Papier.Value = True Then
.Cells(1, 33).Value = "Papier"
End If
End With
'Blattschutz nach dem Schließen der UF zurücksetzen
ActiveSheet.Protect
Unload Me
End Sub
Hier steht nun in Sheet "Parameter" der jeweiligen Zeile der Werte "App" oder "Papier".
Aber das Auslesen der gewählten Zeile des aktiven Sheet lädt nicht die Werte zurück.
Private Sub UserForm_Initialize()
Dim zeile As Long
Dim Repeatings As Integer
Dim N As Integer
zeile = ActiveCell.Row
lbl_Kalendertag = Cells(zeile, 2)
txt_Abgabe = Cells(zeile, 34)
cbx_Reisezweck = Cells(zeile, 26)
cbx_Zielort = Cells(zeile, 31)
optGrp_Abgabeart = Cells(zeile, 33)
End Sub
Wie muss es geschrieben werden? Vielen Dank für jede Hilfe.
LG
Peer