Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
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
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speichern unter und schließen per Macro

speichern unter und schließen per Macro
01.09.2008 16:59:00
lisa
Hallo zusammen
Ich bräuchte mal HLFE von Euch.
In der Recherche habe ich nichts passendes finden können. Vieleicht hat ja schon einmal jemand soetwas ähnliches gehabt.
Hier mein Anliegen.
Ich habe eine Datei geöffnet, die heißt "meine Daten".
Diese Datei möchte ich per Macro unter einen anderen Namen speichern und auch schliessen.
Der Name zum speichern soll aus Celle c1 geholt werden (Das ist ein Datum)
Wenn die Datei mit neuem Namen geschlossen wurde soll meine Ursprungsdatei "meine Daten" wieder Activiert werden.
Wer kann mir hier mit einem Macro weiterhelfen?
Liebe Grüße Lisa.

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

Betreff
Datum
Anwender
Anzeige
AW: speichern unter und schließen per Macro
01.09.2008 17:37:06
Tino
Hallo,
so müsste es gehen.
Modul Modul1 
Option Explicit 
 
Sub Speichern() 
Dim strPfad As String 
Dim strDatei As String 
strPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") 
strDatei = Format(Range("C1"), "dd_mm_yyyy") 
ThisWorkbook.SaveCopyAs strPfad & strDatei 
End Sub


Gruß Tino

Anzeige
AW: speichern unter und schließen per Macro
01.09.2008 17:43:00
lisa
Hallo Tino
Danke für die schnelle Hilfe.
Ich kopiere mir den Code in ein CommandButton. Ist das Richtig? (So jedenfalls habe ich es mir gedacht.)
Wo passe ich den Pfad an?
Willst du mir hier evtl. noch einmal helfen?
Liebe Grüße Lisa
AW: speichern unter und schließen per Macro
01.09.2008 18:11:00
Tino
Hallo,
den Code kannst du in Deinen Button kopieren.
(nur der Bereich zwischen </p><pre>Sub Speichern() und End Sub</pre><p>)
Den Pfad kannst du so anpassen.
Bsp.:
strPfad = "C:\Eigene Dateien\"
Dein anderer Code hat den Nachteil,
Du musst danach die meine Daten wieder öffnen und die neue Datei schließen.
Unnötiger Aufwand
Gruß Tino
Anzeige
AW: speichern unter und schließen per Macro
01.09.2008 18:00:40
lisa
Hallo Toni und die anderen fleißigen Helfer!
Ich habe gerade in der Recherche diesen Code gefunden.
Ich habe ihn ausprobiert und er klappt suuper.
Doch wer könnte mir diesen so umstellen, dass das Blatt unter dem Datum aus c1 gespeichert wird?
Herzlichen Dank für Eure Hilfe und lieben Gruß Lisa

Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:="D:\Eigene Dateien\Hajo\" & ActiveSheet.Name & ".xls"
End Sub


AW: speichern unter und schließen per Macro
01.09.2008 19:02:00
Tino
Hallo,
habe jetzt erst gesehen, dass Dein Code die aktuelle Tabelle kopiert, liegt wohl am Montag.
So müsste es gehen

Sub Blattspeichern()
Dim strDatei As String
strDatei = Format(Range("C1"), "dd_mm_yyyy")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Hajo\" & strDatei & ".xls"
ActiveWorkbook.Close 'schließen
End Sub


Gruß Tino

Anzeige
AW: speichern unter und schließen per Macro
02.09.2008 10:36:09
lisa
Ja, das ist super!
Genau so habe ich es mir vorgestellt herzlichen Dank!
Liebe Grüße Lisa
AW: speichern unter und schließen per Macro
04.09.2008 13:39:00
lisa
Hallo zusammen.
Wie es so ist, arbeitet man mit einer Lösung ergeben sich neue Fragen.
Dank Tino kann ich nun mein Arbeitsblatt unter dem Datum aus Zelle c1 speichern.
Nun habe ich mir eine Userform gebastelt aus der heraus ich die Tabelle wieder öffnen will.
Und zwar möchte ich gern eine Abfrage in die Userform einbauen die das Datum der gesp. Tabelle abfragt welche geöffnet werden soll.
Soweit bin ich bis jetzt:
In mappe1.xls in 'DieseArbeitsmappe' steht:

Private Sub Workbook_Activate()
MsgBox OpenUF
If OpenUF Then
OpenUF = False
UserForm1.Show
End If
End Sub


In mappe1.xls 'UserForm1' steht:


Private Sub CommandButton1_Click()
OpenUF = True
ChDir "P:\Lisa"
Workbooks.Open Filename:="P:\Lisa\Inv2.xls"
'Hier gebe ich einen direkten Pfad vor, ich möchte aber gern eine Abfrage starten
' wie stelle ich das an?
Me.Hide
End Sub


In mappe1.xls 'Modul1' steht:
Public OpenUF As Boolean


Private Sub Schaltfläche1_BeiKlick()
UserForm1.Show
End Sub


Ich bin wirklich für jede Hilfe dankbar!
Gruß Lisa

Anzeige
AW: speichern unter und schließen per Macro
04.09.2008 16:50:03
Tino
Hallo,
wie soll Deine Abfrage den aussehen?
Willst du den Pfad auswählen können wo sich diese Datei befindet oder möchtest Du Datei
die Datei auswählen können?
Gruß Tino

244 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Mit Makro Excel-Datei unter anderem User speichern
Med

Hallo,
suche eine Lösung für folgendes Szenario:
1)Nutzer mit Leseberechtigung öffnet ExcelTabelle.
2)Makro speichert aktuellen Benutzernamen in eine externe Datei.
3)Benutzer macht Änderungen an der Datei.
4)Durch klick auf einen Button in der Excel-Tabelle wird diese mit...
16.02.2009 17:10:00
Thread-ID: 1051227
7 Beiträge
Anzeige
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
Makro Drucken & Speichern unter
massimo17

Hallo,
ich habe folgendes Makro, dass aus Excel eine Word-Datei mit Serienfunktion öffnet.
Wie kann ich automatisieren,
dass diese auch gleich gedruckt wird?
dass diese unter einem Namen i.A. von einer Zelle gespeichert wird?
Private Sub CommandButton2_Click() Dim wApp A...
02.07.2009 11:42:40
Thread-ID: 1085901
4 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
arbeitsmappe öffnen, speichern und schließen
otto

Hi,
ich habe eine Arbeitsmappe mit einer Webabfrage.
Beim starten des PC öffnet sich die Arbeitsmappe(Autostart) und im Workbook.Open Ereignis wird die Abfrage aktualisiert.
Nun möchte ich, dass die Arbeitsmappe nach der Aktualisierung automatisch gespeichert und geschlossen wird. W...
27.08.2009 11:35:34
Thread-ID: 1098953
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

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
1
2
5
6
4
3
4
3
1
2
4
2
5
3
13
3
6
4
6
4
2
11
3
7
4