Microsoft Office Tutorials and References
In Depth Information
10.1.2 Datei speichern unter
10.1.2
Datei speichern unter
Beim Dialog zum Speichern einer Datei kann u. a. ein einzelner Datei-
name voreingestellt werden.
xlDialogSaveAs
Sub DateiSpeichernUnter()
Dim Erfolg As Boolean
Workbooks.Add
Erfolg = Application.Dialogs(xlDialogSaveAs). _
Show(arg1:="Test.xlsx")
If Not Erfolg Then _
MsgBox "Keine Datei ausgewählt"
End Sub
Das Ergebnis sehen Sie in Abbildung 10.2.
Abbildung 10.2
Dialogfeld »Speichern unter«
Zur Erläuterung:
Die Konstante ist xlDialogSaveAs .
Button
»Speichern«
Falls der Benutzer nur den Button Speichern betätigt, wird die neu
erzeugte Datei unter dem Namen Test.xlsx gespeichert.
Hinweis
In den Versionen vor Excel 2007 muss die Dateibezeichnung in der Prozedur
und in der Erläuterung wie folgt lauten: Test.xls .
10.1.3
Muster für Zellbereich auswählen
Nach Auswahl eines Zellbereichs, durch die Anwendung oder durch den
Benutzer, kann ein Muster bzw. eine Zellhintergrundfarbe gewählt werden:
xlDialogPatterns
Sub AuswahlMuster()
Dim Erfolg As Boolean
ThisWorkbook.Worksheets("Tabelle1"). _
Range("A1:C3").Select
Erfolg = Application.Dialogs(xlDialogPatterns).Show
Search JabSto ::




Custom Search