Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
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

Tabellen untereinander kopieren VBA

Tabellen untereinander kopieren VBA
18.01.2019 13:17:25
Alexander
Hallo,
wie sage ich dem Code dass er die Tabellen erst ab Zeile 2 erfasst ?
und keine neue Tabelle erstellt sondern immer die aktuelle überschreibt?
Sub TabellenKopierenUntereinander()
Dim i As Integer
With ActiveWorkbook
.Worksheets.over Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
Set Rng = .Worksheets(i).UsedRange
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
Rng.Copy Destination:=rng1
Next
End With
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen untereinander kopieren VBA
18.01.2019 13:54:07
Daniel
Hi
1. die vorhandenen Inhalte vorher löschen.
Worksheets(1).Cells.Clear
wenn du da schon Überschriften drin stehen hast die nicht mit gelöscht werden sollen, kannst du die ja vom Löschen ausnehmen
Worksheets(1).Usedrange.Offset(1, 0).Clear
2. das kopieren ab Zeile 2 (ohne Überschrift) machst du dann auf die gleiche Weise:
Set Rng = .Worksheets(i).UsedRange.Offset(1, 0)
Gruß Daniel
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige