Guten Morgen,
der foglende Skriptabschnitt kopiert aus einer Ursprungstabelle Daten nach einem Kriterium in zwei unterscheidliche (vorab geöffnete) WBs.
Technisch klappt die Sache einwandfrei, ist jedoch sehr langsam.
Hat jemand eine besser laufende Syntax für mich, welche im Idealfall auch mehrere WBs per Variable anprechen kann?
Dim intLetzteZ As Long
Dim intErsteZ As Long
Dim intWrite As Long
intLetzteZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
intErsteZ = 2
For intErsteZ = intErsteZ To intLetzteZ
WBDatenVonHier.Activate
Sheets("Data").Activate
Rows(intErsteZ).Copy
If Cells(intErsteZ, 1).Value = "WB1" Then
WB1.Activate
intWrite = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("a" & intWrite).PasteSpecial Paste:=xlPasteValues
Range("a" & intWrite).PasteSpecial Paste:=xlPasteFormats
Else
WB2.Activate
intWrite = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("a" & intWrite).PasteSpecial Paste:=xlPasteValues
Range("a" & intWrite).PasteSpecial Paste:=xlPasteFormats
End If
Next intErsteZ
MFG
|