Shapes ansprechen
Jochen
kann mit bitte einer sagen warum folgendes Makro nicht funktioniert:
Private Sub Workbook_Open()
Dim i As Long
For i = 1 To 11
If Environ("UserName") = "J009300" Or Environ("UserName") = "J009028" Or Environ("UserName") = " _
J008995" Then
With Worksheets(i)
Worksheets(i).Shapes("CommandButton1").Visible = True
Worksheets(i).Shapes("CommandButton2").Visible = True
Else
Worksheets(i).Shapes("CommandButton1").Visible = False
Worksheets(i).Shapes("CommandButton2").Visible = False
End If
Next
End Sub
Es erscheint die Fehlermeldung "Laufzeitfehler 5 - Ungültiger Prozeduraufruf"Danke und Gruß
Jochen