Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige