Software für Sie.

Datei ▸ Ã?ffnen

Die wohl bekannteste Variante für den �ffnen-Dialog, mit der man die Auswahl komfortabel abfragen kann:

Dim varPfad varPfad = Application.GetOpenFilename("CSV-Dateien (*.csv), *.csv") If varPfad <> False Then Workbooks.Open Filename:=varPfad

Oder so:

With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "CSV-Dateien", "*.csv" .InitialFileName = "C:\Temp\" 'Ordner vorbelegen If .Show = -1 Then MsgBox .SelectedItems(1) End With

Hier wird eine gewählte Datei geöffnet:

Select Case Application.Dialogs(xlDialogOpen).Show("test.xls") Case -1: MsgBox "Geöffnet" Case 0: MsgBox "Abgebrochen" End Select

---

Datei ▸ Speichern unter

1. Möglichkeit (In A1 steht der Dateiname.):

Dim varPfad varPfad = Application.GetSaveAsFilename(Range("A1")) If varPfad = False Then Exit Sub ActiveWorkbook.SaveAs varPfad

2. Möglichkeit:

Dim varPfad varPfad = Application.Dialogs(xlDialogSaveAs).Show("test.xls") Select Case varPfad Case -1 'Gesichert Case 0 'Abgebrochen End Select

---

Eine Ã?bersicht zu integrierten Dialogfeldern finden Sie in Integrierte Dialogfelder aufrufen

Die einfachste Variante ist:

Workbooks("Test.xlsm").SendMail Recipients:="beispiel@example.org", Subject:="Hallo"

Komfortabler geht es jedoch mit dem RoutingSlip-Objekt:

Sub Mailen() Workbooks("Test.xlsm").HasRoutingSlip = True With Workbooks("Test.xlsm").RoutingSlip .Recipients = "beispiel@example.org" .Subject = "Hallo" .Message = "Schöne Grü�e" End With Workbooks("Test.xlsm").Route End Sub

Soll die Mail an mehrere Empfänger gesendet werden, mu� die Recipients-Eigenschaft als Array gesetzt werden:

Array("...", "...",........)

---

Mit Aufrufen, die Outlook nutzen, gibt es jedoch immer wieder Probleme. Eine mögliche (und eigentlich gute) Ursache ist, dass Microsoft Spam vermeiden möchte und so eine Meldung einblendet, die auf den automatisierten Mailversand hinweist:

Eine Anwendung versucht, Nachrichten in Ihrem Auftrag zu versenden. Falls dies unerwartet geschieht, klicken Sie auf 'Verweigern'. �berprüfen Sie au�erdem, ob Sie über die aktuelle Version Ihres Antivirusprogramms verfügen.

Das ist sicher gut gemeint, aber bei Automatisierungen eben auch sehr störend.

Deshalb kann die �berlegung günstig sein, ob automatisierter Mailversand nicht besser von Outlook entkoppelt und unabhängig davon gestaltet werden kann. Wenn Sie die Möglichkeit haben, ein PHP-Script auf einem Server zu speichern, sollten Sie sich dazu den Tipp Mails mit VBA und PHP versenden (mehrere Empfänger, mehrere Anhänge) ansehen.

Mit Dialogfeld ist es übrigens so möglich:

Application.Dialogs(xlDialogSendMail).Show arg1:="beispiel@example.org", arg2:="Das ist der Betreff."

Die integrierten Dialogfelder von Excel können auch mit VBA aufgerufen werden. Dies geschieht einfach mit:

Application.Dialogs(Konstante).Show

Bei den Dialogfeldern können verschiedene Argumente mitgegeben werden, die natürlich bei jedem Element anders sind. Hierzu am besten einfach in die Hilfe sehen.

Manchmal muss man sich entscheiden, ob ein integriertes Dialogfeld oder ein herkömmliches Dialogfeld für die Aufgabe besser geeignet ist. Mit z. B. Application.GetOpenFilename kann schön der Pfad abgefragt werden, was mit xlDialogOpen schon nicht mehr so einfach ist.

lfd. Nr.	Konstante	Name
1	xlDialogActivate	Aktivieren
2	xlDialogActiveCellFont	Schrift
3	xlDialogAddinManager	Add-In-Manager
4	xlDialogAlignment	Ausrichtung
5	xlDialogApplyStyle	Formatvorlage
6	xlDialogArrangeAll	Fenster anordnen
7	xlDialogAutoCorrect	Autokorrektur
8	xlDialogBorder	Rahmen
9	xlDialogCalculation	Beschriftungsoptionen
10	xlDialogCellProtection	Zellschutz
11	xlDialogClear	Inhalte löschen
12	xlDialogColorPalette	Farboptionen
13	xlDialogColumnWidth	Spaltenbreite
14	xlDialogConditionalFormatting	Bedingte Formatierung
15	xlDialogConsolidate	Konsolidierung
16	xlDialogCopyPicture	Bild kopieren
17	xlDialogCreateNames	Namen erstellen
18	xlDialogCustomizeToolbar	Anpassen
19	xlDialogCustomViews	Ansichten
20	xlDialogDataSeries	Reihe
21	xlDialogDefineName	Namen definieren
22	xlDialogDefineStyle	Formatvorlage
23	xlDialogDeleteFormat	Zahlenformat
24	xlDialogDeleteName	Namen definieren
25	xlDialogDemote	Gruppierung
26	xlDialogDisplay	Bildschirmanzeigeoptionen
27	xlDialogEditDelete	Zellen löschen
28	xlDialogFileDelete	Datei löschen
29	xlDialogFileSharing	Arbeitsmappe freigeben
30	xlDialogFilterAdvanced	Spezialfilter
31	xlDialogFindFile	Datei suchen/öffnen
32	xlDialogFormatAuto	Autoformat
33	xlDialogFormatNumber	Zahlenformat
34	xlDialogFormulaFind	Suchen
35	xlDialogFormulaGoto	Gehe zu
36	xlDialogFormulaReplace	Ersetzen
37	xlDialogGoalSeek	Zielwertsuche
38	xlDialogImportTextFile	Textdatei importieren
39	xlDialogInsert	Zellen einfügen
40	xlDialogInsertHyperlink	Hyperlink einfügen
41	xlDialogInsertNameLabel	Beschriftungsbereiche
42	xlDialogInsertObject	Objekt einfügen
43	xlDialogInsertPicture	Bild einfügen
44	xlDialogNew	Datei - Neu
45	xlDialogOpen	Datei öffnen
46	xlDialogOptionsCalculation	Optionen: Berechnung
47	xlDialogOptionsEdit	Optionen: Bearbeitung
48	xlDialogOptionsGeneral	Optionen: Allgemein
49	xlDialogOptionsListsAdd	Optionen: Liste
50	xlDialogOptionsTransition	Optionen: Umsteigen
51	xlDialogOptionsView	Otionen: Ansicht
52	xlDialogPageSetup	Seite einrichten
53	xlDialogPasteSpecial	Inhalte einfügen
54	xlDialogPatterns	Format: Muster
55	xlDialogPrint	Drucken
56	xlDialogPrinterSetup	Druckereinrichtung
57	xlDialogProperties	Dateieigenschaften
58	xlDialogProtectDocument	Blatt schützen
59	xlDialogRoutingSlip	Mailverteiler
60	xlDialogRowHeight	Zeilenhöhe
61	xlDialogRun	Makro
62	xlDialogSaveAs	Speichern unter
63	xlDialogSelectSpecial	Inhalte auswählen
64	xlDialogSendMail	Mappe als Mail
65	xlDialogSetBackgroundPicture	Hintergrundbild
66	xlDialogSetPrintTitles	Drucktitel
67	xlDialogSort	Sortieren
68	xlDialogUnhide	Tabelle einblenden
69	xlDialogWorkbookAdd	Blatt verschieben/kopieren
70	xlDialogWorkbookName	Blatt umbenennen
71	xlDialogWorkbookNew	Tabelle usw. einfügen
72	xlDialogWorkbookProtect	Arbeitsmappe schützen
73	xlDialogZoom	Zoom

Download: integrierte_dialogfelder.xlsm