Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit GetSaveAs Filename??

Problem mit GetSaveAs Filename?
13.05.2005 11:30:28
seeger
Hallo zusammen,
hab ein Problem mit folgendem Makro:

Sub Speichern()
'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDrive "S:\"
ChDir "\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote verschickt\"
Dateiname = Application.GetSaveAsFilename _
([A1], "Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
MsgBox "Datei wurde gespeichert unter:" & vbNewLine & Dateiname
End Sub

Würde als Dateiname (hier: aktuelles Tabellenblatt, A1; siehe eckige Klammern in Makro) gerne den Zellinhalt eines Tabellensheets (z.B. Tabellenblatt: "Grundlagen", Zelle: "G3") welches nicht ausgewählt ist verwenden, bekomm es aber nicht hin.
Ideen?
Danke im Voraus!!!
Gruß Mischa

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit GetSaveAs Filename?
13.05.2005 11:42:26
Harald
Hallo Mischa,
mal so aus dem Handgelenk ;-))) Ungetestet, aber bei vba-gut kannste ggf. was ausbügeln
If worksheets("Grundlagen").Range("G3").Value = "" Then
Datum = InputBox("Bitte einen Dateinamen eingeben")
worksheets("Grundlagen").Range("G3").Value = Datum
End If
ChDir "S:\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote verschickt\"
ActiveWorkbook.SaveAs Filename:= _
"S:\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote verschickt\"& worksheets("Grundlagen").Range("G3").Value & ".xls"
Gruß
Harald
"Micrsoft ..? liegts nur dadran?o.T.
13.05.2005 13:33:46
ransi
AW: Problem mit GetSaveAs Filename?
13.05.2005 14:23:53
Mischa
hmmm, hab das Ding mal getestet. Sieht mittlerweile so aus:

Private Sub cdmButton_Speichern_click()
If Worksheets("Grundlagen").Range("G3").Value = "" Then
MsgBox ("Bitte die Adressdaten eingeben")
Userform1.show  'wenn keine Adresse eingeben, wir Eingabemaske eingeblendet
End If
ChDrive "S:\"
ChDir "\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote verschickt\"
ActiveWorkbook.SaveAs Filename:="S:\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote verschickt\" & Worksheets("Grundlagen").Range("G3").Value & ".xls"
End Sub

Bekomme aber immer einen Laufzeitfehler 9 - Index liegt außerhalb des gültigen Bereichs. Muß an den Zeilen nach END if liegen.
Komme irgendwie nicht weiter....
Ideen? Danke nochmals..
Mischa
Anzeige
AW: Problem mit GetSaveAs Filename?
13.05.2005 14:32:08
Mischa
Hallo nochmal!
Es läuft allerdings ohne GetSaveAsFilename. Hätte halt gerne die Speichern unter Funktion aufgerufen. Der Dateiname und Speicherort sollte halt ähnlich unten dann automatisch vorgeschlagen werden. Naja, kriegs halt nicht raus....
hier Makro ohne GetSaveAs Filename:

Private Sub cmdButton_speichern_unter_Click()
If Worksheets("Grundlagen").Range("G3").Value = "" Then
MsgBox ("Bitte die Adressdaten eingeben")
UserForm1.Show
End If
ChDrive ("S:\")
ChDir ("\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote zu erstellen\Fertig zum Verschicken\")
ActiveWorkbook.SaveAs Filename:="S:\Biogas\Angebote, BigaCalc\BigaCalc mit Angebot\Angebote verschickt\" & "BigaCalc" & " " & Worksheets("Grundlagen").Range("G3").Value & ".xls"
End Sub

Danke!!!
Mischa
Anzeige
AW: Problem mit GetSaveAs Filename?
13.05.2005 14:49:33
Harald
Hallo Mischa,
hab jetzt Wochenende, daher nur noch eine andere Möglichkeit aus meinem Fundus zum weiterbasteln.

Private Sub SaveWorkbook()
SFilename = "f:\group\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & " - " & Date & " - " & Replace(Time, ":", ".") & ".xls"
ActiveWorkbook.SaveAs Filename:=SFilename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Schönes WE
Harald

275 Forumthreads zu ähnlichen Themen

GetSaveAsFilename
Frank68

Halle Gemeinde,
eine Frage: Kann ich die Methode GetSaveAsFilename so modifizieren, dass im Dialogfeld ein bestimmter Dateiname (= Vorschlag) steht, der beispielsweise aus einer Zelle dieser Tabelle "gezogen" wird?
Dank!
20.01.2009 00:49:10
Thread-ID: 1041695
4 Beiträge
Anzeige
GetSaveAsFilename
Ansgar

Hallo Experten,
ein unter Excel 2000 erstellter Code beinhaltet den GetSaveAsFilename-Befehl. Dieser funktionerte dort problemlos.
Jetzt läuft das Makro aber unter Excel 2007. Das Abspeicher funktioniert mit
fname = Application.GetSaveAsFilename("LISTUNGEN", _ "Excel 97-2003-Arbeit...
17.05.2010 18:36:27
Thread-ID: 1157428
6 Beiträge
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
22.10.2010 07:13:25
Thread-ID: 1183442
13 Beiträge
Anzeige
Application.GetSaveAsFilename
Rainer

Hallo allerseits,Eine Frage: Wenn ich den Befehl Application.GetSaveAsFilename gebe, dann würde ich gerne im Vorfeld einen neuen Filenamen als Vorgabe übergeben. Man soll selbst wählen können, wohin, aber nur den Namen möchte ich vorher noch automatisch abändern. Soll als Backup-Funktion dienen...
11.07.2002 11:58:06
Thread-ID: 135731
2 Beiträge
GetSaveAsFilename und Punkt
matzemalzbier

Hallo liebes Forum.
Eine Arbeitsmappe die mit Excel 2000 erstellt wurde, verwendet die GetSaveAsFilename Methode.
Der Speichern Unter Dialog wurde aufgerufen und der Vorgelegte Dateiname sah in etwa so aus: 2013.10 Dateiname.xls
Mit Excel 2007 wird der Dateinmae nicht mehr vorgelegt...
09.10.2013 14:01:42
Thread-ID: 1333726
3 Beiträge
Application.GetSaveAsFilename
Andi

Es gibt ein VBA Befehl um Blätter als pdf zu speichern:
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & "SV-" & SVTyp & "_" & Blatt.Name & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
Sheets(Blatt....
24.02.2015 17:57:13
Thread-ID: 1411283
4 Beiträge
GetSaveAsFilename nur bestimmten Bereich als PDF
Thomas

Sehr geehrte Damen und Herren,
ich suche mir jetzt schon stundenlang die Finger wund ;) leider ohne Ergebnis.
Folgende Problemstellung:
Ich habe ein Rechnungsdokument erstellt. Nun möchte ich mittels Schaltfläche die Rechnung automatisch in dem
Rechnungsordner als PDF ablegen un...
05.01.2016 10:55:34
Thread-ID: 1467115
3 Beiträge
Pfad nach GetSaveAsFilename ermitteln
Michael Heering

Hallo Miteinander!Wie kann ich nach einem GetSaveAsFilename den Pfad der zu speichernden Datei ermitteln?Un wie kann ich den Wert für das nächste Speichern als Vorlage nehmen?Vielen Dank
Michael Heering
31.08.2002 16:27:11
Thread-ID: 154932
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

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