Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Shapes ansprechen

Shapes ansprechen
Jochen
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Shapes ansprechen
17.01.2011 13:48:27
Rudi
Hallo,
With Worksheets(i)

löschen.
Gruß
Rudi
AW: Shapes ansprechen
17.01.2011 17:41:05
Jochen
Hallo Rudi,
warum ich das selber nicht gesehen habe, weiß ich echt nicht!
Danke und Gruß
Jochen
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige