VBA kopieren einfügen zwischen 2 Arbeitsblättern

[schauan]

Hallöchen,

Du kannst entweder
- die Variable TBB für mehrere Blätter nutzen. Dann musst Du erst alles für das erste Blatt abarbeiten, dann Set TBB neu zuweisen und dann erst alles für das nächste Blatt abarbeiten

Set TBB = …1
' Tue was mit erstem Blatt
' Tue noch was mit erstem Blatt
Set TBB = …2
' Tue was mit zweitem Blatt


Wenn Du das für eine Schleife nutzen willst, dann z.B mit einem Array oder DU kannst den Namen "berechnen"

arrBlaetter = Array("...1", "...2")
For iCnt = 0 to 1
Set TBB = arrBlaetter(icnt)
'Tue was
Next

oder
For iCnt = 1 to 2
Set TBB = ...Sheets("..." & icnt)
'Tue was
Next