CommandButton Visible
18.04.2006 10:56:52
Frederic
hab immer noch das Problem. Das u.g. Marko funktioniert leider nur, wenn ich die Zelle AE2 "manuell" neu berechne (F2 und Enter).
In AE2 stehen Zahlen, die über einen SVERWEIS eingespeist werden (1-8).
Wenn nun in Zelle AE2 die 4 steht, soll nur CommandButton4 Visible sein. Die anderen sollen FALSE sein. Gibt es da ne Möglichkeit?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oo As OLEObject
Dim auswahl As Integer
If Intersect(Target, Me.Range("AE2")) Is Nothing Then Exit Sub
auswahl = Target
Me.OLEObjects("Commandbutton" & auswahl).Visible = True
For Each oo In Me.OLEObjects
If Right(oo.Name, 1) <> auswahl Then oo.Visible = False
Next oo
End If
End Sub
Gruß Frederic
Danke im voraus.