Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von einer Tabelle in eine andere kopieren
 28.11.2022 08:42:07 Gast96782
NotSolved
29.11.2022 07:33:07 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Gast96782		 Datum:
28.11.2022 08:42:07		 Views:
355		 Rating:
     
Antwort:
  Ja
Thema:
Daten von einer Tabelle in eine andere kopieren

Guten Morgen,

ich hänge gerade etwas dabei, Daten von einer Tabelle in eine andere zu kopieren. Es soll eine Zelle in einer intelligenten Tabelle angewählt werden, dann soll das Makro ausgeführt werden und die gesamte zeile der intelligenten Tabelle soll dann in eine andere intelligente Tabelle auf einem anderen tabellenblatt kopiert werden. Die Daten sind im tb_Datenbank in Listobject(1) und sollen ins tb_Warenkorb in das dortige Listobject(1). kopiert werden. Eigentlich hört es sich nicht kompliziert an aber ich glaube ich scheitere daran, die Listobjects richtig anzusprechen :(.

Könnte mir hier evtl. jemand auf die Sprünge helfen? 

Danke im voraus :)

Anbei noch mein Code der nicht funktioniert

Sub Makro1()
'Variablen definieren
    Dim Datenbank As ListObject
    Dim Warenkorb As Worksheet
    Dim Zeile As Long
    
'Variablen setzen
    Set Datenbank = tb_Datenbank.ListObjects(1)
    Set Warenkorb = tb_Warenkorb
    Zeile = Warenkorb.ListObjects(1).DataBodyRange.Rows.Count
    
'Zeile bei Warenkorb hinzufügen
    Warenkorb.ListObjects(1).ListRows.Add
'Auswahl kopieren
    ActiveCell.EntireRow.Select
    'Selection.Copy
'Zeile in Warenkorb hinzufügen
    Warenkorb.ListObjects(1).DataBodyRange(Zeile).Value = Selection.Value

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von einer Tabelle in eine andere kopieren
 28.11.2022 08:42:07 Gast96782
NotSolved
29.11.2022 07:33:07 Flotter Feger
NotSolved