ich habe gleich zwei Probleme auf einmal!
Ich habe eine Datei, in der verschiedene Blätter enthalten sind. Beim öffnen der Datei erscheint eine Eingabemaske, worauf ich Kontrollkästchen eingefügt habe. Wenn diese Kontrollkästchen angeklickt werden und später auf "Weiter" geklickt wird, sollen die angeklickten Sheets kopiert werden und in ein Verzeichnis gespeichert werden!
Mein Makro sieht bis jetzt folgendermaßen aus:
Private Sub cmdWeiter_Click()
Dim wkbBasis As Workbook
Set wkbBasis = ActiveWorkbook
If CheckBox1 = Click Then
Sheets(Array("Abscheidgrad.Deckbl.SoftHS")).Copy
End If
If CheckBox2 = Click Then
Sheets(Array("Berstdruck")).Copy
End If
ActiveWorkbook.SaveAs (ComboBox1.Value & "_" & txtKunde & "_" & wkbBasis.Worksheets("Data Sheet").Cells(3, 6).Value & ".xls"
End Sub
Mein Problem:
1. Der Befehl mit dem Anklicken stimmt nicht!
2. Beim Abspeichern der Datei kann ich die neue Datei bis jetzt
nur noch in einen von mir gewünschten Pfad speichern! Gibt es
eine Möglichkeit, wo ich aussuchen kann wohin ich das
Programm speichern kann!? (So wie z.B. in Word unter
"Save as" speichere)
Danke für Eure Hilfe im Voraus
Chris