Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei in übergeordnetem Verzeichnis speichern

Datei in übergeordnetem Verzeichnis speichern
02.07.2008 12:37:25
Harald
Hallo,
ich habe mal wieder ein Problem:
Wie kann ich mit VBA die Datei, die sich in einem beliebigen Verzeichnis befindet, in das übergeordnete Verzeichnis speichern, wobei die neue Datei den Namen Original.xls erhalten soll?
mfg
Harald

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

Betreff
Datum
Anwender
Anzeige
AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 12:50:00
Dani
Versuchs mal so...

ThisWorkbook.SaveAs (Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\Original. _
xls")


Gruss
Dani

AW: Ich meine mich erinnern zu können,...
02.07.2008 12:59:00
Chris
Servus Harald,
... dass InStrRev mit xl97 nicht geht, dann so:

Sub t()
Dim strPfad As String
strPfad = ActiveWorkbook.Path
Dim i As Long, z As Long
For i = Len(strPfad) To 1 Step -1
z = z + 1
If Mid(strPfad, i, 1) = "\" Then
Exit For
End If
Next i
strPfad = Left(strPfad, Len(strPfad) - z)
ThisWorkbook.SaveAs strPfad & "\Original.xls"
End Sub


Gruß
chris

Anzeige
AW: Ich meine mich erinnern zu können,...
02.07.2008 17:43:00
Harald
Hallo Chris,
vielen Dank für die Hilfe.
mfg
Harald

AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 17:40:44
Harald
Vielen Dank für die schnelle Antwort
mfg
Harald

AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 12:52:28
Jürgen
Hallo Harald,
z.B. so, wenn die neue Datei die geöffnete werden soll:
ThisWorkbook.SaveAs ThisWorkbook.Path & "\..\Original.xls"
oder so, wenn nur eine Kopie angelegt werden soll:
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\..\Original.xls"
Ggfs. mußt Du statt "Thisworkbook" (die Datei, in der das Makro gespeichert ist) gegen "Activeworkbook" (die Datei, die gerade in Excel angezeigt wirst) ersetzen.
Gruß, Jürgen

Anzeige
AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 17:41:00
Harald
Hallo Jürgen,
vielen Dank für die schnelle Hilfe.
mfg
Harald

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige