Schleifer über Wertekopie
26.02.2019 15:33:45
Werber
ich versuche mich hier bereits seit einiger Zeit in die für mich neue VBA Thematik einzulesen, da ich folgendes Problem habe:
Ich möchte eine Kopie der Daten aus einer Datei erstellen. Dafür hatte ich bereits folgenden Code gefunden, der wunderbar funktioniert
With ThisWorkbook ' Arbeitsmappe mit Code
' Schleife über alle Tabellen der Datei
For InI = .Worksheets.Count To 1 Step -1
' kopieren Tabelle
.Worksheets(InI).Cells.Copy
' Einfügen ohne Formeln
With .Worksheets(InI).Range("A1")
.PasteSpecial Paste:=xlPasteValues ' Werte übertragen
End With
Next InI
Allerdings benötige ich eine weitere Schleife, da in Sheet2 mehrere Sachen berechnet werden. Ich muss in Feld A1 eine 1 eintragen, dann soll eine Kopie erstellt werden, dann in Feld A1 eine 2, wieder Kopie des Sheets usw. bis ich an ein definiertes Ende komme (z.B. 15). Am Ende habe ich eine Dateikopie mit 15 Sheets.
Hat einer von euch spontan eine Idee?
Vielen Dank vorab für die Hilfe!