Liebe/-r Experte/-in,
Ich habe nun einen Programmcode, mit welchen ich einen „Speichern-Unter Dialog“ aufrufe. Jedoch soll nicht die komplette Exceldatei abgespeicher werden, sondern nur ein Bereich!
Hier meine Gedanken dazu:
Private Sub CommandButton3_Click()
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = „C:\Temp“
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
„.xls“, FileFilter:=„Microsoft Excel-Arbeitsmappe (*.xls), *.xls“)
Select Case strDateiname
Case False
Exit Sub
Case Else
ThisWorkbook.Worksheets(„Ablehnung“).Range(„A1:G48“).SaveAs Filename:=strDateiname
End Select
End Sub
Bei dieser Zeile wirft er mir den Fehler( ThisWorkbook.Worksheets(„Ablehnung“).Range(„A1:G48“).SaveAs ), weil ich vermute, dass ich ihm den Bereich nicht so einfach mitgeben kann…
Bitte um einen Ratschlag, wie ich dies anderer schreiben kann, damit es funktioniert.
Ihr seid die Besten 
Grüße und danke im Vorraus