Userform wird zweimal geöffnet
01.12.2003 12:05:22
toni
Mit:
Private Sub Worksheet_Activate()
Range("G7").Select
End Sub
steuer ich eine bestimmte Zelle an. Wenn diese Zelle aktiv ist, soll eine Userform geöffnet werden:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set RaBereichHeu = Range("G7:G26")
If Not Intersect(Range(Target.Address), RaBereichHeu) _
Is Nothing Then frmHeu.Show
Set RaBereichHeu = Nothing
End Sub
Dort befinden sich die Buttons 'Ja' und 'Nein'. Wird einer dieser Buttons angeklickt soll der entsprechende String ('Ja' oder 'Nein') in die Zelle geschrieben und die Userform geschlossen werden.
Private Sub cmdHeuja_Click()
ActiveCell.Value = "Ja"
Unload Me
End Sub
Private Sub cmdHeunein_Click()
ActiveCell.Value = "Nein"
Unload Me
End Sub
Soweit so gut.
Die Userform erscheint allerdings ein zweites mal .
Danach läuft alles normal.
Was mache ich falsch oder besser gefragt, was muss ich ändern???
Wäre schön, wenn mir jemand helfen könnte.
Ciao, Toni