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.