Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

Forumthread: Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

11.04.2024 17:58:08

Alexwin

Hallo,
ich versuche aus einer intelligenten Tabelle eine durch einen Klick ( activecell ) angewählte Zeile auf klick auf einen Button zu kopieren und aus der Tabelle auszuschneiden und auf einem anderen tabellenblatt diese kopierte Zeile in eine intelligente Tabelle einzufügen.
Stichwort . Adressenliste mit archivierfunktion

Ich dachte eigentlich das ich das locker hoín bekomme, leider habe ich mich getäuscht.
Ich habe edliche Versuche durch, irgendwas geht immer falsch.
Bislang habe ich das :
ActiveCell.Select
Application.CutCopyMode = False
Selection.EntireRow.Copy
Sheets("Archiv").Select
Set tbl = tb_Archiv.ListObjects(1)
tbl.ListRows.Add
With tbl_Archiv
tbl.DataBodyRange(zeile, 1).Value = Selection.Insert
End With

Sheets("Datenbank").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

Das markierte Zeilen - kopieren und löschen aus der Tabelle funktioniert, das einfügen in die andere Tabelle leider garnicht.
Weiß jemand Rat ?
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

11.04.2024 19:36:55

ralf_b

kein Rat aber eine Lösung

Sub ListObjectSelectionCopyAndDelete()

    Dim lob1 As ListObject, lob2 As ListObject

    Dim lrowIndx&

    Set lob1 = ActiveSheet.ListObjects(1)

    Set lob2 =  tb_Archiv.ListObjects(1)

        

    If Not Selection.Cells(1).ListObject Is Nothing Then

       If Selection.Cells(1).ListObject = lob1 Then

        With lob2.ListRows.Add

            lrowIndx = Selection.Row - lob1.HeaderRowRange.Row

            lob1.ListRows(lrowIndx).Range.Copy

            .Range.Cells.PasteSpecial (xlPasteAll)

        End With

        lob1.ListRows(lrowIndx).Delete

        lob1.ListRows(lrowIndx).Range.Select

       End If

    End If

   

End Sub

AW: Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

11.04.2024 20:39:26

Alexwin

Hallo ralf_b,

und vielen Dank für deine Hilfe.
Das funktioniert bis auf eine kleine Sache einwandfrei.
Wenn ich das Makro ausführe kommt ein Laufzeitfehler 9 , Index außerhalb des gültigen Bereichs für die Zeile
lob1.ListRows(lrowIndx).Range.Select

Da ich leider nicht verstehe was das genau macht kann ich damit nichts anfangen. Wenn ich diese Zeile ausklammere funktioniert alles trotzdem ohne Probleme.

AW: Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

11.04.2024 22:48:47

ralf_b

die Zeile soll bloss in der Ausgangstabelle eine Zeille markieren. Mehr nicht. lass es weg wenn's dir so reicht.

Beliebteste Forumthreads (12 Monate)

Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

Forumthread: Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

Forumthread: Eintrag aus Tabelle kopieren und in andere Tabelle einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread