Problem mit GetSaveAs Filename?
13.05.2005 11:30:28
seeger
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