Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet in speziellem Ordner speichern

Worksheet in speziellem Ordner speichern
11.02.2023 12:54:45
Lukas
Hallo Liebes Excel-Forum,
ich möchte, dass mein Code das Arbeitsblatt in einem speziellen Ordner speichert.
der Ordner soll den gleichen Namen haben wie die Zelle B5
z.B. wenn meine Zelle den Wert "ABCD" hat soll das Arbeitsblatt in dem Ordner "ABCD" gespeichert werden, wenn die Zelle den Wert "EFGH" hat soll es im Ordner "EFGH" gespeichert werden, usw.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet in speziellem Ordner speichern
11.02.2023 13:19:12
Piet
Hallo
bei diesem kleinen Makro must du noch deinen Pfad in Const angeben, und den Namen der Tabelle wo der neue Name in Zelle B5 steht. Dann sollte es klappen.
mfg Piet
  • Const sPfad = "C:\Opas Dateien\Forum Herber 2023\"
    Sub Macro1()
Dim NeuSht As String
On Error GoTo Fehler
    'Name der neuen Tabelle aus B5 laden
    NeuSht = Worksheets("Tabelle1").Range("B5")
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=sPfad & NeuSht & ".xls"
    Workbooks(NeuSht).Close
Exit Sub
Fehler: MsgBox "Fehler beim kopieren - Nicht kopiert!"
End Sub

    • Anzeige
    AW: Worksheet in speziellem Ordner speichern
    11.02.2023 13:47:41
    Lukas
    Hallo Piet, 
    Sub Schaltfläche3_Klicken()             
Dim NeuSht As String
Const sPfad = "C:\Users\Desktop\Test\"
On Error GoTo Fehler
    NeuSht = Worksheets("Tabelle1").Range("B5")
    Worksheets("Tabelle1").Copy
    ActiveWorkbook.SaveAs filename:=sPfad & NeuSht & ".xlsx"
    Workbooks(NeuSht).Close
    
Exit Sub
Fehler: MsgBox "Fehler beim kopieren - Nicht kopiert!"
End Sub
    Er speichert mir jetzt schonmal das Arbeitsblatt mit dem Namen aus B5 in dem Ordner "Test"
    Jetzt soll er noch das Arbeitsblatt mit dem Namen aus Zelle B5 in dem Ordner speichern der genauso wie die Zelle B5 heißt
    Anzeige
    AW: Worksheet in speziellem Ordner speichern
    12.02.2023 00:49:15
    Piet
    Hallo Lukas
    freut mich das der erste Teil klappt, bin aber etwas verwirrt wegen der Zelle B5 ?
    Das ist gleichzeitig der Name der neuen Mappe UND ein Ordnername? Bist du sicher?
    Falls ja, wie ist der genaue Laufwerk Pfad für den neuen Ordner? Oder ist es eine andere Zelle?
    mfg Piet
    AW: Worksheet in speziellem Ordner speichern
    12.02.2023 07:37:04
    Lukas
    Ja der Ordner soll wie die Zelle B5 heißen
    Der Laufwerkpfad ändert sich mit der Zelle B5
    Dim NeuSht As String
    Const sPfad = "C:\Users\Desktop\Test\"
    On Error GoTo Fehler
    NeuSht = Worksheets("Tabelle1").Range("B5") & "_" & Worksheets("Tabelle1").Range("E5")
    Worksheets("Tabelle1").Copy
    ActiveWorkbook.SaveAs filename:=sPfad & NeuSht & ".xlsx"
    Workbooks(NeuSht).Close

    Exit Sub
    Fehler: MsgBox "Fehler beim kopieren - Nicht kopiert!"
    Bsp.:
    Laufwerk Pfad: C:\Users\Desktop\Test\ABCD\
    Zelle B5 hat den Wert: ABCD
    Zelle E5 hat den Wert: 1234
    Arbeitsblatt heißt "Tabelle1"
    Filename: ABCD_1234
    Wenn ich jetzt ausführe, soll die Datei im Ordner "ABCD" gespeichert werden
    Laufwerk Pfad: C:\Users\Desktop\Test\EFGH\
    Zelle B5 hat den Wert: EFGH
    Zelle E5 hat den Wert: 1234
    Arbeitsblatt heißt "Tabelle1"
    Filename: EFGH_1234
    Wenn ich jetzt ausführe, soll die Datei im Ordner "EFGH" gespeichert werden
    Anzeige
    AW: Worksheet in speziellem Ordner speichern
    11.02.2023 13:20:15
    Oraculix
    Hier ein Beispiel. Wobei das Laufwerk D angepasst werden muss!
    Private Sub CommandButton1_Click()
    Dim folderName As String
    folderName = Range("B5").Value
    If Dir("D:\" & folderName, vbDirectory) = "" Then
        MkDir "D:\" & folderName
    End If
    ThisWorkbook.SaveAs Filename:="D:\" & folderName & "\" & ThisWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
    Gruß
    Oraculix
    AW: Worksheet in speziellem Ordner speichern
    12.02.2023 21:33:50
    Piet
    Hallo Lukas
    in dem Falle müsste der Code so aussehen (ungeprüft) Freut mich wenn er auf Anhieb klappt.
    mfg Pet
  • Const sPfad = "C:\Users\Desktop\Test\"
    Sub Tabelle_neu_speichern()
Dim NeuSht As String, Ordner As String, Datei As String
On Error GoTo Fehler
Datei = ThisWorkbook.Worksheets("Tabelle1").Range("E5")
Ordner = ThisWorkbook.Worksheets("Tabelle1").Range("B5")
NeuSht = Ordner & "_" & Datei & ".xlsx"
Worksheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:=sPfad & Ordner & "\" & NeuSht
Workbooks(NeuSht).Close
Exit Sub
Fehler: MsgBox "Fehler beim kopieren - Nicht kopiert!"
End Sub

    • Anzeige
    AW: Worksheet in speziellem Ordner speichern
    12.02.2023 21:57:18
    Lukas
    Hallo Piet,
    der Code funktioniert genau so wie ich es mir vorgestellt habe.
    Vielen Dank!!
    Grüße
    Lukas

    80 Forumthreads zu ähnlichen Themen

    VBA Abspeichern in variablen Ordner
    Danomat

    Hi,
    folgendes Problem
    In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
    , Quality:=xlQualityStandard, IncludeDo...
    13.03.2009 12:37:34
    Thread-ID: 1059831
    10 Beiträge
    Anzeige
    Makro zum Speichern in Ordnerstruktur
    andreas

    Hallo zusammen,
    ich habe hier ein Makro aufgezeichnet dass ich mit Parametern ergänzen muss, benötige aber Hilfe
    ActiveWorkbook.SaveAs Filename:= _
    "V:\129001-130000\129601-129700\129601\129601-1\Kopie von Checkliste RT-Angebot2.xls" _
    , FileFormat:=xlNormal, Password:="", Write...
    18.02.2010 12:08:53
    Thread-ID: 1139478
    10 Beiträge
    Mails automatisch in einen Ordner speichern
    René

    Hallo,
    hat eventuell jemand einen Tipp für mich wie ich erreichen kann das eine empfangene Mail automatisch in einen Ordner gespeichert wird. Also von bekommt jemand eine Exceldatei gesendet und darin soll ein Button sein der ein Makro enthält das dafür sorgt das die Mail bei mir automatis...
    23.11.2010 21:58:19
    Thread-ID: 1188419
    2 Beiträge
    Anzeige
    Button: Speichern in Ordner
    Chris

    Hallo zusammen,
    kann mir jemand bei Folgendem helfen:
    Ich möchte einem Button einen Code hinterlegen, sodass ich per Knopfdruck die gesamte Excel-Arbeitsmappe mit allen Sheets in einem anderen Ordner mit anderem Dateinamen ablege.
    Bsp.:
    Zielort: X:\Dateien\Plan\
    Dateiname: "...
    15.04.2011 10:19:07
    Thread-ID: 1210537
    8 Beiträge
    Blätter speichern in Ordnern
    Michael

    Hallo EXcellenzen,
    einiges hab ich mir schon zusammengesucht aber nun muss ich passen oder ich denk falsch.
    Excel 2007, VBA na ja, kann es anpassen aber nicht alles selber schreiben.
    In einer Mappe im Arbeitsblatt "Namen" stehen
    in Zelle A2 bis Ax Abkürzungen wie "AmM"
    in Ze...
    31.05.2011 14:33:16
    Thread-ID: 1216866
    8 Beiträge
    Eine Datei in viele Ordner speichern
    maho

    Guten Morgen!
    Wie schon im Titel erwähnt, würde ich gerne eine bestimmte Exceldatei mit wenig Aufand(Makro?) in viele unterschiedliche Ordner abspeichern, die sich alle in einem übergeordneten Ordner befinden.
    Hab' leider nichts Konkretes beim Suchen gefunden.
    Danke für eure Mühe...
    08.09.2011 08:28:07
    Thread-ID: 1229012
    2 Beiträge
    Mail automatisch in Ordner verschieben
    Ralf_Frankfurt

    Hallo,
    suche eine Lösung, die die gesendete Mail nicht in den Ordner 'send items', sondern in dem Ordner 'Produktion ab 1.9.2010' ablegt.
    Vielen Dank und freundliche Grüße
    Ralf Sub Mail_AM_SettlementsAktiengeschaefte() Dim olapp As Object Set olapp = CreateObject("Outlook.Applicati...
    03.11.2011 19:55:33
    Thread-ID: 1236459
    2 Beiträge
    Datei in neu erstelltem Ordner speichern VBA
    Volker

    Guten Morgen!
    Ich möchte aus einer Arbeitsmappe ein einzelnes Blatt als neue Arbeitsmappe speichern.
    Dieses Blatt wurde mittels Comboboxen / Userform gefüllt.
    z.b. Combobox 1 = Einheit CB2 = Teileinheit CB3 = Name
    in einer weiteren CB stelle ich dann den Pfad aus den CB Wert...
    15.04.2012 09:20:02
    Thread-ID: 1259342
    7 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    CommandButton

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    9
    5
    9
    1
    4
    7
    7
    1
    1
    6
    9
    4
    2
    1
    2
    6
    5
    2
    1
    5
    5
    2
    8
    6
    4