Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Excel-Datei mit mehreren Sheets, wobei einige Tabellenblätter (worksheets) und einige Diagramme sind.
Als Bsp. habe ich folgende Sheets in meiner Excel Datei:
- Tabelle_PV
- Dia1_PV
- Dia2_PV
- Tabelle_RV
- Dia1_RV
- Dia2_RV
Ich möchte nun per Makro alle Blätter, welche "PV" im Namen enthalten ausblenden. Bisher habe ich folgendes Makro:
Dim aPartNames
Dim iX As Integer
Dim ws As Worksheet
Dim dia As Diagram
aPartNames = Array("PV")
For Each ws In ThisWorkbook.Worksheets
For iX = 0 To UBound(aPartNames)
If InStr(ws.Name, aPartNames(iX)) "größerzeichen" 0 Then
ws.Visible = Not (ws.Visible)
Exit For
End If
Next iX
Next ws
Dieses Makro blendet allerdings nur Tabellenblätter, aber keine Diagrammblätter aus. Mit "Sheets" statt "worksheets" funktioniert das Makro bei mir nicht.
Vielen Dank schonmal für eure Hilfe!
Grüße Susann