Thema Datum  Von Nutzer Rating
Antwort
17.01.2018 16:22:23 Patrick W.
NotSolved
17.01.2018 21:52:06 Werner
NotSolved
17.01.2018 22:25:20 Patrick W.
NotSolved
Blau Verschieben von Teilen einer markierten Zeile in eine andere Tabelle
 17.01.2018 23:01:01 Werner
*****
NotSolved
17.01.2018 23:17:10 Patrick W.
***
NotSolved
18.01.2018 08:41:30 Patrick W.
NotSolved
18.01.2018 12:22:07 Werner
NotSolved
18.01.2018 13:37:28 Patrick W.
NotSolved
18.01.2018 16:10:43 Werner
*****
Solved
18.01.2018 17:24:22 Patrick W.
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
17.01.2018 23:01:01		 Views:
619		 Rating:
     
Antwort:
  Ja
Thema:
Verschieben von Teilen einer markierten Zeile in eine andere Tabelle

Hallo Patrick,

z.B. so:

Public Sub Test()
Dim loZeile As Long, loLetzte As Long
Dim wsQuelle As Worksheet, wsZiel As Worksheet

Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1") 'Blattname anpassen
Set wsZiel = ThisWorkbook.Worksheets("Tabelle2") 'Blattname anpassen

loZeile = Selection.Row
loLetzte = wsZiel.Cells(wsZiel.Rows.Count, 3).End(xlUp).Row + 1

Range(Cells(loZeile, 2), Cells(loZeile, 3)).Copy wsZiel.Cells(loLetzte, 3)
Rows(loZeile).Delete

Set wsQuelle = Nothing: Set wsZiel = Nothing
End Sub

 

Gruß Werner

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
17.01.2018 16:22:23 Patrick W.
NotSolved
17.01.2018 21:52:06 Werner
NotSolved
17.01.2018 22:25:20 Patrick W.
NotSolved
Blau Verschieben von Teilen einer markierten Zeile in eine andere Tabelle
 17.01.2018 23:01:01 Werner
*****
NotSolved
17.01.2018 23:17:10 Patrick W.
***
NotSolved
18.01.2018 08:41:30 Patrick W.
NotSolved
18.01.2018 12:22:07 Werner
NotSolved
18.01.2018 13:37:28 Patrick W.
NotSolved
18.01.2018 16:10:43 Werner
*****
Solved
18.01.2018 17:24:22 Patrick W.
NotSolved