VBA: Speichern unter mit Dateinamen aus bestimmter Zelle?

Hallo zusammen,

ich habe mal wieder ein kleines Excelproblem, das eigentlich schon tausendfach in Foren besprochen wurde... ◔_◔

Und zwar will ich eine Datei unter neuem Dateinamen speichern, und der Name steht als Referenz der Einfachheit halber in der Zelle A1 des Tabellenblattes Sheet1.

Aus Gründen höherer Flexibilität des Codes habe ich einen geänderten Zielpfad eingebaut (Documents statt Downloads) und die Datei wird auch unter einem anderen Format (xls statt xlsx) abgespeichert.

In A1 würde z. B. für den Dateititel "Stichprobe 1" stehen, somit sollte die Datei am Ende als "Stichprobe 1.xls" abgespeichert sein.

Der Code ist analog https://docs.microsoft.com/de-de/office/troubleshoot/excel/save-file-to-network-drive, jedoch bekomme ich ab dem Schritt ActiveWorkbook.SaveAs den "Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs" angezeigt:

Sub SaveAsFromCell()
  Dim wb As Workbook: Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Downloads\Vorlage.xlsx")
  Dim strFilename As String: strFilename = ActiveSheet.Range("A1").Text
   
  Worksheets("Sheet1").Activate
  ActiveWorkbook.SaveAs Filename:="C:\Users\Vorname Nachname\Documents\" & strFilename, FileFormat:=".xls"
  wb.Close
End Sub

Wo liegt der Fehler?

Danke & schönes Restwochenende :)

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

20.09.2021, 08:21

Es gibt gar nicht so viele, mögliche Fehlerquellen.

Probier einmal den Dateinamen direkt in den Speichernbefehl zu schreiben. Wenn das funktioniert, dann wird der Wert aus der Zelle nicht richtig ausgelesen. Das könntest du beim Debuggen herausfinden.

Ich greife zum Beispiel auf eine Zelle nie mit .Text zu. Eventuell ist das der Fehler. Versuch es einmal mit .Value.
Desweiteren könnte es helfen, wenn du wb.Worksheets("Sheet1").Activate verwendest, um sicher zu gehen, dass Sheet1 von der richtigen Arbeitsmappe aktiviert wird.
Eventuell bekommst du ein Konvertierungsproblem beim Downgraden von xlsx auf xls.

Abschließend möchte ich erwähnen, dass du dir überlegen könntest, eine Vorlage xltx zu verwenden.

3rr0r404

Fragesteller

20.09.2021, 20:04

Jup, das fehlende wb. war der Fehler. Mal wieder besten Dank!

Suboptimierer

20.09.2021, 21:11

@3rr0r404

Bitteschön!

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

20.09.2021, 14:01

ggf gibt es in der Zelle A1 Sonderzeichen, die in einem Dateipfad nicht erlaubt sind.

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

...zur Frage

Excel-VBA: Andere, geöffnete Excel-Datei speichern?

Hallo zusammen,

Ich denke, eine sehr einfache Frage für VBA-Experten, die ich durch googlen aber nicht lösen kann.

Ich habe 2 verschiedene Excel-Dateien (bsp. '1.xls' & '2.xls').

Beide Dateien sind in Excel geöffnet.

Ich möchte jetzt per Button in '1.xls' die zweite Datei (also '2.xls') speichern können.

Folgendes habe ich getestet, was nicht funktioniert:

Dateinameneu = Range("H6") & "-" & 2.xls.Name
2.xls.SaveAs "C://Dokumente/"&Dateinameneu

Ich kenne das leider nur mit "ActiveWorkbook.Saveas", aber ich will ja die andere Datei speichern.

WICHTIG! 'Saveas' muss es sein, da die Datei '2.xls' wie ihr in dem Codebeispiel sehen könnt, nachher anders heißen soll.

Danke im Voraus!

Dennis

...zur Frage

Excel VBA Blatt als PDF speichern Dateiname?

Moin Leute,

ich habe da ein Programm in Excel erstellt und auch den Code, um das Blatt als .pdf in ein bestimmtes Verzeichnis zu speichern. Problem ist nun, dass ich in dem Code den Dateinamen eingeben muss. Der Speichert das also immer unter dem im Code angegebenen Namen. Ich möchte jetzt, dass der Dateiname so lautet, wie ein bestimmter Zelleninhalt von z.B. J5

Wie kann ich jetzt in meinem Code sagen, dass der Dateiname einem Zelleninhalt entsprechen soll?

Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\Angebot.pdf"

anstatt des Fettgedruckten soll hier der Zelleninhalt von J5 rein

Danke schonmal

...zur Frage

Wie finde ich unter meinen gespeicherten Dokumenten eine bestimmte Datei?

Ich habe Windows10. Unten links auf dem Bildschirm sehe ich eine Lupe und das Wort "Suchen". Ich gebe dort den Dateinamen ein, unter dem die Datei gespeichert ist, doch ich lande im Internet.
Wo und wie finde ich meine Datei, die ich selbst fabriziert habe, bloß blöderweise falsch abgespeichert habe?
Dankbar dem Lotsen, der mir den richtigen Weg zeigt,

der lumbricus

...zur Frage

Excel-Datei meldet Fehler beim Öffnen

Hallo Excel-Spezialisten,
seit kurzem bekomme ich diese Fehlermeldung, wenn ich eine ganz bestimmte Excel-Datei öffne:

Die Datei konnte von Excel geöffnet werden, indem der nicht lesbare Inhalt repariert oder entfernt wurde.  
Reparierte Datensätze: Externer Formelbezug von /xl/externalLinks/externalLink3.xml-Part (Zwischengespeicherte Werte eines externen Formelbezugs).  
Klicken Sie hier, um eine Logdatei der Reparaturen anzuzeigen. (Link: C:\Users\Distel\AppData\Local\Temp\error275200__01.xml)  

<recoveryLog xmlns="<a href="http://schemas.openxmlformats.org/spreadsheetml/2006/main">http://schemas.openxmlformats.org/spreadsheetml/2006/main</a>">
<logFileName>error275200_01.xml</logFileName>
<summary>
Fehler in Datei 'C:\Users\Distel\Documents\Daten\300_Comp\350_Moltkestr\Ausgaben\2014_NK\2014_Schluss-Rg.xlsx'
</summary>
<repairedRecords summary="Die folgenden Reparaturen wurden durchgeführt:_x000d__x000a__x000d__x000a_">
<repairedRecord>
Reparierte Datensätze: Externer Formelbezug von /xl/externalLinks/externalLink3.xml-Part (Zwischengespeicherte Werte eines externen Formelbezugs)
</repairedRecord>
</repairedRecords>
</recoveryLog>

Wie kann ich den Fehler bis auf die verursachende Zelle mit dem externen Bezug einkreisen?
Wie kann ich die Fehlermeldung loswerden, denn nach der Reparatur (durch Excel) und wieder Abspeichern auf dem selben Dateinamen, erscheint beim nächsten Öffnen die Fehlermeldung wieder.

Weitere Infos:
Nach der Reparatur (durch Excel) erscheint bei noch geöffneter Datei oben der Zusatz [Repariert] hinter dem Dateinamen.

Version: Excel 2010 BS: Windows 7

Distel

...zur Frage

Das Tabellenblatt öffnet sich nicht?

Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.


Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim passwort As String
    Dim pfad_zur_datei As String
    Dim wb As Workbook
    Dim bestaetigung As VbMsgBoxResult

    ' Bestätigungsnachricht anzeigen und Passwort abfragen
    bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")

    ' Wenn der Benutzer auf "Ja" klickt
    If bestaetigung = vbYes Then
        passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")

        ' Überprüfe das eingegebene Passwort
        If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
            ' Konstruiere den vollständigen Pfad zur Datei
            pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an

            ' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
            On Error Resume Next
            Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
            On Error GoTo 0

            ' Wenn das Arbeitsblatt existiert, aktiviere es
            If Not ws Is Nothing Then
                ws.Activate
            Else
                MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
                Exit Sub
            End If
        Else
            MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
            Exit Sub
        End If
    Else
        MsgBox "Vorgang abgebrochen.", vbInformation
        Exit Sub
    End If

    ' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert

End Sub

...zur Frage

Mit VBA Dateien in einem Ordner umbenennen?

Ich habe es mithilfe vom Internet und einigen sehr wenigen Kenntnissen meinerseits geschafft, mir einen Code zu schreiben, mit dem ich Dateien (Fotos - also JPG-Dateien) umbenennen kann. Leider habe ich einen Teil des Codes gelöscht und dies gespeichert. Somit funktioniert leider gar nichts mehr und ich bekommen immer den Fehler, dass die Datei nicht gefunden werden kann. Die Meldung bekomme ich immer in der Zeile "Name File.Name As x".

Kann mir bitte jemand helfen?

Hier mein Code:

  Shell "Explorer.exe C:\Users\LANGEMIC.HILTI\Documents\Temp, vbNormalFocus"
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set Folder = FS.GetFolder("C:\Users\LANGEMIC.HILTI\Documents\temp")
  
  Dim x As Single
  x = ActiveCell
  
  For Each File In Folder.Files
    If File.Name Like ".jpg" Then
      ActiveCell.Offset(1, 0).Select
      x = ActiveCell
      Name File.Name As x
      End If
  Next
End Sub

...zur Frage

VBA Datum (dd.mm.yy) aus Zelle umdrehen (yymmdd) und als Name speichern?

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

...zur Frage

VBA - Zwischenteil in Dateinamen ändern?

Hi zusammen,

ich muss folgende Dateinamen per Skriptfür rund 1000 Dateien wie folgt ändern:

Von:

3220022-8006-Amager_25_5_citrus-D-00

In:

3220022_8006_P_1

Den letzten Teil also D-00 in P_1 habe ich bereits hinbekommen. Wie ich jetzt aber alles nach dem ersten Zahlenpaar lösche weiß ich nicht.

Mein bisheriges Skript:

Sub Ordner_Auslesen()

'Bibliothek aktivieren

'Variablen dimensionieren

Dim fso As New FileSystemObject

Dim Pfad As String

Dim Ordner As Files

Dim Datei As File

'Pfad auslesen

Pfad = Tabelle1.Range("A1").Value

'Existiert der Ordner?

If fso.FolderExists(Pfad) Then

'Alle Dateien des Ordners einlesen

Set Ordner = fso.GetFolder(Pfad).Files

'Schleife über alle Dateien des Ordners

For Each Datei In Ordner

'Datei ausgeben

'Debug.Print Datei.Name

'Datei umbenennen

If InStr(Datei.Name, "D-00") <> 0 Then

Datei.Name = Replace(Datei.Name, "D-00", "P_1")

End If

Next Datei

Else

MsgBox "Dieser Ordner existiert nicht."

End If

End Sub

Kann mir jemand helfen?

...zur Frage

Excel VBA: Alle Dateien in einem Ordner nacheinander (sequentiell) aktualisieren?

Hallo liebe Excelprofis,

bislang habe ich es nur hingekriegt, via VBA eine Datei zu öffnen, die dortige Datenabfrage zu aktualisieren und wieder zu schließen:

Sub UpdateExcelFile()
  Dim wb As Workbook
   
  Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Desktop\Ordner der Testabfragen\Testabfrage 1.xlsx")
  ActiveWorkbook.RefreshAll
  Application.CalculateUntilAsyncQueriesDone 'VBA-Code warten lassen, bis die Aktualisierung abgeschlossen ist
  wb.Save
  wb.Close
End Sub

Nun habe ich aber nicht nur eine Datei in dem (definierten) Ordner, sondern mehrere, die genauso wie oben geöffnet, aktualisiert und geschlossen werden sollen. Eine exakte Zahl kann ich nicht nennen, da es fortlaufend immer mehr Dateien werden. Allerdings befinden sich in dem Ordner nur xlsx-Dateien.

Aus Performancegründen möchte ich die Dateien hintereinander und nicht gleichzeitig bearbeitet haben. Der Beispielordner bleibt derselbe (Ordner der Testabfragen). Idealerweise folgt eine Mitteilung zum Ende, wenn die letzte Datei im Ordner wieder geschlossen wurde. Wie würde der Code dafür lauten?

Vielen Dank für eure Unterstützung!

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

VBA Laufzeitfehler 52: Dateipfad nicht gefunden?

Unten seht ihr das ganze sub. Bei der Stelle "Open QuellDatei For Input As #1"(fett) kommt immer der Fehler und ich weiß nicht wieso/was ich dagegen tun kann...

Sub Wetterdaten_Importieren()

Dim QuellDatei As String 'Speicherort der Datei

Dim Zeile As Integer 'Laufvariable

Dim Inhalt As String 'Inhalt der Datei

'Tabellenblatt aktivieren

ThisWorkbook.Worksheets("Wetterdaten").Activate

'Startwert zuweisen

Zeile = 2

'Quelldatei ansprechen

QuellDatei = ThisWorkbook.Path & "C:\Users\oliMa\Downloads\stundenwerte_ST_00183_row.zip\produkt_st_stunde_19810101_20210930_00183.txt"

'Quelldatei öffnen

Open QuellDatei For Input As #1

'Informationen in das Tabellenblatt eintragen

'Schleife bis DatenEnde

Do While Not EOF(1)

'Inhalt wird Zeilenweise eingelesen

Line Input #1, Inhalt

'Wert in das Tabellenblatt eintragen

ActiveSheet.Cells(Zeile, 1) = Inhalt

Zeile = Zeile + 1

Loop

'Quelldatei schließen

Close #1

...zur Frage

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zur Frage

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen