Thema Datum  Von Nutzer Rating
Antwort
03.11.2018 22:40:15 Newbie
NotSolved
Blau VBA: Werte aus letztes beschriebener Zeile in erste leere Zeile kopieren
 03.11.2018 23:02:19 Werner
NotSolved
04.11.2018 21:31:31 Newbie
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
03.11.2018 23:02:19		 Views:
439		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Werte aus letztes beschriebener Zeile in erste leere Zeile kopieren

Hallo,

meinst du so?

Sub Makro1()
Dim loLetzteQuelle As Long, loLetzteZiel As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle1") 'Quellblatt - Name anpassen
    loLetzteQuelle = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range(.Cells(loLetzteQuelle, 1), .Cells(loLetzteQuelle, 26)).Copy
    With Worksheets("Tabelle2") 'Zielblatt - Name anpassen
        loLetzteZiel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
        .Cells(loLetzteZiel, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        loLetzteZiel = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("$A$2:$A$" & loLetzteZiel).RemoveDuplicates Columns:=1, Header:=xlNo
    End With
End With

Application.CutCopyMode = False
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
03.11.2018 22:40:15 Newbie
NotSolved
Blau VBA: Werte aus letztes beschriebener Zeile in erste leere Zeile kopieren
 03.11.2018 23:02:19 Werner
NotSolved
04.11.2018 21:31:31 Newbie
Solved