Function DoSheetExist(ByVal wkb2CheckSheet As Workbook, Optional sht2Check As Worksheet, Optional Name2Check As String) As Boolean
' Funktion überprüft ob eine Tabelle in einer Arbeitsmappe
' bereits besteht Parameter Tabelle kann entweder als name
' oder als worksheet objekt übergeben werden
Dim i As Worksheet
Dim HlpStr As String
DoSheetExist = False
If sht2Check Is Nothing Then
HlpStr = Name2Check
Else
HlpStr = sht2Check.Name
End If
For Each i In wkb2CheckSheet.Worksheets
If i.Name = HlpStr Then
DoSheetExist = True
Exit Function '!!!!!!!!!
End If
Next i
End Function
Bei Problemen meld dich.
Gruss
Hansi
Public Sub Test()
Dim diagram As Chart
Dim bolErstellt As Boolean
bolErstellt = False
For Each diagram In ThisWorkbook.Charts
' If diagram.Name = "YXZ" Then Für den Fall, dass du mehere Diagramme einstellst, und nur das Vorhandensein auf ein Diagramm mit Namen "xyz" überprüfen möchtest
bolErstellt = True
' End If
Exit For
Next diagram
If bolErstellt Then
MsgBox ("Diagramm bereits erstellt")
Else
'Hier der Code für das Diagramm
End If
End Sub