VBA mehreren Intelligenten Tabelle krerieren und Name geben

Forumthread: VBA mehreren Intelligenten Tabelle krerieren und Name geben

24.08.2024 00:16:35

Pauloolivjunior

Moin zusammen,

Ich versuche seit ein paar Monaten ein Programm auf Arbeit zu optimieren. Aber ich kriege echt Kopfschmerzen mit der Makro Programmierung.

Die Idee ist folgende:

Ich möchte in eine bestimmte Linie, eine neue Hafen Port angeben.
Wenn ich der Knöpfe drücke, ich möchte, dass der Hafen Port Name in der Intelligente Tabelle (PORTS) hinzugefügt wird, dann per Name Sortiert.
Dann, muss oben in die erste leere Zelle, den gleiche Hafen Name hinzufügen und automatisch in eine Intelligente Tabelle umwandeln.
Am besten Falls, bekommt diese neue Intelligente Tabelle auch der gleiche Name.

Ist das überhaupt machbar?

Ich habe meine Probe Datei hinzugefügt und die Makro Funktioniert einigermaßen.

https://www.herber.de/bbs/user/171792.xlsm

Ich wäre echt sehr dankbar, wenn jemand mir helfen könnte.

Vg
Paulo Oliveira

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA mehreren Intelligenten Tabelle krerieren und Name geben

24.08.2024 02:23:16

ralf_b

Sub Hinzufügen()

  

  Dim sname As String

  Dim lstobj As ListObject

  

  sname = Range("D11")

  If sname = "" Then Exit Sub

   

   On Error Resume Next

   Set lstobj = ActiveSheet.ListObjects(sname)

   If Not lstobj Is Nothing Then

     MsgBox "Tabelle existiert schon"

     Exit Sub

     On Error GoTo 0

   End If

  

   Set lstobj = Worksheets("Drop Down").ListObjects("PORTS")

    With lstobj

        .ListRows.Add.Range(1) = sname

        With .Sort

            .Header = xlYes

            .MatchCase = False

            .Orientation = xlTopToBottom

            .SortMethod = xlPinYin

            .Apply

       End With

    End With



     With ActiveSheet.ListObjects

        Set lstobj = .Add(xlSrcRange, Cells(1, Columns.Count).End(xlToLeft).Offset(, 1), , xlYes)

        lstobj.Name = Replace(sname, " ", "_")  'Leerzeichen im Namen verboten

        lstobj.Range(1) = sname                       'Spaltenüberschrift

     End With

        

End Sub

AW: VBA mehreren Intelligenten Tabelle krerieren und Name geben

24.08.2024 06:28:22

Pauloolivjunior

Moin Ralf,

Es funktioniert perfekt. Ihr seid Klasse!!! :D

Ich danke Ihnen so sehr für Ihre Hilfe.

Jetzt kann ich endlich das projekt bis zu ende kriegen.

Ich wünsche Ihnen ein schönes Wochenende.

Beliebteste Forumthreads (12 Monate)

VBA mehreren Intelligenten Tabelle krerieren und Name geben

Forumthread: VBA mehreren Intelligenten Tabelle krerieren und Name geben

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA mehreren Intelligenten Tabelle krerieren und Name geben

Forumthread: VBA mehreren Intelligenten Tabelle krerieren und Name geben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread