Shapes ... Visible = True
05.09.2003 00:19:59
Peter
ich weiß nicht was ich verkehrt mache ?!
Private Sub Workbook_Activate()
auto_open
End Sub
Sub auto_open()
Application.Run "Zeilen"
End Sub
Sub Zeilen()
If Sheets("Liste").Range("K2") = " " Then
ActiveSheet.Shapes("Zeilen").Visible = False
ElseIf Sheets("Liste").Range("K2") = 30 Then
ActiveSheet.Shapes("Zeilen").Visible = True
End If
End Sub
es sollte wenn die Zell K2 leer ist keine Schaltfläche zu sehen sein
wenn in der Zelle K2 der 30 erscheint (durch formel berechnet) soll die Schaltfläche erscheinen ... aber sie tut es einfach nicht.
Gruß Peter