Die unten angegebene Function soll innerhalb eines offenen Excel-Workbooks prüfen, ob eines der bestehenden Worksheets oder Charts bereits den Namen des Arguments NName & Zusatz aufweist. In Folge hieraus wird ein Boolean zurückgegeben. Die Schliefe läuft auch bis plötzlich nach einigen Durchläufen ein Laufzeitfehler Typen unverträglich in der Zeile Next Sh entsteht . Kann das daran liegen, dass Sh as Worksheets deklariert ist ? Wie kann ich das Problem umgehen ?
Danke für Eure Mühe
Function AufGleichChartNamePruef(NName As String, Optional Zusatz As String) As Boolean
'Prüft ob schon ein Blatt mit dem Namen des Arguments existent ist
Dim Sh As Worksheet
AufGleichChartNamePruef = False
NName = NName & Zusatz
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name = NName Then
AufGleichChartNamePruef = True
Exit For
End If
Next Sh
End Function