Thema Datum  Von Nutzer Rating
Antwort
19.10.2018 10:08:36 MagS
NotSolved
Blau Letzte 10 Zeilen kopieren
19.10.2018 11:52:25 Flotter Feger
Solved
19.10.2018 13:56:05 MagS
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
19.10.2018 11:52:25		 Views:
469		 Rating:
     
Antwort:
 Nein
Thema:
Letzte 10 Zeilen kopieren

Hallo,

google doch mal nach 'Excel letzte Zeile ermitteln' ... dann kannst du die Range.Address zusammenstellen, die du kopieren willst.

Sub x()
Dim WS1 As Object
Dim WS2 As Object

Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")

With WS2
    aletzte = WS1.Cells(Rows.Count, 1).End(xlUp).Row
    WS1.Rows(aletzte & ":" & aletzte - 9).Copy Destination:=.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
End With
End Sub

Sabina

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
19.10.2018 10:08:36 MagS
NotSolved
Blau Letzte 10 Zeilen kopieren
19.10.2018 11:52:25 Flotter Feger
Solved
19.10.2018 13:56:05 MagS
NotSolved