Hallo hab diese 3 Subs in einem Modul. User klickt in einer UserForm auf einen RadioButton und der Wert wird dann in eine bestimmte Excel Zielzelle übernommen, dass klappt. Befinde ich mich im Excel in einer anderen aktiven Zelle schreibt er dort auch den Wert rein.
Weiss jemand warum?
--
Private Sub UserForm_Initialize()
Dim selection As String
End Sub
--
Private Sub OptionButton1_Click()
selection = "Windows"
End Sub
'dasselbe für 2 andere RadioButtons
--
Private Sub OKButton_Click()
Dim icounter As Integer
For icounter = 9 To 29
If selection = "Windows" Then
'schreib ausgewählten Wert in Zielzelle
Worksheets("Test").Cells(icounter, 6).Value = Worksheets("DefaultValues").Cells(22, 5)
End If
Next icounter
UserForm1.Hide
End Sub
|