|
Hallo Karl-Heinz,
konnte jetzt doch früher ran als gedacht....
Ich bekomme den Fehler "Fehler beim Kompilieren Argument ist nicht optional"
Sub Test()
Dim sSheets As String, sFileName As String
Dim bCheck As Boolean
Dim Rout, Dat
Rout = "T:\Qualitätsmanagement\Aufzeichnungen\Änderungen_Sondergenehmigungen\Requests\"
Dat = Range("M1").Value & "_" & Range("M2").Value & "_" & Range("M3").Value
' ÄA_Nummer Art.nr Art.bezeichnung
sFileName = Rout & Dat
sSheets = "Header info,Change description,Task list"
If Tabelle5.CheckBox36.Value Then bCheck = True: sSheets = Sheets & ",TT- Annex"
und das Sheets (blaue Markierung) wird angezeigt. Habe schon (ByVal Sh As Object, ByVal Target As Range) probiert.
Das passiert wenn ich es direkt im Modul ausführe aber auch wenn ich über den Button den Code aufrufe......
Gruß Andy
|