---

Hallo zusammen, ich habe ein Makro geschrieben, um eine CATIA Tabelle auf ein Zeichnungssheet zu bekommen. Dabei habe ich die Userform Funktion mit VBA genutzt. Ich würde aber gerne die Funktion mit einbringen, dass immer eine Zeile zu der Tabelle hinzugefügt wird, wenn der Button "Zeile hinzufügen" gedrückt wird. Bisher wird dann zwar beim ersten Drücken eine Zeile hinzugefügt, bei nochmaligem Drücken aber nicht mehr.

Viele Grüße,
Leila

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

---

Servus

Willkommen in Forum.
Wie sieht denn dein Code aus? Wie fügst du beim ersten mal eine Zeile hinzu?
Du kennst die Methode AddRow?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd, danke dir, ja, ich kenne die Funktion AddRow, mit der arbeite ich auch hier. Mein Code sieht so aus:

Public Sub Cmd_ZeileHinzufuegen_Click()

    Dim CATIA As Object
    Set CATIA = GetObject(, "CATIA.Application")

    Dim MyDrawingDoc As DrawingDocument
    Set MyDrawingDoc = CATIA.ActiveDocument

    Dim MyDrawingSheets As DrawingSheets
    Set MyDrawingSheets = MyDrawingDoc.Sheets

    Dim MyDrawingSheet As DrawingSheet
    Set MyDrawingSheet = MyDrawingSheets.ActiveSheet

    Dim MyDrawingViews As DrawingViews
    Set MyDrawingViews = MyDrawingSheet.Views

    Dim drwviews As DrawingViews
    Set drwviews = MyDrawingSheet.Views
    drwviews.Item("Background View").Activate
   
    Dim DrwTable As DrawingTable
   
    Set DrwTable = MyDrawingViews.ActiveView.Tables.Add(10, 200, 2, 4, 20, 50)
   
        DrwTable.AddRow (1)
   
 
   
   
End Sub

Das Problem wird sein, dass wenn man den Button ein weiteres Mal drückt, die tabelle nochmal gezeichnet wird und dann die Zeile auch wieder dahinter angehängt wird. Das ganze wird also überschrieben. Gibt es ggf eine Möglichkeit das ganze mit ener Schleife zu lösen?

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

---

Servus

Du musst auswerten ob es schon eine bzw deine Tabelle gibt. zB (Annahme die erste Tabelle ist die gesuchte) (Code ist nicht getestet)

Code:

---

Dim DrwTable As DrawingTable

Set drwviews = MyDrawingSheet.Views
Set MyDrwView = drwviews.item(2)

if MyDrwView.Tables.Count <> 0 then
    Set DrwTable = MyDrwView.Tables.item(1)
    DrwTable.AddRow(0)
else
    Set DrwTable = MyDrwView.Tables.Add(10, 200, 2, 4, 20, 50)
    DrwTable.AddRow(1)
end if

---

Versuch den Code, den dir vermutlich der Makrorekorder geliefert hat, nachzuvollziehen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi Bernd, vielen Dank schonmal, das hilft mir enorm weiter. Jetzt wird allerdings der Tabelle sowohl oben, als auch unten eine Zeile hiinzugefügt, wenn man auf Zeile hinzufügen klickt. Wie kann ich das beheben?

---edit----

Hi Bernd, schon gut, das war ein Fehler meinerseits. Es funktioniert wunderbar, vielen Dank nochmal!

[Diese Nachricht wurde von LM012345 am 08. Jan. 2019 editiert.]

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

---

Servus

Wird bei dir im Code zweimal AddRow ausgeführt?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ganz genau, das war das Problem.

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