Excel VBA: Define UsedRange: 1. Zeile weglassen
09.03.2016 13:20:19
Kilian
Ich habe eine Excel mit verschiedenen Tabllen. Diese Tabellen haben alle die gleiche Spaltenstruktur mit denselben Überschriften. Die Zeilenanzahl wird vermutlich unterschiedlich sein. Tabelle 1 ist leer, Tabelle2,3,4,5 usw. enthalten die Daten, die einfach nur untereinander in Tabelle 1 kopiert werden sollen. Das habe ich mit Hilfe von Google soweit hin bekommen. Mein Problem jetzt: Das Makro kopiert mir auch die jeweiligen Überschriften aus Zeile 1 mit in Tabelle 1. Das Makro soll aber immer erst in der 2. Zeile starten.
Sub TabellenKopierenUntereinander()
Dim i As Integer With ActiveWorkbook
For i = 2 To .Worksheets.Count
Set Rng = .Worksheets(i).UsedRange
Set rng1 = Worksheets(1).Cells(Rows.Count, "B").End(xlUp)(2)
Rng.Copy Destination:=rng1
Next
End With
End Sub
Alternativ hätte ich noch einen anderen Code gefunden, bei dem es perfekt funktioniert nur nimmt er mir immer die letzte Spalte nicht mit. Sprich, wenn ich 7 Spalten habe, kopiert mir nur 6, wenn ich 20 habe nur 19, etc.
Sub BCopy()
Dim i As Long
Dim sName As String
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'alle Blätter kopieren und in neues einfügen
For i = 2 To Worksheets.Count
Sheets(i).Select
Sheets(i).Range(Cells(2, 1), Cells(Sheets(i).UsedRange.Rows.Count, Sheets(i).UsedRange. _
Columns.Count)).Copy
Sheets(1).Paste Destination:=Sheets(1).Cells(Sheets(1).UsedRange.Rows.Count + 1, 1)
Next i
'Zwischenablage leeren
Application.CutCopyMode = False
'Gesamtblatt anzeigen
Sheets(1).Select
'optimale Anpassung der Spalten
Columns.AutoFit
'Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
End Sub
Beste Grüße
Kilian