Daten aus Tabellenblättern kopieren
13.01.2023 13:58:25
Sambus
Ich habe hier im Forum ein VBA Code gefunden. Den habe ich im Tabellenblatt eingefügt, damit bei Aktivierung alle Daten eingelesen werden.
Hier werden Alle Daten aus allen Tabellenblättern in ein bestimmtes Tabellenblatt nacheinander kopiert.
Das gute an dem Code ist , das alle Tabellenblätter kopiert werden, egal welchen Namen sie haben.
Mein Problem besteht darin, das das kopierte Blatt sich selbst auch noch einmal kopiert, das heißt aus 13000 Datensätzen werden 26000, alles ist doppelt.
Die Daten aus Tabelle 1 - 18 werden in Tabelle "KPS Import" Kopiert und dann kopiert sich das alles noch einmal in "KPS Import".
Meine Frage, wie kann ich den Import von "KPS Import" verhindern?
Für Eure Hilfe wäre ich dankbar, da meine VBA Kenntnisse dafür nicht ausreichen.
Private Sub Worksheet_Activate()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Me.Rows("2:" & Rows.Count).Clear
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A2:" & strLC)
Bereich.Copy Destination:= _
Sheets("KPS IMPORT").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub