Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern mit Namen aus Tabellenblatt und Endung

Forumthread: Speichern mit Namen aus Tabellenblatt und Endung

Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 12:16:16
Thomas
Hallo

ich bin einfach zu dusselig ;-)

Ich habe schon einige Code's ausprobiert, aber keines macht das, was ich will.

Ich möchte aus dem Tabellenblatt "Auswertung" aus der Zelle B1 den Namen vorgeben und dann als .xltm speichern.
Ohne einen Pfad vorzugeben, der soll dann manuell ausgewählt werden.

Wie sieht der Code dazu aus? Irgendwie hänge ich da gerade fest.

Gruß
Thomas
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 12:39:22
onur
Willst du nicht zuerst eine Baustelle erfolgreich beenden, devor du eine Neue anfängst ?
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 12:46:44
Thomas
Hi Onur

Eigentlich ist es das letzte, was noch muss.

Die Thematik mit der Userform habe ich in den Griff bekommen, jetzt nur noch das speichern der Datei und es sollte fertig sein.

Gruß Thomas
Anzeige
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 13:03:42
Thomas
@Onur, Jetzt bin ich verwirrt.....
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 13:05:20
onur
Hier wird gezeigt, wie man einen Ordner auswählen lassen kann. Dateinamen hast du ja schon.
Anzeige
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 13:56:07
Thomas
Ich habe jetzt mal dieses genommen 
Sub Schaltfläche2_Klicken()

Dim dlg As Object

Dim pfad As String

Dim datei As String

pfad = "C:"

datei = ActiveSheet.Range("B1")

Set dlg = Application.FileDialog(msoFileDialogSaveAs)

With dlg

.InitialFileName = pfad & datei & ".xlsm"

.Show

End With

If dlg > False Then dlg.Execute

End Sub


Ich habe nur das Problem, das nicht die Endung .xlsm nimmt, sondern .xlsx

Was habe ich falsch gemacht?
Anzeige
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 13:57:13
Thomas
Ich habe jetzt mal dieses genommen 

Sub Schaltfläche2_Klicken()

Dim dlg As Object

Dim pfad As String

Dim datei As String

pfad = "C:"

datei = ActiveSheet.Range("B1")

Set dlg = Application.FileDialog(msoFileDialogSaveAs)

With dlg

.InitialFileName = pfad & datei & ".xlsm"

.Show

End With

If dlg > False Then dlg.Execute

End Sub



Ich habe nur das Problem, das nicht die Endung .xlsm nimmt, sondern .xlsx

Was habe ich falsch gemacht?
Anzeige
AW: Speichern mit Namen aus Tabellenblatt und Endung
18.10.2023 20:56:15
Yal
Hallo Thomas,

mit dem FileDialogSaveAs- Dialog wählst Du, wenn die Dateiname selbst nicht geändert wird, den Pfad, unter dessen die Datei gespeichert werden soll, aber das Speichern selbst solltest Du nicht das Dialog machen lassen, sondern es selber in der Hand nehmen:
siehe https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.saveas 

Sub Schaltfläche2_Klicken()

    

    With Application.FileDialog(msoFileDialogSaveAs)

        .InitialFileName = "C:" & ActiveSheet.Range("B1").Value  

        .Show

        If .SelectedItems.Count > 0 Then ThisWorkbook.SaveAs Replace(.SelectedItems(1), ".xlsx", ""), FileFormat:=xlOpenXMLWorkbookMacroEnabled 'da stört der ".xlsx"

    End With

End Sub


Alternativ wäre den FileDialog auf xlsm umzupolen. Dann könntest Du einen .Execute machen.
Siehe https://learn.microsoft.com/de-de/office/vba/api/excel.application.filedialog
und https://learn.microsoft.com/de-de/office/vba/api/office.filedialog.filterindex

"*.xlsm" soll FilterIndex 2 sein: 
Sub Schaltfläche2_Klicken()

    

    With Application.FileDialog(msoFileDialogSaveAs)

        .InitialFileName = "C:" & ActiveSheet.Range("B1").Value & ".xlsm"

        .FilterIndex = 2

        .Show

        If .SelectedItems.Count > 0 Then .Execute

    End With

End Sub



VG
Yal
Anzeige
AW: Speichern mit Namen aus Tabellenblatt und Endung
19.10.2023 07:57:50
Tommy
Super, YAL.
Danke schön, jetzt hat es gklappt.
;

Forumthreads zu verwandten Themen

Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
Anzeige
Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Tabellenblattname über Formel
Timo

Hallo,
kann man über eine Formel den Tabellenblattnamen auslesen?
z.B so in Zelle A1 ="Monat " & Formel
Gruß Timo
06.03.2009 11:11:56
Thread-ID: 1057211
5 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Dateinamen aus .rar auslesen
Jochen

Hallo zusammen,
in den letzten Tagen habe ich mein Archiv an Anleitungen etc. mal gepackt und zwar alphabetisch (also ein Archiv "A.rar", eins "B.rar" ...) Was ich vorher nicht bedacht hatte: Ohne Inhaltsverzeichnis, weiß ich nicht, ob ich z.B. die ISBN-FAQ unter "T" Telefon oder unter "I"...
18.04.2009 11:53:30
Thread-ID: 1069463
3 Beiträge
Aus mehreren Tabellenblättern Daten auslesen
Manuel

Hallo und einen schönen Sonntag,
ich habe eine Arbeitsmappe, mit 152 Tabellenblättern, hier soll mir das Makro als Referenz die Zeile B nehmen und soll dort jeweils die Zeilen welche "irgendwas" enthalten in einen neue Datei kopieren.
Das derzeitige Script, erstellt die neue Datei und K...
17.05.2009 14:37:22
Thread-ID: 1075699
2 Beiträge
Anzeige
kommentare aus tabellenblatt auslesen
Jonatan

Hallo,
wie lese ich per VBA alle Kommentare aus einem Range aus?
Falls keine Kommentare vorhanden sind, soll nichts zurückgegeben werden.
Vielen Dank für eure Hilfe.
Gruß Jonatan
10.07.2009 11:01:05
Thread-ID: 1087610
5 Beiträge
Name des Reiters auslesen für Weiterbearbeitung
F.

Hallo zusammen
Wie kann ich den Names einer Tabelle für eine stets variable Anzahl automatisch auslesen lassen und
z.B. für die Weiterverarbeitung in die Zelle A1 des jeweiligen Reiters schreiben?
Mit dieser Formel kann ich es manuell, macht aber wenig Spass bei mehr als 200 Reiter....
27.01.2010 15:05:36
Thread-ID: 1133458
8 Beiträge
Dateinamen+Pfade auslesen und in neues Tabellenbl.
Helmut

hallo liebe vba'ler,
ich habe schon im online-archiv nachgesehen, aber nichts genau passendes für mein "problem" gefunden, obwohl das thema oft behandelt wurde.
ich möchte aus einem verzeichnis, auch aus einer partition (also z.b. komplettes laufwerk c:), alle dateien mit einer bestimmt...
16.03.2010 10:20:46
Thread-ID: 1146119
13 Beiträge
Zeiten aus Tabelle auslesen
Michael

Guten Abend Zusammen,
ich bekomme folgende Aufgabenstellung, nur mit Formeln, einfach nicht gelöst:
In einer dreispaltigen Tabelle (von, bis und Tätigkeit) erfasse ich im Viertelstundentakt, ob Dienst oder Pause war.
Wie kann ich nun für eine zweite Tabelle alle Dienstzeiten mit Anf...
01.12.2010 21:19:25
Thread-ID: 1189652
2 Beiträge
Namensänderung Tabellenblätter
Claudia

Hallo guten Abend alle zusammen,
ich habe hier in der Fa. ein großes Programm mit vielen ausgeblendeten und eingeblendeten Tabellenblättern. Die Arbeitsmappen sind mittels VBA geschützt, Passwort bekannt.
Jetzt mein Problem: Da man bei einer geschützen Arbeitsmappe die Blätter nicht umb...
18.01.2011 06:57:15
Thread-ID: 1196047
2 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