Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

neue Datei erstellen beim öffnen abfragen

Forumthread: neue Datei erstellen beim öffnen abfragen

neue Datei erstellen beim öffnen abfragen
20.01.2005 05:42:48
Thomas
Kann ich wenn ich eine Excel Datei öffne, eine abfrage einbauen so das die Datei unter einem anderem Dateinamen gespeichert werden muß um mit der Datei Arbeiten zu können ?
z.B ich öffne Datei Muster, nun soll die Datei Muster vorm öffnen der Tabelle mich fragen ob ich eine neue Datei erstellen möchte.
über Antworten und Hilfe wie sich das realisieren lässt würde ich mich freuen
Gruß
Thomas
Anzeige
AW: neue Datei erstellen beim öffnen abfragen
RR
Hallo,
damit sollte es gehen:

Private Sub Workbook_Open()
Dim Dname As String
Dname = InputBox("Speichern als?")
If name <> "" Then
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Dname & ".xls"
End Sub

Den Ordner kannst du bei Bedarf noch anpassen.
Gruß
RR
Anzeige
Sorry...
RR
...nach if muss Dname und nicht name stehen. Kleiner Tippfehler!
RR
AW: neue Datei erstellen beim öffnen abfragen
20.01.2005 08:12:19
Thomas
Danke für die schnelle Antwort und Hilfe.
Wäre es möglich mir noch in kurzen schritten zu erläutern wie ich das ganze erstelle, und wie und wo ich diese Daten dann eintragen muß ?
Das wäre noch einmal super wenn mir eben jemand die Reihenfolge des ganzen Vorgehens schildern könnte.
Vielen Dank im vorraus
Gruß
Thomas
Anzeige
AW: neue Datei erstellen beim öffnen abfragen
RR
1. mit Alt + F11 kommst du zu VB
2. dann im Fenster unter dem aktuellen Projekt ein Doppelclick auf "Diese Arbeitsmappe"
3. den untenstehenden Code in das rechte Fenster reinkopieren

Private Sub Workbook_Open()
Dim Dname As String
Dname = InputBox("Speichern als?")
If Dname <> "" Then
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Dname & ".xls"
end if
End Sub

4. Fertig
Gruß
RR
Anzeige
AW: neue Datei erstellen beim öffnen abfragen
20.01.2005 08:50:55
Thomas
Vielen Dank für die prompte antwort
aber mit diesem Verweiss

Private Sub Workbook_Open()
Dim Dname As String
Dname = InputBox("Speichern als?")
If Dname <> "" Then
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Dname & ".xls"
end if
End Sub

bekomme ich einen Laufzeitfehler 1004 ?
Beim öffnen fragt er mich Speichern als ? nur gebe ich dann einen Namen an dann kommt der Laufzeitfehler 1004.
Kannst Du mir da auch noch einmal weiterhelfen was damit noch ist ?
Gruß
Thomas
Anzeige
AW: neue Datei erstellen beim öffnen abfragen
RR
...wahrscheinlich ist bei dir kein Pfad C:\Eigene Dateien vorhanden. Das solltest du anpassen.
Gruß
RR
AW: neue Datei erstellen beim öffnen abfragen
20.01.2005 09:27:43
Thomas
Ok Danke nun Funktioniert das, musste noch einige Daten mit angeben ( XP )
Nun noch mal eine andere Frage, kann ich die Mappe auch so Schützen das ich erst darin Arbeiten kann wenn ich z.B die Mappe unter Mappe 1 beim Öffnen speicher ? Denn wenn ich bei der Meldung Speichern auf Abbrechen gehe, dann bin ich sofort in der Original Mappe dine. Und dieses Problem muß ich noch umgehen, da ich diesen Fall schon hatte und mir mehrere Tage Arbeit beim rauslöschen der eingegeben Daten gemacht hat.
Wenns dafür auch noch eine Lösung geben sollte wäre ich ebenfalls Dankbar
Gruß
Thomas
Anzeige
AW: neue Datei erstellen beim öffnen abfragen
RR
Das ist noch einfacher:

Private Sub Workbook_Open()
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\Test.xls"
End Sub

Er speichert dann sofort beim Öffnen unter Test.xls ab.
Gruß
RR
AW: neue Datei erstellen beim öffnen abfragen
20.01.2005 09:55:31
Thomas
gibt es denn auch die möglichkeit das so zu machen das ich ihm vorher einen Dateinamen eingebe so wie bei der ersten Maske ? Denn die daten die Gespeichert werden müssen dann wie folgt aussehen :
Mappe : Original
dann z.B Mappe 20.01.05 bei nächsten mal
dann z.B Mappe 21.01.05 usw
und ich muß an die Daten wenn ich eine Mappe wieder öffne dann ohne erst zu speichern öffnen können.
Geht das auch ?
Gruß
Thomas
Anzeige
AW: neue Datei erstellen beim öffnen abfragen
RR
Das sollte dann damit gehen:

Private Sub Workbook_Open()
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\Test" & Format(Date, "dd.mm.yy")& " .xls"
End Sub

RR
Kleine Korrektur!
RR 

Private Sub Workbook_Open()
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\Test " & Format(Date, "dd.mm.yy")& ".xls"
End Sub

Anzeige
AW: neue Datei erstellen beim öffnen abfragen
20.01.2005 10:27:18
Thomas
gibs denn ewentuell die möglich wie bei der ersten Version, das sich ein Fenster öffnet wo ich den Dateinamen zum Speichern eigeben kann ? Denn der ändert sich mit jedem Speichern.
z.B Mappe = Original
dann öffne ich Mappe, und möchte diese als Hallo mit dem Datum Speichern
beim nächsten mal soll die Mappe dann als Toll gespeichert werden.
Desshalb bräuchte ich wenn das geht das mit dem Fenster wie in der ersten Version, um den Dateinamen Manuel dort eintragen zu können.
Gruß
Thomas
Anzeige
Ist es das!?
RR 

Private Sub Workbook_Open()
Dim Dname As String
Dname = InputBox("Speichern als?")
If Dname <> "" Then
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Dname & " " & Format(Date, "dd.mm.yy")& ".xls"
end if
End Sub

AW: Ist es das!?
20.01.2005 10:54:22
Thomas
Jupp das ist es schon fast, wenn mann nun noch den Button mit dem Abbrechen irgendetwas machen könnte ? Denn wenn ich auf Abbrechen gehe und keine Datei eingebe, dann bin ich im Original und das sollte noch umgangen werden wenns geht ?
Gruß
Thomas
Anzeige
Jetzt aber...
RR 

Private Sub Workbook_Open()
Dim Dname As String
Dname = InputBox("Speichern als?")
If Dname <> "" Then
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Dname & " " & Format(Date, "dd.mm.yy")& ".xls"
Else:
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\Ohne Name " & Format(Date, "dd.mm.yy")& ".xls"
end if
End Sub

Gruß
RR
Anzeige
AW: Jetzt aber...
20.01.2005 11:20:09
Thomas
1000 % so hatte ich mir das Vorgestellt !
Vielen Dank für die Hilfe, und Sorry für die Nerverei
Gruß
Thomas
AW: Jetzt aber...
RR
...das hättest du auch gleich haben können;-)
Gruß
RR
AW: Jetzt aber...
20.01.2005 11:39:28
Thomas
Sorry, aber sitze schon die ganze Nacht daran und bin am Basteln. Bis ich mal auf die Idee kam im Netz zu suchen, hät ich früher machen sollen hast Recht. Und nun mit der Müdigkeit habe ich mich mit der Frmelierung etwas schwer getan was ich wollte.
Nichts für ungut und nochmal ein großes Dankeschön.
Nun kann ich mich etwas schlafen legen.
Gruß
Thomas
Anzeige

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
Daten per Makro in Textdatei schreiben
Etzed

Servus,
ich habe folgendes Problem. In einer Excel Tabelle verwalte ich die Mitglieder eines Vereins mit Kontodaten für die Buchungen. Ich brauche jetzt für meine Bank eine Datei in der die Kontodaten der Mitglieder die per Bankeinzug bezahlen enthalten sind.
Diese Daten stehen bei mir...
17.11.2008 13:57:09
Thread-ID: 1025212
4 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
VBA beim anlegen neuer Datei mit kopieren
Stefanglander

Mal wieder ich,
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2() Dim strFile As...
16.08.2009 19:31:38
Thread-ID: 1096268
4 Beiträge
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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