Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA : Alle Workbook bis auf eines schliessen

VBA : Alle Workbook bis auf eines schliessen
30.09.2004 11:01:34
Joe
hiho,
hab das problem, dass ich am ende meines makros immer n haufen leerer mappen
(fallen beim SaveAs) und die haupttabelle auf hab.
wie könnte ich das in VBA lösen, alle offenen woorkbooks bis auf ein benanntes ( in meinem fall das "hauptprogramm" ) zu schliessen ?!
hoffe ihr könnt mir helfen !
Danke im voraus...
Joe
AW: VBA : Alle Workbook bis auf eines schliessen
Dr.
Stattdessen baust Du besser ein ActiveWorkbook.Close nach dem Saven ein.
AW: VBA : Alle Workbook bis auf eines schliessen
Joe
das hab ich ja...
es läuft so:
er öffnet n neues workbook
füllt es mit daten aus der haupt-tabelle
zeigt mit die saveAs-box mit names-vorschlag an
und schliesst workbook nach dem speichern
allerdings is ja jetzt auch noch ne leere mappe offen also das ursprungs-work-book..ich poste es einfach mal :

Sub Donnerstag()
Dim Neue As Workbook
Set Neue = Workbooks.Add
Workbooks.Add
Windows("Tagesbilanz.xls").Activate
Sheets("Auswertung").Select
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Neue.Activate
Range("A28").Select
ActiveSheet.Paste
ActiveWindow.Visible = False
u.s.w.
Windows("Tagesbilanz.xls").Activate
Sheets("Tabellen-Beschriftung").Select
Application.SendKeys Range("F6").Value
Neue.Activate
Sheets("Tabelle1").Name = "Woche1"
Sheets("Tabelle2").Name = "Woche2"
Sheets("Tabelle3").Name = "Woche3"
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

hoffe das erklärt die sache...
joe
Anzeige
AW: VBA : Alle Workbook bis auf eines schliessen
Dr.
Jo, dann schliesst Du das Teil nach dem .Copy
AW: VBA : Alle Workbook bis auf eines schliessen
WernerB.
Hallo Joe,
wie gefällt Dir das?

Sub AlleSchliessen()
Dim Wkb As Workbook
For Each Wkb In Workbooks
If Wkb.Name <> ThisWorkbook.Name Then
Wkb.Close SaveChanges:=False
Next Wkb
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: VBA : Alle Workbook bis auf eines schliessen
Joe
Hiho werner,
das sieht gut aus...werds nach mittagspause gleich mal umsetzen ;)
...hoffe du meinst mit deinem P.S. nicht mich..ich antworte immer und war grad damit beschäftigt einen auszug des makros zwecks beserem verständnis zu posten ( s.o.)
also thx für die lösung!
Joe
Anzeige
AW: VBA : Alle Workbook bis auf eines schliessen
01.10.2004 08:33:36
Joe
Moin moin,
leider klappr der code net so wie er soll :(

Sub AlleSchliessen()
Dim Wkb As Workbook
For Each Wkb In Workbooks
If Wkb.Name <"hier den namen von der datei die OFFEN bleiben soll?"> ThisWorkbook.Name Then   <<-- (was bewirkt "this workbook.name" ?)
Wkb.Close SaveChanges:=False
Next Wkb
End Sub

hmm..was muss ich da ändern ?
er soll ja im grunde alle offenen workbooks als Wkb setzen, dann schauen, ob das activierte mit dem vorgegebenen namen übereinstimmt und falls das net der fall ist, schliessen. das soll mit allen wkb´s gemacht werden und wenn nur noch das eine offen is, soll er den 

Sub beenden...
hoffe ihr könnt mir n tip geben..dauert ja leider seine zeit, bis man VBA mit learning by doing begriffen hat :(
besten dank
Joe
Anzeige
AW: VBA : Alle Workbook bis auf eines schliessen
WernerB.
Hallo Joe,
die beiden Pfeile "" sind Operatoren und bedeuten in dieser Kombination "ungleich".
"ThisWorkbook" ist das Workbook (=Mappe bzw. Datei), in dem das Makro steht (egal, wie es heißt).
Berücksichtigt man dies nicht, könnte es sein, dass sich die Datei, die das Makro beinhaltet, selbst schließt (und damit auch das Makro beendet), bevor alle anderen Dateien geschlossen sind.
Selbstverständlich kannst Du den Code noch erweitern, z.B. so:

Sub AlleSchliessen()
Dim Wkb As Workbook
For Each Wkb In Workbooks
If Wkb.Name <> ThisWorkbook.Name And _
Wkb.Name <> "MeineDatei.xls" Then
Wkb.Close SaveChanges:=False
Next Wkb
End Sub

Gruß
WernerB.
Anzeige
AW: VBA : Alle Workbook bis auf eines schliessen
Joe
Moin Werner,
aha..solangsam lichtet sich die sache...mit ThisWorkbook is das natürlich elegant gelöst aber da ich dachte in die eckigen klammern gehört n name, hat das natürlich nie geklappt ;)
habs dann schliesslich mit ner variable gelöst...werd jetzt aber deine lsg. einbauen.
is fehlersicherer!

Sub AlleSchliessen()
Dim Haupt As String
Haupt = InputBox("Name der Haupt-Datei: ", "Schliesser", "Bilanz.xls")
Dim WB As Workbook
For Each WB In Workbooks
If Not WB.Name = Haupt Then WB.Close Else:
Next WB
End Sub

also besten dank für die erläuterung !
sincerly
Joe
Anzeige

300 Forumthreads zu ähnlichen Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
HEIMAT-Workbook eines VBA-Makros ermitteln?
Johann

Hallo,
ich habs irgendwo einmal gelesen, aber mit den Schlüsselworten +Workbook +Makro +ursprung findet man immer zu viele Treffer, aber nie die richtigen.....
Meine Frage:
Ich habe ein VBA-Makro, welches generell mit dem Activeworkbook arbeitet. Das ist irgendeine Excel-Datei in d...
01.04.2009 12:37:23
Thread-ID: 1065958
2 Beiträge
Anzeige
Worksh_Activate per manuell od VBA unterscheidbar?
Jörg

Hi Leute
eins der Blätter in meiner Datei zeigt beim manuellen Aktivieren eine MsgBox "nix verändern..." usw, damit man daran erinnert wird, nicht versehentlich was reinzukritteln.
Dummerweise wird im Verlauf einer anderen Prozedur dies Blatt auch zwischendurch aktiviert - prompt kommt...
23.05.2009 14:03:32
Thread-ID: 1076847
5 Beiträge
2 VBA Befehle in einem Worksheet
Reinhardt

Liebe Excelgemeinde,
ich habe ein (hoffentlich) einfaches Problem:
Ich habe eine VBA Code, der mir bestimmte Werte anzeigt, Name: Gültigkeitsliste / Filterdropdown
sitzt in "Q5".
Nun soll im selben Tabellenblatt ein zweiter Filter reingesetzt werden (Zelle "S5"), der zusätzlic...
19.08.2009 11:50:28
Thread-ID: 1097047
12 Beiträge
Druckbereich formatieren für alle Sheets VBA
Florian

Hi,
hab ein kleines Problem mit dem Druckbereich, finde irgendwie keine Losung:
Ziel ist es, ein komplettes Workbook (mehrere Sheets, jedes Sheet hat gleiche Struktur, aber unterschiedliche Anzahl Zeilen) auszudrucken (Datei wird neu per Makro erzeugt, Druckbereich muss also auch per Ma...
23.12.2009 11:11:47
Thread-ID: 1125701
5 Beiträge
VBA - xlSheetHidden-Blätter bearbeiten
Dogbert

Hallo!
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz....
05.11.2010 11:44:42
Thread-ID: 1185339
3 Beiträge
VBA Sheets anlegen - Fehler
chris

Hallo VBA Experten,
ich habe eine frage.Ich habe eine Datei angehängt.
Warum kann ich das Makro nicht 2 mal ausführen ?
Das ganze ist jetzt ein Test gewesen.Ich möchte gerne in der Datei mehere Tabellenblätter anlegen.
Deshalb das Makro 2 mal Ausführen.Es kommt aber beim 2 klic...
14.12.2010 15:19:23
Thread-ID: 1191415
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
17
4
7
1
1
4
11
4
2
3
2
8
4
3
6
2
2
12
7
3
5
4
2
6
4