Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige