Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro - Datei schließen und neu öffnen

Makro - Datei schließen und neu öffnen
12.11.2012 15:10:28
Chrissy
Hallo,
ich bräuchte dringend ein Makro für folgendes Problem:
(Habe eine komplexe Version davon schon mal gepostet, aber keine Antwort erhalten - daher nochmal ein vereinfachter Versuch)
Ich habe ein Excel-Formular, in das ich Werte in die Zellen B1, B2, B3 eingebe.
Nun brauche ich ein Makro, das mir dieses Formular unter dem Namen "B1 - B2 - B3.xls" in einem festen Pfad (c:/Formulare/) abspeichert.
Anschließend brauche ich danach wieder ein neues leeres Formular, in das ich die nächsten Einträge vornehmen kann.
Das leere Formular ist abgelegt unter dem Pfad c:/Formulare/Masterformular/master.xls
Kann mir bitte jemand helfen? Würde mich sehr freuen!
Liebe Grüße,
Chrissy

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Datei schließen und neu öffnen
12.11.2012 15:27:53
Rudi
Hallo,
als Ansatz: 
Sub speichern()
Dim strDatei As String
Const strPfad As String = "c:\Formulare\"
With Sheets("Formular")
strDatei = .[B1] & "-" & .[B2] & "-" & .[B3] & ".xls"
.Copy
End With
With ActiveWorkbook
.SaveAs strPfad & strDatei
.Close
End With
Sheets("Formular").Range("B1:B3").ClearContents
End Sub

Gruß
Rudi

AW: Makro - Datei schließen und neu öffnen
13.11.2012 12:17:37
Chrissy
Vielen Dank.
Gibt es auch eine Möglichkeit, tatsächlich die Master-Datei neu aufzumachen statt die Inhalte zu löschen?
Von der Logik vielleicht so (damit nicht das Problem aufkommt, dass Excel erst geschlossen ist und dann noch eine Datei aufmachen soll):
1. Speichern der Datei
2. Öffnen der Masterdatei
3. Schließen der gespeicherten Datei
Es geht darum, dass neben den Feldern B1, B2, B3 auch noch ein Screenshot in das Formular hineinkopiert wird. Der wird aber nicht gelöscht, wenn ich einzelne Zellen lösche.
Viele liebe Grüße,
Chrissy

Anzeige
AW: Makro - Datei schließen und neu öffnen
13.11.2012 12:34:19
Rudi
Hallo,
dann lösch es eben auch.
Sheets("Formular").shapes(1).delete
Ich bin davon ausgegangen, dass der Code in der Masterdatei ist.
Gruß
Rudi

AW: Makro - Datei schließen und neu öffnen
13.11.2012 19:03:40
Chrissy
Vielen Dank.
Leider bekomme ich es nicht hin.
Ich habe das Problem hier etwas vereinfacht, daher funktioniert das Löschen nicht.
Hier nochmal alle Details, vielleicht hilft Euch das weiter:
Ich habe im Excel ein Formular mit insgesamt 3 Seiten.
Auf der ersten Seite stehen in den Felder B1, B2, B3 die Dinge, die letztlich abgespeichert den Dateinamen ergeben sollen.
In vielen weiteren Zellen werden noch weitere Texte hineingeschrieben. Es werden auch bis zu 5 Screenshots hineinkopiert.
Das Makro muss das Folgende können.
1. Abspeichern des geöffneten Formulars (Dateiname eben B1-B2-B3.xls)
2. Schließen der gespeicherten Datei
3. Öffnen der Masterdatei (also dann wieder eines neuen leeren Formulars)
Gerne auch 2. und 3. vertauscht, ganz egal.
Am Ende soll einfach nur wieder ein leeres Formular da sein, in das ich erneut Einträge vornehmen kann.
Versteht ihr, wie ich das meine?
Viele liebe Grüße,
Chrissy

Anzeige
AW: Makro - Datei schließen und neu öffnen
14.11.2012 13:04:29
Rudi
Hallo, 
Sub speichern()
Dim strDatei As String
Const strPfad As String = "c:\Formulare\"
With Sheets("Formular")
strDatei = .[B1] & "-" & .[B2] & "-" & .[B3] & ".xls"
End With
ActiveWorkbook.SaveAs strPfad & strDatei
Workbooks.Open strPfad & "Masterformular\Master.xls"
ThisWorkbook.Close False
End Sub

Gruß
Rudi

AW: Makro - Datei schließen und neu öffnen
15.11.2012 16:08:35
Chrissy
Hallo,
ich habe keine Ahnung, was ich vorher falsch gemacht habe, aber es funktioniert!!!! :-)
Vielen lieben Dank! Super!

317 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Anzeige

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