Thema Datum  Von Nutzer Rating
Antwort
17.06.2023 11:36:52 Daniel
NotSolved
17.06.2023 11:43:47 Daniel
NotSolved
18.06.2023 13:34:23 ralf_b
NotSolved
18.06.2023 17:20:57 Gast01287
NotSolved
Rot Fehlermeldung nach VBA-"Speichern unter"
 18.06.2023 18:09:40 Daniel
NotSolved
19.06.2023 10:15:19 Gast01
Solved
30.06.2023 14:29:16 Daniel
NotSolved
19.06.2023 19:28:22 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Daniel		 Datum:
18.06.2023 18:09:40		 Views:
167		 Rating:
     
Antwort:
  Ja
Thema:
Fehlermeldung nach VBA-"Speichern unter"

Vielen Dank für eure Antworten!

@ Ralf:
Inwiefern könnte ein WLAN-Adapter (was ist das?) eine Rolle spielen?

Hier der restliche Code:


Public Sub Grobplanung_saeubern()
 
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim savePath As String
    Dim saveFileName As String
    Dim saveFileDialog As fileDialog
    Set saveFileDialog = Application.fileDialog(msoFileDialogSaveAs)
 
    Set wb = ActiveWorkbook ' Set the variable to the active workbook
    Set ws = wb.Sheets("Teilnehmerliste")
 
    ' Prompt the user to save the file
    With saveFileDialog
        .InitialFileName = savePath & saveFileName & ".xlsx"
        .Title = "Save As"
        '.Filter = "Excel Files (*.xlsx), *.xlsx"
        .ButtonName = "Save"
        .AllowMultiSelect = False
         
        ' Display the Save As dialog box
        If .Show = -1 Then
            ' Get the chosen file name and format
            saveFileName = .SelectedItems(1)
             
            ' Save the workbook with the chosen file name and format
            Application.DisplayAlerts = False ' Disable alerts
            wb.SaveAs saveFileName, FileFormat:=xlWorkbookNormal
            Application.DisplayAlerts = True ' Enable alerts
             
            ' Inform the user that the file has been saved
            MsgBox "File saved successfully.", vbInformation
        Else
            MsgBox "File not saved.", vbInformation
            Exit Sub
        End If
    End With
 
End Sub

@Gast

habe sowohl xls als auch xlsx getestet. Beides führt zum Error.
Das Makro befindet sich in einer anderen Datei.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.06.2023 11:36:52 Daniel
NotSolved
17.06.2023 11:43:47 Daniel
NotSolved
18.06.2023 13:34:23 ralf_b
NotSolved
18.06.2023 17:20:57 Gast01287
NotSolved
Rot Fehlermeldung nach VBA-"Speichern unter"
 18.06.2023 18:09:40 Daniel
NotSolved
19.06.2023 10:15:19 Gast01
Solved
30.06.2023 14:29:16 Daniel
NotSolved
19.06.2023 19:28:22 ralf_b
NotSolved