Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommndButten werden nicht ausgeblendet

Forumthread: CommndButten werden nicht ausgeblendet

CommndButten werden nicht ausgeblendet
29.12.2022 02:32:40
Mathias221
Hallo,
ich würde gerne die CommandButton in Tabelle1 ausblenden, wenn nicht ich im Rechner eingelogt bin leider funktioniert das nicht. Immer wenn ich es verscuhe wird der CommandButton ausgeführt aber nicht ausgeblendet.
Vielleicht findet ja einer von euch eine lösung.
https://www.herber.de/bbs/user/156991.xlsm
Vielen Dank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: CommndButten werden nicht ausgeblendet
29.12.2022 08:56:07
Luschi
Hallo Mathias221,
Du verwendest die Buttons aus der Gruppe der 'Formularsteuerelemente' und nicht aus der Gruppe 'Active-X' und deshalb gibt es auch keine 'CommandButton1', 'CommandButton2', 'CommandButton3' sondern 'Schaltfläche 1', 'Schaltfläche 2', 'Schaltfläche 3'.
Statt
Worksheets("Tabelle1")..CommandButton1.Visible = False
mußt Du schreiben
Worksheets("Tabelle1").Shapes("Schaltfläche 1").Visible = False
Gruß von Luschi
aus klein-Paris
Anzeige
AW: CommndButten werden nicht ausgeblendet
29.12.2022 09:22:17
ralf_b
ergänzend zu luschi's Ausführungen hier eine Variante für dein Ausführungsmakro.
die Shapes auf dem Blatt identifiziere ich anhand der Caption-Eigenschaft, also dem Text auf dem Button.

Sub ButtonAction()
Dim sCaption As String
Dim ws As Worksheet
sCaption = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption
Select Case sCaption
Case "Drucken mit ZU"
If ActiveSheet.Shapes(Application.Caller).Visible = msoTrue Then
For Each ws In Worksheets
If IsEmpty(ws.Range("J287:J289").Value) = False Then
Ws.PrintOut
End If
Next
End If
Case "Drucken alle"
If ActiveSheet.Shapes(Application.Caller).Visible = msoTrue Then
For Each ws In Worksheets
If ws.Name  "Tabelle1" And ws.Name  "Blanko" And ws.Name  "Formeln" Then
'     Ws.PrintOut
End If
Next
End If
Case "Neues Mitglied anlegen"
UserForm1.Show
End Select
End Sub
sowie die passende Variante zu ausblenden
sh sollte aber vorher noch als Shape dimensioniert werden.

If Environ("Username")  "10088252" Then
' erst mal alle ausblenden wenn nicht der Administrator
With Worksheets("Tabelle1")
.Unprotect Password:="Nachtschichten"
.Columns("J:L").Hidden = True
For Each sh In .Shapes
Select Case sh.OLEFormat.Object.Caption
Case "Drucken mit ZU", "Drucken alle", "Neues Mitglied anlegen"
sh.Visible = msoFalse
End Select
Next
End With
'...usw.

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige