kann mir bitte jemand helfen. Ich muss einen Zellbereich in mehrere Tabellen gleichzeitig einfügen. Alle Zieltabellen sind gleich aufgebaut. Per Hand würde ich das mit dem Gruppenmodus lösen, wie mache ich das aber im Code?
Wenn es um nur eine Tabelle geht würde ich folgenden Code verwenden:
wDB.Range(Cells(ILZ, 3), Cells(ILZ, eS - 1)).Copy Destination:=wIN.Cells(nZIn, 7)
wDB und wIN sind Worksheets,
ILZ und nZIN sind long-Variablen mit Zahlen
Gibt es eine Möglichkeit mehrere Destinations zu verwenden z.B. mit Arrays ohne über select zu arbeiten?
So geht es leider nicht:
wDB.Range(Cells(ILZ, 3), Cells(ILZ, eS - 1)).Copy Destination:=Sheets(Array(wIN.Name, wBR.Name, wSB.Name, wCA.Name)).Cells(nZIn, 7)
habt Ihr eine Idee?
Eine Schleife würde ich gerne vermeiden.
Vielen Dank!
Liebe Grüße
Claudia