VBA alle Sheets auswählen und Werte kopieren
29.06.2017 12:18:40
Max
mein Wunsch ist es in einer Arbeitsmappe mit unbekannter Anzahl an Worksheets mit wechselnden Namen (schließt Array aus) alle Worksheets auszuwählen, um dann aus dem "Start" Worksheet(so nenne ich das) Werte in alle ausgewählten Worksheets zu kopieren.
Mein Ansatz:
Sub Kopieren()
Dim ws As Worksheet
Worksheets("Start").Columns("A:N").Copy
For Each ws In ActiveWorkbook.Worksheets
ws.Columns("A:A").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next
Application.CutCopyMode = False
'Dient der Formatierung des Druckbereichs für alle Worksheets
For i = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(i).PageSetup.PrintArea = "$A$1:$N$61"
Next
End Sub
Es tritt kein Fehler auf, jedoch wir auch nichts in die anderen Sheets kopiert.
Wo liegt der Fehler? Kann wer helfen?
Vielen Dank und Grüße
Max