Ich besitze da ein Problem, an dem ich schon seit ca. 3 Tagen zu knabbern hab.
Nach stundenlangem suchen bin ich total am Ende und hoffe, dass Ihr mir helfen könnt x)
zur Theorie:
Ich besitze 3 Spalten mit jeweils folgenden Überschriften(A1:C1)
A1. Farbe B1. Hell C1. Dunkel
Wenn ich nun unterhalt der Zelle A1, sprich A2 eine Wert wie
z.B. Gelb eintrage, dann soll automatisch die Userform1 geöffnet werden
in der ich über 2 Optionbuttons auswählen kann"Hell" oder "Dunkel".
Je nachdem, welchen Button ich anklicke soll er unter der entsprechenden
Zeile(sprich entweder unter B1 oder unter C1) ein "x" einsetzen und die Userform
soll sich automatisch schließen.
Zur Praxis:
Ich habe eine "Function" geschrieben, die wie folgt aussieht
Function HellDunkel()
Call UserForm1.Show
End Function
' Hiermit rufe ich die Funktion auf
Die Userform besteht nur aus 2, wie oben schon beschrieben,
Optionbuttons, mit denen ich auswählen kann zwischen "hell"
oder "dunkel"
Der Vba-Code eines Optionsbuttons sieht folgendermaßen aus:
--
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range("B2") = "x"
End If
UserForm1.Hide
End Sub
In der Zelle B2 steht folgende Funktion
"=wenn(A2="Gelb";HellDunkel();"")
Die Userform öffnet sich nachdem ich in die Zelle A2 den Wert
"Gelb" eingetragen habe, aber anschließend kann die Userform keinen
Wert in das Tabelleblatt übertragen.
Ich hoffe.., Ihr könnt mir helfen x)
Schonmal im Vorraus Vielen Dank x)
Liebe Grüße, Burns =)