Code Snippet "VBA Excel"

Anzahl von Blättern, Tabellenblättern, eingebetteten Diagrammen einer Arbeitsmappe ausgeben

'Gibt eine Meldung der Anzahl Blätter, Tabellenblätter und eingebetteten Diagramme an
Sub procAnzBlaetter()
  Dim intWorksheets As Integer
  Dim intSheets As Integer
  Dim intChartsheets As Integer
  Dim intChartObjects As Integer
  Dim objElement
    
  intWorksheets = ActiveWorkbook.Worksheets.Count
  intSheets = ActiveWorkbook.Sheets.Count
  intChartsheets = ActiveWorkbook.Charts.Count
    
  intChartObjects = 0
  For Each objElement In ActiveWorkbook.Sheets
    intChartObjects = intChartObjects + objElement.ChartObjects.Count
  Next
  
  MsgBox ("Diese Mappe enthält" & vbCrLf & " - " & intSheets & " Blätter (ink. Tabellenblätter)" & vbCrLf & _
    " - " & intWorksheets & " Tabellenblätter" & vbCrLf & _
    " - " & intChartsheets & " Diagrammblätter" & vbCrLf & _
    " - " & intChartObjects & " Eingebettete Diagramme" & vbCrLf)
End Sub