In Modul 'Testmodul':
'Deklaration der Variablen
Option Explicit
Public Drucksammlung As Variant
Public VariableBlätter As Variant
In UserForm 'UFDrucken':
Private Sub cmdWeiter_Click()
Call ArrayFüllen_chkMaschinenkarte
IfMe.optDruckenMitPDF.Value = True Then
Call PDFundDrucken
End If
End Sub
Also wird zuerst diese Sub aufgerufen, die im Modul 'Testmodul' liegt:
Public Sub ArrayFüllen_chkMaschinenkarte
...
VariableBlätter bekommt Strings zugeordnet, die angehakt werden!
Dann:
Anzahl = Len(VariableBlätter) 'Bestimmung der Länge des Strings
VariableBlätter = Left(VariableBlätter, Anzahl - 1) 'Löschen des letzten Semikolons
Drucksammlung = Split(VariableBlätter, ";")
hier müsste doch jetzt der Variant-Variable Drucksammlung ein Array übergeben werden, wenn ich dich richtig verstanden habe oder?
Da meckert er auch noch nicht.
Jetzt würde die Sub 'PDFundDrucken' aufgerufen:
--> Das klappt auch alles, bis zu dem Punkt, wo ich Sheets anwende
Sheets(Drucksammlung).Copy
'hier müssen eigentlich noch NUR die über die Checkboxes angewählten Optionen hinein, wie?
Sheets(Drucksammlung).Copy --> hier schießt er mir einen Laufzeitfehler '9': Index außerhalb des gültigen Bereichs
I don't even know what to do...
|