Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich speichern mit Dateiname aus Zelle?

Forumthread: Bereich speichern mit Dateiname aus Zelle?

Bereich speichern mit Dateiname aus Zelle?
31.01.2019 09:05:46
molch75
Hallo zusammen,
ich möchte aus einer Tabelle die Zellen A1 - A10 in eine neue Datei speichern und zwar nur die Werte - keine Formeln. Der Dateiname für die neue Datei soll aus der Zelle B1 ausgelesen werden bzw. im Speichern unter Fenster als Vorschlag stehen.
Ist so etwas möglich?
Gruß
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 09:22:27
Werner
Hallo,
Antwort ja.
Lege dir in deiner Mappe ein Tabellenblatt mit dem Namen Temp an. Dorthin werden die Daten kopiert (als Werte) und das Temp-Blatt dann als Datei, mit dem Namen aus B1 gespeichert.
Da ich nicht weiß in welchen Pfad du die Datei speichern willst habe ich einfach mal den Pfad der Datei genommen, aus der heraus du speichern willst. 
Sub Test()
Dim strPfad As String, strDatei As String
Application.ScreenUpdating = False
'Blattname anpassen
With Worksheets("Tabelle1")
strPfad = ThisWorkbook.Path
strDatei = .Range("B1")
.Range("A1:A10").Copy
Worksheets("Temp").Cells.ClearContents
Worksheets("Temp").Range("A1").PasteSpecial Paste:=xlPasteValues
End With
Worksheets("Temp").Copy
ActiveWorkbook.SaveAs strPfad & "\" & strDatei & ".xlsx"
ActiveWorkbook.Close
End Sub
Gruß Werner
Anzeige
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 10:43:53
molch75
Danke für die schnelle Antwort, leider bekomme ich aber einen Laufzeitfehler 1004 - Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Das ganze würde ich gerne unter C:\Datei\ speichern.
Gruß
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 10:58:26
Torsten
Hallo,
habs gerade gecheckt. Weiss nicht warum, aber das 
Worksheets("Temp").Cells.ClearContents

verursacht das Problem hier. Wenn du diese Zeile auskommentierst oder loeschst, dann klappt es.
Gruss Torsten
Anzeige
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 11:04:47
Torsten
So ich weiss noch immer nicht warum das so ist, habe jetzt aber mal das loeschen im Worksheet("Temp") weiter oben im Code untergebracht und jetzt funktionierts. 
Sub Test1()
Dim strPfad As String, strDatei As String
Application.ScreenUpdating = False
Worksheets("Temp").Cells.ClearContents
'Blattname anpassen
With Worksheets("Tabelle1")
strPfad = ThisWorkbook.Path
strDatei = .Range("B1")
.Range("A1:A10").Copy
With Worksheets("Temp")
.Range("A1").PasteSpecial xlPasteValues
End With
End With
Worksheets("Temp").Copy
ActiveWorkbook.SaveAs strPfad & "\" & strDatei & ".xlsx"
ActiveWorkbook.Close
End Sub

Anzeige
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 11:49:21
Daniel
Wie Werner schreibt - die Zwischenablage wurde bei ClearContents wieder geleert und es konnte dann nichts eingefügt werden.
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 12:58:29
molch75
1000 DANK, funktioniert super :D
Gruß
gerne und danke fuer die Rueckmeldung
31.01.2019 13:03:41
Torsten
Anzeige
AW: Bereich speichern mit Dateiname aus Zelle?
31.01.2019 10:59:56
Werner
Hallo,
mein Fehler, Reihenfolge stimmt nicht, keine Daten im Speicher. 
Sub Test()
Dim strPfad As String, strDatei As String
strPfad = "C:\Datei\"
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
strDatei = .Range("B1")
Worksheets("Temp").Cells.ClearContents
.Range("A1:A10").Copy
Worksheets("Temp").Range("A1").PasteSpecial Paste:=xlPasteValues
End With
Worksheets("Temp").Copy
ActiveWorkbook.SaveAs strPfad & strDatei & ".xlsx"
ActiveWorkbook.Close
End Sub
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Anzeige
Datei Speichern - Name aus 3 Zellen
Michael

Hallo,
ich speichere eine Datei unter einem Namen ab, welcher in Zelle B3 des Blattes steht.
name = "S:\Temp\LAUF_P" & ActiveSheet.Range("B3").Value & ".txt"
nun möchte ich aber noch die Zellen A7 und B7 mit einbinden, so dass der name letztlich so aussieht:
LAUF_PB3/A7/...
28.11.2008 11:22:21
Thread-ID: 1028629
3 Beiträge
Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige