Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.GetSaveAsFilename

Application.GetSaveAsFilename
Lutz
Hallo,
wenn ich
varPfad = Application.GetSaveAsFilename
aus einem Makro heraus starte, erhalte ich ja den Pfad zurück.
Wie kann ich die Rückmeldung abfragen, wenn der Dialog über die Excel-Schaltfläche gestartet wurde?
M.f.G.
Lutz
AW: Application.GetSaveAsFilename
22.10.2010 07:13:25
Hajo_Zi
Halo Lutz,
über welch Schaltfläche startest Du diesen Dialog?
Speichern Unter ist ein anderer Dialog.
In der Datei wird bei speichern unter 
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
' speichern unter wird aufgerufen
End If
End Sub

ausgelöst.
Gruß Hajo
AW: Application.GetSaveAsFilename
22.10.2010 08:04:13
Lutz
Hallo Hajo,
wie erhalte ich jetzt von diesem Dialog die Rückmeldung?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
' speichern unter wird aufgerufen
varPfad = ?
End If
End Sub

M.f.G.
Lutz
Anzeige
AW: Application.GetSaveAsFilename
22.10.2010 09:43:11
Hajo_Zi
Hallo Lutz,
die Prozedur wird vor dem speichern aufgerufen.
Wie Du getsave mittels Schalter aufrufst hast Du nicht mitgeteilt.
Gruß Hajo
AW: Application.GetSaveAsFilename
22.10.2010 09:59:54
Lutz
Hallo Hajo,
ich klicke auf Datei und dann auf Speichern unter... also nicht über ein eigen erstelltes Makro.
M.f.G.
Lutz
AW: Application.GetSaveAsFilename
22.10.2010 10:26:41
Hajo_Zi
Hallo Lutz,
da wird Speichern unter aufgerufen und nicht getSaveas wie ich schon in meinem ersten Beitrrag geschrieben habe.
Bei GetSaveAs mußßt Du noch nach der Zeile speichern und kannst damit den Ordner abgfragen.
Gruß Hajo
Anzeige
AW: Application.GetSaveAsFilename
22.10.2010 11:40:33
Lutz
Hallo Hajo,
ich habe mich warscheinlich schlecht ausgedrückt.
Ich klicke Datei - Speichern unter an und von diesem Dialog möchte ich gern die Rückmeldung (Speicherpfad unter welchem die Datei gespeichert werden soll), zum weiterverarbeiten.
M.f.G.
Lutz
AW: Application.GetSaveAsFilename
22.10.2010 11:43:40
Hajo_Zi
Hallo Lutz,
die Datei ist dann doch gespeichert.
ThisWorkbook.Path
Gruß Hajo
AW: Application.GetSaveAsFilename
22.10.2010 12:01:12
Lutz
Hallo Hajo,
d.h. wenn der aktuelle Speicherpfad in einer Zelle eingetragen werden soll, dann steht dieser beim speichern unter erst nach erfolgtem speichern zur Verfügung?
Müsste also danach den Speicherpfad weiterverarbeiten und automatisch Speichern, falls die Arbeitsmappe gleich geschlossen werden sollte?
M.f.G.
Lutz
Anzeige
AW: Application.GetSaveAsFilename
22.10.2010 12:18:51
Rudi
Hallo,
du willst also im Speichern-unter-Dialog den Ordner wechseln, auf Abbrechen klicken und den Ordner ermitteln?
Siehe CurDir
Gruß
Rudi
AW: Application.GetSaveAsFilename
22.10.2010 15:46:38
Lutz
Hallo Rudi,
mit CurDir erhalte ich schon den Pfad beim Öffnen von Speichern unter und dieser wird dann nicht mehr aktualisiert, ich möchte aber erst den Pfad erhalten, wenn ich im Dialog auf speichern klicke, da dann erst der richtige Speicherpfad zurückgegeben wird. Oder alternativ dass mit dem durchklicken im Verzeichnisbaum der Pfad jedesmal neu zurückgegeben wird.
Vielleicht ist das aber auch nicht möglich?
Option Explicit
Dim strg1 As String 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
' speichern unter wird aufgerufen
strg1 = CurDir
Me.Worksheets(1).Range("A1").Value = strg1
Debug.Print Err
End If
End Sub
M.f.G.
Lutz
Anzeige
Keep it simple...
23.10.2010 00:51:42
Jürgen
Hallo Lutz,
wenn es Dir nur darum geht, in einer Zelle den Pfad zu sehen, in der die Datei gespeichert ist, könntest Du in der Zelle einfach die Formel
=Zelle("dateiname")
eintragen, bzw. etwas aufbereitend
=LINKS(ZELLE("dateiname");FINDEN("[";ZELLE("dateiname"))-1)
Gruß, Jürgen
AW: Keep it simple...
25.10.2010 12:05:19
Lutz
Hallo Hajo, Rudi und Jürgen,
danke für Eure Antworten.
M.f.G.
Lutz

302 Forumthreads zu ähnlichen Themen

Application.GetOpenFilename+Dateiart
SteffenS

Hallo Zusammen,
ich möchte über
FName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", Title:="Import Datei öffnen", MultiSelect:=False)
eine ZipDatei weiterverarbeiten.
Leider kann ich diese über diesen Befehl unter Excel 2000 nicht auswählen.
Wenn ich...
18.08.2008 22:30:43
Thread-ID: 1002756
4 Beiträge
Anzeige
Application.GetOpenFilename
Jana

Hallo liebes Forum!
Aus einer bestehenden Datei heraus möchte ich eine zweite Excel-Datei ansprechen.
1. Diese zweite Datei wird geöffnet
2. Alle Daten werden ausgelesen und in meine bestehende Datei eingelesen
3. Diese zweite Datei wird wieder geschlossen.
Soweit. dank eure...
19.11.2008 10:43:23
Thread-ID: 1025916
3 Beiträge
Application.GetOpenFilename
ioannis

Hallo zusammen,
kann man mit Application.GetOpenFilename Dateien aus mehreren Ordner auswählen, und in eine Array schreiben? Strg+Datei funktioniert nur solange die Dateien sich im gleichen Ordner befinden...
Vielen Dank schon mal in Voraus.
Freundliche Grüße
ioannis
08.05.2009 19:14:17
Thread-ID: 1073993
5 Beiträge
Anzeige
GetOpenFileName und Multiselect
Jogy

Hi.
Einfach mal folgender Codeschnipsel: Sub test() Dim daTei daTei = Application.GetOpenFilename(, , , , True) Debug.Print (IsArray(daTei)) End Sub Der funktioniert so weit einwandfrei und gibt True aus, sobald ich etwas auswähle.
Nur sobald ich eine bestimmte Arbeitsmappe lade (natür...
06.07.2009 12:39:24
Thread-ID: 1086609
11 Beiträge
GetOpenFilename
Peter/Berlin

Hi VBA-Fans,
zum Öffnen einer Datei möchte ich das Standarddialogfeld Öffnen aktivieren und nur die xls-Dateien zur Auswahl sehen, die mit einem 'D' beginnen.
Wo muss ich in unten angegebenem Code dieses 'D' unterbringen, damit es klappt?
fileToOpen = Application.GetOpenFilename("Ex...
10.09.2009 18:11:11
Thread-ID: 1101833
3 Beiträge
GetOpenFilename nicht nur xls-Mappen öffnen
Lutz

Hallo,
möchte gern mit dem Resultat von Dialog Application.GetOpenFilename nicht nur Excel-, sondern auch andere Dokumente, mit der jeweiligen Anwendung starten.
Wie kann ich das bewerkstelligen?
M.f.G.
Lutz
13.10.2010 17:54:50
Thread-ID: 1182301
3 Beiträge
GetOpenFilename nach Dateiname Filtern
thomas

Hallo,
schon wieder eine Frage....
kann man mit der GetOpenFilename Methode auch gleich nach
Dateinamen sortieren und nicht nur nach Suffixen ?
Also das er nur z.B. die Datei "Name.xlsx" findet...?
Thomas
21.02.2011 16:46:19
Thread-ID: 1202112
4 Beiträge
GetOpenFileName Anzahl Filter
Heiko

Hi, zusammen,
ganz kurze Frage zur GetOpenFileName Methode:
Kann es sein, dass die Anzahl der moeglichen Filter auf 7 bzw die Anzahl der Zeichen fuer den Filterstring begrenzt ist? Sobald ich einen achten Flter hinzufuege, bekomme ich einen Laufzeitfehler 2015 "Typen unvertaeglich" fuer...
14.10.2011 00:03:45
Thread-ID: 1233761
6 Beiträge

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
3
2
2
4
8
10
2
2
3
5
1
5
2
1
2
2
4
2
1
2
1
3
3
2
4