Hallo. wie kann ich mit Makros ein neues Dokument öffnen? Ich würde dazu gerne eine Schaltflläche verwenden. Wie kann ich dir in die Symbolleiste einfügen?
Liebe Grüße, Johanna

Neues Dokument öffnen
-
Schnewittchen
- Beiträge: 30
- Registriert: Mi 11. Mai 2011, 08:42
- Wohnort: Greifswald
-
pmoegenb
Re: Neues Dokument öffnen
Hallo Johanna,
dazu wird kein Makro benötigt. Die Standard-Symbolleiste kannst Du über Extras/Anpassen... entsprechend erweitern.
dazu wird kein Makro benötigt. Die Standard-Symbolleiste kannst Du über Extras/Anpassen... entsprechend erweitern.
-
Schnewittchen
- Beiträge: 30
- Registriert: Mi 11. Mai 2011, 08:42
- Wohnort: Greifswald
Re: Neues Dokument öffnen
Ok, wie kann ich diesen Code ändern, dass er für OpenOffice passt und funktioniert.
Sub OpenCSV()
Dim fName as String
'in das Verzeichnis der aktuellen Mappe wechseln
chDir Thisworkbook.Path
fName = Application.GetopenFile(("CSV Files (*.csv), *.csv")
If fName = False Then Exit Sub
'Gewählte Datei öffnen
Workbooks.Open fName
'Dein weiterer Code
End Sub
Liebe Grüße, Johanna
Sub OpenCSV()
Dim fName as String
'in das Verzeichnis der aktuellen Mappe wechseln
chDir Thisworkbook.Path
fName = Application.GetopenFile(("CSV Files (*.csv), *.csv")
If fName = False Then Exit Sub
'Gewählte Datei öffnen
Workbooks.Open fName
'Dein weiterer Code
End Sub
Liebe Grüße, Johanna
