In einer Tabelle habe ich verschiedene Datenbereiche. Ich kenne zwar den Anfang der Bereiche z.B D2,E2,F2 und G2,H2,I2 aber ich weiß nicht, wie weit horizontal die Spalten beschrieben sind. Ich möchte diese Bereiche in einen Spaltenbereich z.B A:C untereinander kopieren, um sie anschließend nach Datum zu sortieren.
Sub WerteVerschieben()
ThisWorkbook.Worksheets("Tabelle1").Activate
Dim bereich As Range
Set bereich = Range("D2:F")
If Sheets("Tabelle1").Range("bereich") <> 0 Then
Sheets("Tabelle1").Range("bereich").Copy _
ThisWorkbook.Sheets("Tabelle2").Range("A1")
End If
End Sub
|