Blattnr ansprechen
27.08.2003 10:45:15
LotharP
ich habe folgendes Problem, ich möchte in einem Array statt die Blattnamen die Blattreihenfolge mitgeben.
Ich selektiere aus einer Arbeitsmappe bestimmte Tabellen und schreibe diese in eine neue Arbeitsmappe. Die sind entsprechend der Aussendienststruktur.
Mein source sieht so aus:
Public
Sub NEUARBMAP()
Dim actbook As String
Dim Pfad As String
Dim wattis As String
actbook = ActiveWorkbook.name
Pfad = ActiveWorkbook.FullName
laenge = Len(actbook)
Pfad = Left(Pfad, Len(Pfad) - Len(actbook))
Sheets(Array(Sheets(1), Sheets(3))).Copy '-> Lfzeitfehler 13 Typen unvertr.
wattis = "VLS" 'VLS
Call saveweg(Pfad, wattis)
Workbooks(actbook).Activate
Pfad = ActiveWorkbook.FullName
Pfad = Left(Pfad, Len(Pfad) - Len(actbook))
Sheets(Array(Sheets(1), Sheets(2))).Copy
wattis = "KAMS" 'kams
Call saveweg(Pfad, wattis)
Workbooks(actbook).Activate
Pfad = ActiveWorkbook.FullName
Pfad = Left(Pfad, Len(Pfad) - Len(actbook))
Sheets(Array(Sheets(1), Sheets(4))).Copy
wattis = "VDS" 'Nkams
Call saveweg(Pfad, wattis)
Workbooks(actbook).Activate
End Sub
Bei sheets array usw bekomm ich LZF 13. Ursprünglich standen da in Hochkomma die Tabellennamen, das hatte geklappt. Was ist verkehrt?
Gruß
LotharP
Anzeige