VBA Code als Schleife ausführen?
18.10.2018 01:38:32
Sascha
Ausgangsposition eine Arbeitsmappe mit 7 Tabellen.
Tabelle 1- 6 Montag bis Samstag
Tabelle 7 ist die Ablage.
!Tabelle 1-6 in Ablage kopieren
'
Tabelle1.Activate
Range("A1:I42").Select
Range("A1:I42").Copy
Sheets("Ablage-2018").Range("A1").Range("A1").Insert Shift:=xlDown
den habe ich 6 mal stehen sieht nicht besonders gut aus!
Tabellen Montag bis Samstag löschen!
Sheets("Montag").Select
Range("D7:I7:D41:I41").Select
Selection.ClearContents
steht 6 mal untereinander!
Gruss Sascha