Schaltfläche mit VBA ausblenden
27.10.2022 12:08:21
Andreas
habe eine Schaltfläche und würde die gerne ausblenden wenn eine Bedingung war ist.
Hab schon folgenden Code dazu:
Private Sub Worksheet_Calculate()
Shapes("Schaltfläche 1").Visible = UCase(Range("AA1").Value) "i.O"
End Sub
Vielleicht liegt es daran, dass ich in diesem Tabellenblatt schon einen Code habe unter den ich es nur drunter gesetzt hab?
Der restliche Code setzt Datenfilter zurück und erzeugt eine PDF. Das funktioniert auch.
Private Sub CommandButton2_Click()
Dim lngSlicer As Long
For lngSlicer = 1 To ActiveWorkbook.SlicerCaches.Count
ActiveWorkbook.SlicerCaches(lngSlicer).ClearManualFilter
Next lngSlicer
Set WSh = ThisWorkbook.Sheets("Lliste")
' PDF erzeugen
sDateiname = "C:\Users\andreas\Desktop\Listen\" & "\Nations overview " _
& "reference date" & Worksheets("KundePVDQ").Range("I1") & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
End Sub
Private Sub Worksheet_Calculate()
Shapes("Schaltfläche 1").Visible = UCase(Range("AA1").Value) "i.O"
End Sub
Danke vorab und Gruß
Andreas