Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro
25.10.2003 15:36:22
Petra M.
Hi
Ich übe mal gerade mein Handbuch über VBA und finde nichts.
Frage: Ich habe ca. 12 dateien offen und möchte alle schliessen und danach die Datei Personalinfo vom Desktop laden. Kann mir jemand hier behilflich sein das makro zu schreiben. danke auf jedenfall für diejenigen, welche sich die Mühe machen.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro
25.10.2003 15:46:40
Jens
Hallo Petra:


Sub Alle_Schliessen_außer_einer()
Dim WB As Workbook
For Each WB In Workbooks
If WB.Name <> ThisWorkbook.Name Then
WB.Close savechanges:=False 'True wenn doch Änd. gespeichert werden sollen
End If
Next WB
End Sub



Sub Alle_Schliessen()
Dim WB As Workbook
For Each WB In Workbooks
WB.Close savechanges:=False 'True wenn doch Änd. gespeichert werden sollen
Next WB
End Sub



Sub DateiOeffnen()
'Workbooks.Open ActiveCell 'Name steht in aktiver Zelle oder wie du möchtest
Workbooks.Open "C:\.... .xls" 'Pfad und Dateiname angeben
End Sub

Anzeige
AW: Makro
25.10.2003 15:51:50
Jens
soooorrrry!

ich vergaß: "Viele Grüße!"
(Ich wollte nicht unhöflich sein. Zur Zeit arbeite ich selbst an einer Exceltabelle und ersetze permanent Bezüge. Excel rechnet dann immer einige Minuten und in den Pausen schaue ich manchmal ins Forum ...)
AW: Makro
25.10.2003 16:41:12
Petra M.
Servus, besten Dank

Petra

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige