Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro soll Exceldatei unter anderem Namen speichern
zurück: Zellen Dropdown-Auswahlliste mittels VBA aufrufen weiter: Userform nur für die eine Datei anwenden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bernd_1977
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jun 2010, 14:27
Rufname: Bernd

Makro soll Exceldatei unter anderem Namen speichern - Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

Guten Tag zusammen

Ich habe eine Frage an euch Experten, in der Hoffnung dass mir jemand weiter helfen kann. Meine Makrokenntnisse sind zugegebner massen recht begrenzt.
Ich per Makro eine geöffnete Datei --- im selben Ordner ---- unter einem anderen vordefinierten Namen, z.b. --- xyz.xlsm --- speichern. (Nach dem Speichern werden einzelne Tabellenblätter gelöscht ... usw.).

In diesem Forum ich schon einen sehr guten Ansatz gefunden.
Allerdings hätte ich gerne die Speicherung der Datei in dem Selben Ordner.
Wie müsste das Makro richtig lauten? Habe selber in bisschen rumprobiert, allerdings kam dann immer ein Fehler Sad.


OriginalOrdner = ActiveWorkbook.Path
UnterOrdner = "\xyz"
If Mid(OriginalOrdner, InStrRev(OriginalOrdner, "\")) <> UnterOrdner Then
NeuerOrdner = OriginalOrdner & UnterOrdner
End If
If Dir(NeuerOrdner, vbDirectory) = "" Then
MkDir NeuerOrdner
End If
ActiveWorkbook.SaveAs NeuerOrdner & "\" & ActiveWorkbook.Name

Vielen Dank für jede Hilfe.
Gruss,
Bernd
Phelan XLPH
Fortgeschritten


Verfasst am:
17. Jun 2010, 14:32
Rufname: Phelan


AW: Makro soll Exceldatei unter anderem Namen speichern - AW: Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

ersetze das:
Code:
UnterOrdner = "\xyz"

durch das:
Code:
UnterOrdner = ""

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Bernd_1977
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jun 2010, 14:47
Rufname: Bernd

AW: Makro soll Exceldatei unter anderem Namen speichern - AW: Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

Hallo Glücksritter

Vielen Dank für die rasend schnelle Antwort.

Wie kann ich aber noch erreichen, dass die Datei unter dem Namen "xyz.xlsm" im selben Ordner wie die Originaldatei abgespeichert wird?
Ich habe es mit dem Makro (siehe unten) probiert, aber irgend etwas stimmt dort noch nicht ganz. Steht da vielleicht zu viel drinne?
Gruss,
Bernd


OriginalOrdner = ActiveWorkbook.Path
UnterOrdner = " "
If Mid(OriginalOrdner, InStrRev(OriginalOrdner, "\")) <> UnterOrdner Then
NeuerOrdner = OriginalOrdner & UnterOrdner
End If
If Dir(NeuerOrdner, vbDirectory) = "" Then
MkDir NeuerOrdner
End If
ActiveWorkbook.SaveAs NeuerOrdner & "\" & ActiveWorkbook.Name
Bernd_1977
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jun 2010, 16:12
Rufname: Bernd

AW: Makro soll Exceldatei unter anderem Namen speichern - AW: Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

Ich habs: und es ist sogar ganz unkompliziert

Sub

ChDir ActiveWorkbook.Path
ActiveWorkbook.SaveAs "Test190"

End Sub

Gruss,
Bernd
Bernd_1977
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Aug 2010, 16:03
Rufname: Bernd

AW: Makro soll Exceldatei unter anderem Namen speichern - AW: Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

Hallo liebe Forumgemeinde

Ich glaube ich habe mich zu früh gefreut. Der folgende Befehl speichert die Datei leider immer unter "Eigene Dateien".

ChDir ActiveWorkbook.Path
ActiveWorkbook.SaveAs "Test190"

Kennt jemand einen Befehl, der es erlaubt: die gerade geöffnete Datei unter einem anderen Namen zu speichern, und dass im selben Ordner wie die Ursprungsdatei? - Wo bei der Ordner der Originaldatei von Projekt zu Projekt variieren kann (Andere Ordnerstruktur, Festplatte ...).

Viele Grüsse,
Bernd
Babatune
Gast


Verfasst am:
12. Aug 2010, 16:20
Rufname:

AW: Makro soll Exceldatei unter anderem Namen speichern - AW: Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

Hi,

so müsste es denk ich gehen

Code:

Dim path as String
path = ActiveWorkbook.path + "\Test190.xls"
ActiveWorkbook.Save As path


viele grüße
Bernd_1977
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Aug 2010, 16:46
Rufname: Bernd


AW: Makro soll Exceldatei unter anderem Namen speichern - AW: Makro soll Exceldatei unter anderem Namen speichern

Nach oben
       Version: Office 2007

Hallo Babatune

YEAHHHH, es funktioniert hervorragend. Musste nur noch das Lehrzeichen zwischen Save und As entfernen und jetzt gehts. Super!
Vielen Dank für die schnelle Antwort.

Gruss,
Bernd
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Mappe öffnen mit automatische Makro 0 Vase 1610 23. Feb 2006, 13:31
Vase Mappe öffnen mit automatische Makro
Keine neuen Beiträge Excel Formeln: Teilnehmerzahl anhand von Namen bestimmen 2 Gast 1393 21. Feb 2006, 17:42
Z-Man Teilnehmerzahl anhand von Namen bestimmen
Keine neuen Beiträge Excel Formeln: Namen nach Datum sortieren 14 Wilfried 1588 16. Feb 2006, 12:17
rainberg Namen nach Datum sortieren
Keine neuen Beiträge Excel Formeln: Dorp-Down-Menü mit Werten aus anderem Tabellenblatt 3 Gast 998 02. Jan 2006, 14:41
Gast Dorp-Down-Menü mit Werten aus anderem Tabellenblatt
Keine neuen Beiträge Excel Formeln: makro beim öffnen starten und werte auswählen 0 werner100 636 24. Nov 2005, 13:30
werner100 makro beim öffnen starten und werte auswählen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Wer kann mir ein Makro erstellen?????? wäre echt nett 1 jvakleve61 2456 28. Okt 2005, 05:55
ae Wer kann mir ein Makro erstellen?????? wäre echt nett
Keine neuen Beiträge Excel Formeln: Werte neben Namen addieren!? 2 Gast 1395 17. Okt 2005, 08:06
tigersnake Werte neben Namen addieren!?
Keine neuen Beiträge Excel Formeln: Formeln speichern 6 Joerg112 802 15. Okt 2005, 19:45
Joerg112 Formeln speichern
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Makro HILFE !!! BITTE ;D 3 folter 681 03. Sep 2005, 13:32
fl618 Makro HILFE !!! BITTE ;D
Keine neuen Beiträge Excel Formeln: Namen suchen 1 Wilfried 606 29. Aug 2005, 12:42
fl618 Namen suchen
Keine neuen Beiträge Excel Formeln: Zwei Namen vergleichen und Summe bilden 2 Gast 1492 29. März 2005, 17:45
Gast Zwei Namen vergleichen und Summe bilden
Keine neuen Beiträge Excel Formeln: Zeile einfügen mit Formel oder Makro? 2 original-m 2246 21. Feb 2005, 08:09
original-m Zeile einfügen mit Formel oder Makro?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum