Supportnet / Forum / Tabellenkalkulation
Zeilen aus mehreren Tabellen in eine neue kopieren
Frage
Hallo zusammen,
Ich habe folgendes Problem,
ich möchte gerne anhand von einem Kriterium was in verschieden Tabellen mehrmals auftaucht immer die passenden Zeilen in eine neue Tabelle kopieren. Am besten direkt untereinander in der neue tabelle.
Dass mir das Vba auf eine Quell-Tabelle macht habe ich hinbekommen s.u.
Aber wenn ich das auf mehrere Quell-Tabellen anwenden will (gleichzeitig) fehlt mir die Idee.
Kann mir jemand helfen.
Danke
Sub CommandButton1_Click()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer
On Error GoTo ERRORHANDLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
Set wks1 = Sheets("Montag")
Set wks2 = Sheets("Neue Tabelle")
myRow = 3 ´Startzeile in neue Tabelle
lastCol = 8 ´Letzte Spalte mit Daten in Montag
For lRow = 1 To lastRow
If wks1.Cells(lRow, 4) = "Kriterium" Then
´Daten kopieren
wks1.Range(wks1.Cells(lRow, 1), wks1.Cells(lRow, lastCol)). _
Copy wks2.Cells(myRow, 2)
myRow = myRow + 1
End If
Next
ERRORHANDLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub