Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren (anhängen an Tabelle)

Forumthread: Kopieren (anhängen an Tabelle)

Kopieren (anhängen an Tabelle)
Hubert
Hallo
hab da doch noch eine Frage.
Ich kopiere mit dem Code
Range("H1:M20000").Copy Range("A1")
die betreffenden Daten von Spalte H nach Spalte A
Bei meiner nächsten Kopieraktion kommen wieder Daten nach Spalte A,
müssen aber logischerweise NACH der ALLERLETZTEN belegten Zelle
(es gibt nämlich zwischen den Daten auch einzelne Leerzellen) in Spalte A
eingefügt werden, also angehängt.
Wie kann ich dem Code diese Info mitgeben ? Ich bekomme das nicht hin.
Hoffe auf eure Hilfe.
Gruß, Hubert
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kopieren (anhängen an Tabelle)
21.10.2009 20:52:07
Josef
Hallo Hubert,
Sub mm()
  Dim lngLast As Long
  
  lngLast = IIf(Cells(1, 1) = "", 1, Cells(Rows.Count, 1).End(xlUp).Row + 1)
  
  If lngLast + 20000 > Rows.Count Then
    MsgBox "Kein platz mehr!"
  Else
    Range("H1:M20000").Copy Cells(lngLast, 1)
  End If
  
End Sub

Gruß Sepp

Anzeige
AW: Kopieren (anhängen an Tabelle)
21.10.2009 22:01:21
Hubert
N´Abend Sepp
Das ist es !!!!!
Super, funktioniert top.
Klasse auch, dass gewarnt wird, wenn kein Platz mehr da ist.
Wieder was dazugelernt.
Danke und schönen Abend noch
Hubert
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige