Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet in speziellem Ordner speichern

Forumthread: 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.
Anzeige

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
    Anzeige
    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
    Anzeige
    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
    ;

    Forumthreads zu verwandten 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
    Verknüpfung in Ordner speichern
    Günter

    Hallo Zusammen,
    ich habe wieder ein Thema.
    Wie kann ich per Makro von der gerade geöffnet Datei eine Verknüpfung in einem bestimmen Verzeichnis erstellen.
    Wie kann ich später per Makro diese Verknüpfung wieder löschen.
    Danke für EUre Hilfe.
    Gruß Günter
    16.01.2010 14:38:11
    Thread-ID: 1130457
    6 Beiträge
    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
    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
    Anzeige
    Betreff von Emails in einem Ordner auslesen
    Emails

    Hallo an alle,
    ich möchte gerne den Betreff, Empfänger, Absender und das Absendedatum von Emails aus einem bestimmten Ordner (nicht der Posteingang) in Outlook auslesen und in eine Tabelle schreiben.
    Über die Suche im Internet habe ich dazu einige Beispiele gefunden, jedoch immer nur...
    22.08.2012 16:47:49
    Thread-ID: 1276053
    10 Beiträge
    xlt-Datei speichern unter in bestimmten Ordner
    MikeS

    Hallo Leute,ich habe eine xlt-Mustervorlage.Beim drücken auf das Speichersymbol geht ja immer ein
    Speichern unter-Dialog auf.Wie kann ich erreichen, daß nach drücken der Schaltfläche
    ein bestimmter Dateiordner geöffnet wird?Ciao MikeS
    13.06.2002 15:10:21
    Thread-ID: 128457
    5 Beiträge
    Tabelle in Ordner und nicht in Mappe speichern
    Wolfgang

    Hallo,
    den nachfolgenden Code nutze ich in einer Excel-Mappe und er bewirkt, dass ich ein generiertes Tabellenblatt innerhalb der Arbeitsmappe gespeichert bekomme. Wie müßte ich den Code verändern, wenn ich das Tabellenblatt innerhalb des Ordners, in dem sich auch die Arbeitsmappe befindet,...
    28.08.2013 16:45:54
    Thread-ID: 1328672
    3 Beiträge
    Öffnen und Speichern von Mails per Excelmakro
    Markus St

    Hallo,vielleicht kann mir jemand helfen. Ich möchte per Excel-Makro ein Mail in Outlook öffnen und anschließend die Anlage x zu dem Mail speichern.
    Nun ist diese Anlage eine Textdatei namens b.txt. Sie enthält reinen ASCII-Text. Ich wollte dort bestimmte Zeilen in diesem ASCII-Text ( Nach de...
    03.07.2002 11:20:13
    Thread-ID: 133353
    2 Beiträge
    Emails abspeichern in Qutlook per VBA
    Lars

    Hallo,
    anbei der Code zum Abspeichern von Emails.
    https://www.herber.de/bbs/user/101183.txt
    Dieser funktionier super.
    Danke für die Hilfe.
    Ist es möglich, den Code so zu erweitern, dass nachdem man die Emails ausgewählt hat, die gespeichert werden sollen, immer einzelen nac...
    02.11.2015 11:20:36
    Thread-ID: 1455836
    6 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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