Note: The other languages of the website are Google-translated. Back to English

Wie speichere ich eine Excel-Datei mit einem Zellenwert?

Haben Sie jemals daran gedacht, die Excel-Datei basierend auf einem Zelleninhalt zu speichern, wenn Sie eine Arbeitsmappe verwenden? Sie haben beispielsweise "Verkaufspreis" in Zelle A1 und möchten die Arbeitsmappe als Name "Verkaufspreis" speichern. Natürlich können Sie den Namen in das Dialogfeld Speichern unter eingeben und dann speichern. Dies ist jedoch eine ineffiziente Methode für Ihren Arbeitsaufwand. Heute werde ich über einen schnellen Trick sprechen, um es zu lösen.

Speichern Sie die Excel-Datei mit einem bestimmten Zellenwert mithilfe von VBA-Code

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blau rechte Blase Speichern Sie die Excel-Datei mit einem bestimmten Zellenwert mithilfe von VBA-Code

Der folgende VBA-Code kann Ihnen dabei helfen, Ihre Arbeitsmappe mit einem bestimmten Zellenwert zu speichern. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Speichern Sie die Excel-Datei mit einem bestimmten Zellenwert

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Und dann drücken F5 Schlüssel zum Ausführen des Codes, und Ihre Arbeitsmappe wurde als Zelleninhalt von Zelle A1 benannt. Siehe Screenshot:

doc-save-with-cell-value-1

Hinweise:

1. Sie können einen beliebigen Zellenwert als Dateinamen angeben, indem Sie im obigen Code lediglich A1 in eine andere Zellreferenz ändern.

2. Ihre aktive Arbeitsmappe wird im Ordner von gespeichert C: \ Benutzer \ dt \ Desktop \ Meine Informationen \ (Der letzte Schrägstrich muss beibehalten werden, wenn Sie Ihren Standort anstelle des Speicherorts einfügen.) Sie können den Pfad nach Bedarf ändern.


In Verbindung stehende Artikel:

Wie speichere ich eine Datei mit Datum und Uhrzeit in Excel?

Wie wird der Dateipfad in der Titelleiste oder Symbolleiste in Excel angezeigt?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (33)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Modul speichert nicht in .XlsX ; denke, es hat etwas mit Zeile 7 zu tun;; ".xls", Dateiformat:=xlNormal; Wie kann ich auch ändern, um den Wert aus 3 verschiedenen verketteten Zellen zu übernehmen? zum Beispiel: Vorname , Nachname , Datum; in Zeile 6 des Codes?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dim Dateiname als String
Dateiname1 als Zeichenfolge dimmen
Dateiname2 als Zeichenfolge dimmen

Pfad = "C:\Benutzer\dt\Desktop\meine Informationen\"
Dateiname = Bereich ("A1")
Dateiname1 = Bereich ("A2")
Dateiname2 = Bereich ("A3")
ActiveWorkbook.SaveAs Dateiname:=Pfad & Dateiname & "-" & Dateiname1 & "-" & Dateiname2 ".xls", FileFormat:=xlNormal
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Chris. Sie können es in einer separaten Zelle verketten und dann auf diese Zelle als Ihren Dateinamenswert verweisen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Mine speichert nur den Pfad und den Dateinamen. Ich möchte nur den Dateinamen, auf den von der Zelle verwiesen wird, nur speichern. Kannst du mir bitte helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist ziemlich cool ... aber es scheint einen Fehler zu geben, bei dem ich nicht sicher bin, wie ich ihn beheben soll. Ich verwende dies in einer Vorlage mit Makros. Ich öffne die Vorlage, nehme Änderungen/Aktualisierungen vor, drücke F5, um das Makro auszuführen ... und ... ein Dialogfeld "Gehe zu" erscheint und erwartet, dass ich eine "Referenz" eintippe. Wenn ich jedoch ALT drücke F11 drücken und DANN F5 drücken, die neue .xls-Datei wird wie erwartet gespeichert. Muss ich immer das Visual Basic-Modul öffnen, um diese "Speicher"-Prozedur auszuführen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Vorlage, die nicht überschrieben werden soll, sodass der Benutzer die Datei speichern muss, die nach dem Datum benannt ist, das in eines der Felder eingegeben wurde. Ich möchte nicht, dass der Benutzer Tools öffnen und dann Makros auswählen / ausführen muss. Sie könnten genauso gut den Dateinamen eingeben.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie können Ihrem Dateinamen in der Zelle =NOW() als Parameter hinzufügen, bevor Sie ihn in das Makro extrahieren (und auch eine Standardschaltfläche in der Ecke der Seite platzieren, damit der Mitarbeiter keine Tools öffnen muss
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ihr seid Lebensretter. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich muss als CSV-Datei speichern. Wie würde ich dies ändern, um es als CSV-Datei zu speichern? Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Path & filename & ".xls ", FileFormat:=xlNormal End Sub Vielen Dank im Voraus für Ihre Hilfe!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich glaube, ich habe hier etwas falsch gemacht ...

Es gibt mir einen Fehler in der Zeile Sheets("shitname").Select

Wahrscheinlich habe ich etwas falsch gemacht, als ich den "Scheißnamen" wie die Zelle K10 benannt habe

Ich möchte das Blatt in ein anderes Blatt ändern, das genau wie die Zelle K10 heißt


' gicsel Makro
'
' Tastaturkürzel: Strg+Umschalt+C
'
Auswahl.Kopieren
Sheets("debagat").Auswählen
Zeilen ("8:8").Auswählen
ActiveSheet.Paste
Dim-Pfad als String
Pfad = "C:\cgxml\"
Dim Dateiname als String
Dateiname = Bereich ("A8")
Schwacher Shitname als String
Shitname = Bereich ("K10")
Sheets("Shitname").Auswählen
Application.CutCopyMode = Falsch
ActiveWorkbook.SaveAs filename:=Pfad & Dateiname & ".xml", FileFormat:=xltxt, CreateBackup:=False
Blätter ("TOTAL").Auswählen
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das funktioniert großartig ... Danke, aber ich muss es als PDF speichern ... Irgendwelche Gedanken?

Vielen Dank

Chris
Dieser Kommentar wurde vom Moderator auf der Website minimiert
wie oben, aber ersetzen Sie ActiveWorkbook.SaveAs durch: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filename.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Wahr
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für dein Feedback, hat mir sehr geholfen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Was soll ich hinzufügen, wenn ich das aktive Arbeitsblatt speichern möchte, aber den Zellenwert von Blatt 1 verwende?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Bitte helfen Sie ... Ich habe es geschafft, alles zu tun. Aber es speichert die Dokumente in Eigene Dateien statt auf dem angegebenen Server ...



Private Sub-Befehlsschaltfläche1_Click ()
Dim-Pfad als String
Dateiname1 als Zeichenfolge dimmen
Dateiname2 als Zeichenfolge dimmen
Dateiname3 als Zeichenfolge dimmen
Dateiname4 als Zeichenfolge dimmen
Dateiname5 als Zeichenfolge dimmen
Pfad = "J:\Protection Services\Dokumente\Booysendal Security"
Dateiname1 = Bereich ("A2")
Dateiname2 = Bereich ("B2")
Dateiname3 = Bereich ("C2")
Dateiname4 = Bereich ("D2")
Dateiname5 = Bereich ("E2")
ActiveWorkbook.SaveAs Dateiname:=Dateiname1 & "-" & Dateiname2 & "-" & Dateiname3 & "-" & Dateiname4 & "-" & Dateiname5 & ".xls", Dateiformat:=xlNormal
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Fügen Sie nach der Sicherheit und vor dem Anführungszeichen einen umgekehrten Schrägstrich ein... ...Sicherheit\"
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn Sie nur den Dateinamen definieren möchten, aber die Möglichkeit haben, den Dateipfad bei jedem Speichern auszuwählen?

Sie können auch mehrere Zellen für den Dateinamen angeben. Die Zellen werden auch zusammengeführt.

Speichern Sie jedes Mal in einem anderen Dateipfad

Verwenden Sie mehrere Zellen für den Dateinamen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ok, also habe ich das mit einer In-Sheet-Schaltfläche gut zum Laufen gebracht. Jetzt möchte ich, dass es nach dem ersten Speichern unter einfach normal speichert. Ist das möglich? Verwenden Sie dieselbe Schaltfläche zum Speichern?
Danke Bruce
Dieser Kommentar wurde vom Moderator auf der Website minimiert
So erstellen Sie ein Makro, um mehrere Blätter mit ihren Zellwerten als Dateinamen zu speichern
Vielen Dank,
rajiv
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hallo alle!

Wie kann man sich wiederholende Eingaben in denselben Zellen in anderen Zellen mit einem Makro speichern?

In Blatt1 gebe ich Daten in A1, B1, C1 n-mal an einem Tag ein. In Blatt2 muss ich alle diese Aufzeichnungen speichern, in A2, B2, C2, A3, B3, C3 usw. Tnx!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Freunde,
Ich habe ein Problem und würde mich freuen, wenn mir jemand helfen könnte
Ich habe eine Datei auf Laufwerk "F" und Ordner "ABS" - mein Dateiname ist "Listdata".
In einer Excel-Datei auf meinem Desktop möchte ich, dass Zellen (4,4) Daten aus "ABS" -Blatt (1) und Zelle (2,2) abrufen.
Der untenstehende Code
Untermakro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
aber es funktioniert nicht richtig
Danke Freunde
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich versuche, diesen Code zu verwenden, aber wenn ich versuche, ihn auszuführen, erhalte ich einen Laufzeitfehler 1004 und er hebt Zeile 7 als ungültig hervor: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Wie kann ich das lösen? Ich benutze Office 365
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi. Ich bin sehr aufgeregt, dass es funktionieren könnte, aber für mich steht darin "BASIC-Laufzeitfehler. Sob-Prozedur oder Funktionsprozedur nicht definiert." und Pfeil, der Linie 6 anzeigt. Was soll ich tun?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Steuerschaltfläche zum Speichern als PDF mit einem bestimmten Namen an einem bestimmten Ort, die bereits funktioniert, aber ich möchte den Code ändern, da der Dateiname der Name des aktiven Blatts plus der Wert einer bestimmten Zelle aus einem anderen Blatt ist. Wie mache ich das? Das habe ich zum Speichern als PDF:


Private Sub-Befehlsschaltfläche1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Typ:=xlTypePDF, _
Dateiname:="\\U:\Dokumente\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
kann mir bitte jemand mit einer Lösung helfen, ich habe es geschafft, die Ausgabe korrekt zu bekommen, wenn die Zelle nicht leer ist

Private Sub-Saveas ()

Dim-Pfad als Zeichenfolge

Dateiname1 als Zeichenfolge dimmen



Pfad = "C:\Benutzer\Compwork\"



Dateiname1 = Pfad & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = Falsch

ActiveWorkbook.Saveals Dateiname1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Close



End Sub



Mein Problem ist jedoch, dass ich einen Dateinamen speichern möchte, ohne ein Leerzeichen zu hinterlassen, wenn der Zellenwert beispielsweise NULL ist. Wenn der G6-Wert leer ist, möchte ich die Ausgabe "G4-H7 VTError".
Gibt es eine Möglichkeit, dies anzugehen?


Vielen Dank.
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL