ich bin neu in diesem Forum und habe noch wenig Erfahrung mit VBA
ich arbeite zur Zeit an einer Userform. Diese Userform soll Eingaben in eine jeweils bestimmte Zelle in einem Arbeitsblatt schreiben um diese zum Schluß zu exportieren. Dabei soll der Benutzer möglichst frei agieren können.
Mein Problem sind zur Zeit die Optionsfelder. Es ist zwar kein Problem einen Wert in eine Zelle zu schreiben wenn ein Optionsfeld aktiviert wird, der Wert wird allerdings nicht gelöscht wenn das Optionsfeld wieder deaktiviert wird.
Konkretes Beispiel: Zwei Optionsfelder in einem Frame. Optionsfeld 1 = Frau, Optionsfeld 2 = Herr
Wenn Optionsfeld 1 = True dann schreibe in eine bestimmte Zelle den Wert x
Wenn Optionsfeld 2 = Ture dann schreibe in eine bestimmte Zelle den Wert x
zur zeit sieht das ganze so aus
Private Sub OptionButton1_Click() For i = 1 To Ende If Sheets("Daten").Cells(i, 2).Value = "Frau" Then 'sucht in spalte B nach _ zuordnungswert If OptionButton1.Value = True Then Sheets("Daten").Cells(i, 1) = "x" Else Sheets("Daten").Cells(i, 1) = "" End If Exit For End If Next End Sub
Private Sub OptionButton2_Click()
For i = 1 To Ende
If Sheets("Daten").Cells(i, 2).Value = "Herr" Then
If OptionButton2.Value = True Then
Sheets("Daten").Cells(i, 1) = "x"
Else
Sheets("Daten").Cells(i, 1) = ""
End If
Exit For
End If
Next
End Sub
Leider wird nun das x nicht mehr "gelöscht" wenn ich z.b. erst Frau anklicke und dann Herr auch noch auswähle, sondern dann steht in beiden Zellen ein x
Habe zwar selber ein paar sachen probiert und gegoogelt bin aber leider nicht fündig geworden und hoffe das mir vll jemand von euch weiterhelfen kann.
Gruß Max