---

Hallo zusammen,
ich erstelle eine Tabelle mit unten stehendem code. jetzt möchte ich prüfen ob diese tabelle schon besteht und wenn ja, löschen. kann mir bitte jemand behilflich sein.

Code:

---

Sub CreateTable(n)

    oDrwSheet.Views.Item(1).Activate

'Create a new drawing table
    Set oDrwView = oDrwSheet.Views.ActiveView
    Set oDrwTables = oDrwView.Tables
    Set oDrwTable = oDrwTables.Add(107, 70, n, 9, 5, 20)

'Set the drawing table's name
    oDrwTable.Name = "BOM-List"

End Sub

---

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

---

Moin Coolio75,

ich hab es nicht getestet, aber ich würde es so machen:

--------------------------
Code
--------------------------

Sub CreateTable(n)

    oDrwSheet.Views.Item(1).Activate

'Create a new drawing table
    Set oDrwView = oDrwSheet.Views.ActiveView
    Set oDrwTables = oDrwView.Tables

    for ii=1 to oDrwTables.Count ' eventuell bei 0 anfangen
      if oDrwTables.Item(ii).Name = "BOM-List" then
          oDrwTables.remove(ii)
          exit for
      end if
    next

    Set oDrwTable = oDrwTables.Add(107, 70, n, 9, 5, 20)

'Set the drawing table's name
    oDrwTable.Name = "BOM-List"

End Sub

--------------------------
Code
--------------------------

Wie gesagt nicht getestet!!

Ich hoffe es hilft dir weiter.

Gruß
Proofin

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

---

Vielen Dank, funktioniert genau so wie ich mir das vorgestellt habe!

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