CommndButten werden nicht ausgeblendet

Forumthread: 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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CommndButten werden nicht ausgeblendet

29.12.2022 08:56:07

Luschi
AW: CommndButten werden nicht ausgeblendet

29.12.2022 09:22:17

ralf_b

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

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.

Beliebteste Forumthreads (12 Monate)

CommndButten werden nicht ausgeblendet

Forumthread: CommndButten werden nicht ausgeblendet

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread