Hey Profis,
Wie kann ich ein worksheet array in eine neue Datei kopieren? Die Tabellenblaetter werden in der Masterdatei ausgewaehlt und sollen dann per Knopfdruck in die neue Datei kopiert werden.
Mit einem worksheet() habe ich es nicht geschafft. Am einfachsten waere wohl einfach ein String aus den Namen der Worksheets zu erzeugen und dann
Worksheets(Array(String)).copy
zu verwenden. Allerdings bereiten mir die Anfuehrungszeichen Probleme, denn der Text muss ja "Tabelle1", "Tabelle2", "Tabelle3", ... sein. Folgender Code funktionier leider nicht:
For Each r In Worksheets("CS").Range("R4:R30")
If r.Value = True Then
s = "" & r.Offset(0, 1).Text & ""
If sa = "" Then
sa = s
Else:
sa = sa & ", " & s
End If
End If
Next r
Hat jemand eine Ahnung was ich falsch mache? Der Grund weshalb ich die Sheets als Array kopieren moechte ist dass das einzelne Kopieren der Sheets viel laenger braucht (habe ich getestet).
Bin dankbar fuer jede Hilfe.
Dan