ich möchte aus allen Tabellenblätter in meiner Datei in einer Übersicht zusammen kopieren. Immer fängt der Bereich bei A6 un endet bei T50.
Hat jemand eine Idee? Wie ich das in VB umsetzen kann?
Sub Daten_kopieren()
Dim i As Integer, lz1 As Long
With Worksheets("Übersicht")
'zuerst alte Übersicht löschen
lz1 = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A6:T" & Rows.Count).Clear
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "nicht kopieren" Then GoTo nx
lz1 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If lz1
Option Explicit
Sub Unit()
Dim LZ As Long, LS As Long
Dim arr() As Variant
Dim Wsh As Worksheet
Dim V As Variant
Dim L As Long, S As Long
Dim sp As Long, z As Long
ThisWorkbook.Worksheets("Übersicht").Cells(6, 1).Resize(Rows.Count - 5, 20).ClearContents
LZ = 45 * ThisWorkbook.Worksheets.Count - 1
LS = 20
ReDim arr(1 To LZ, 1 To LS)
For Each Wsh In ThisWorkbook.Worksheets
If Wsh.Name "Übersicht" Then
V = Wsh.Cells(6, 1).Resize(45, 20).Value
For L = 1 To UBound(V, 1)
z = z + 1
For S = 1 To UBound(V, 2)
sp = sp + 1
If sp = LS + 1 Then sp = 1
arr(z, sp) = V(L, S)
Next
Next
End If
Next
ThisWorkbook.Worksheets("Übersicht").Cells(6, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
Den Namen von Übersicht bitte ggf. anpassen.