Tabellen mit vba nebeneinander anstatt untereinander anordnen?
Hallo,
ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.
Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.
Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?
Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A1:" & strLC)
Bereich.Copy Destination:= _
Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Offset(1,0) zeigt auf eine Zeile tiefer.
Offset(0,1) würde auf eine Spalte weiter rechts zeigen.
.End(xlUp) sucht das untere Ende eines Bereichs.
.End(xlToLeft) sucht das rechte Ende eines Bereichs.
Woher ich das weiß:Berufserfahrung – Programmierer
Und wie würde ich das dann ändern?
Ich konnte es jetzt nur verschieben.
Ich würde die Tabellen gerne trennen.