---

   
Hallo,
ich möchte alle Layouts in einer Zeichnung löschen. Dazu füge ich als erster Schritt ein Layout mit dem Namen "dummy" ein. Der folgende Code bringt eine Fehlermeldung sobald er auf den Namen "Model" kommt. Was mach ich falsch?

Code:

---

        ' Delete all layouts
        '@@@
        Dim TabCount As Long, TabOrder As Long
        Dim TabName As String
       
        ThisDrawing.Layouts.Add "dummy"
            For TabCount = 0 To ThisDrawing.Layouts.Count + 1
                TabName = ThisDrawing.Layouts(TabCount).Name
               
                If TabName <> "Model" Then

                If TabName <> "dummy" Then
                  MsgBox TabName & " ist nicht Model oder dummy " & TabCount
                ThisDrawing.Layouts(TabCount).Delete
                Else
                  MsgBox " ist Model oder dummy " & TabCount
                'Next TabCount
                End If
                End If
            Next TabCount

---

Danke für jede Hilfe!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP