Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Code als Schleife ausführen?

VBA Code als Schleife ausführen?
18.10.2018 01:38:32
Sascha
Hallo zusammen habe hier einen Code den ich mehrmals in VBA aufgelsietet habe kann ich diesen auch in eine For Next Schleife packen?
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code als Schleife ausführen?
18.10.2018 04:33:08
Matthias
Hallo Sascha
Es gibt 7 Tabellenblätter
Links steht das Blatt Montag(Index=1), rechts daneben Dienstag(Index=2) ... usw.
Ganz rechts als 7.Blatt steht Ablage-2018(Index=7)
Sub Sechs_Mal()
Dim x&
For x = 1 To 6
Worksheets(x).Range("A1:I42").Copy
Sheets("Ablage-2018").Range("A1").Range("A1").Insert Shift:=xlDown
Worksheets(x).Range("D7:I7:D41:I41").ClearContents
Next
End Sub
Gruß Matthias
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige