Makro

Forumthread: Makro
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro

Makro

25.10.2003 17: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

AW: Makro

25.10.2003 17:46:40

Jens
AW: Makro

25.10.2003 17:51:50

Jens
AW: Makro

25.10.2003 18:41:12

Petra M.

AW: Makro

25.10.2003 17: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

AW: Makro

25.10.2003 17: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 18:41:12

Petra M.

Servus, besten Dank

Petra

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!