Re: und nun?
09.07.2002 12:17:30
Sandra
Hi Alex,>wechsle mit alt+f11 in die Entwicklungsumgebung
hab ich getan!!
>Doppelklick auf "Diese Arbeitsmappe"
hier wusste ich nicht so richtig wo, wie und was
>folgende zeilen kopieren:
>Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, >ByVal Target As Excel.Range, Cancel As Boolean)
>UserForm1.Show
>End Sub
hab das wie folgt erledigt: (steht alles in einer Userform)
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
UserForm2.Show
End Sub
Private Sub Rot_Click()
ActiveCell.Interior.ColorIndex = 3 'rot
End Sub
Private Sub Gelb_Click()
ActiveCell.Interior.ColorIndex = 6 'gelb
End Sub
Private Sub Grün_Click()
ActiveCell.Interior.ColorIndex = 4 'grün
End Sub
So und nun? Wie kann ich es nutzen, wenn ich in der Entwicklungsumgebung auf play drück, kommt zwar dieses Fenster mit den Buttons, aber es passiert nichts, wenn ich drauf klick. :/
Tschau Sandra