Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro auf Dateien anwenden über Dialog

Makro auf Dateien anwenden über Dialog
Bernd
Hallo,
ich würde gerne ein bestimmtes Makro auf mehrere Dateien nacheinander anwenden und diese Dateien dann am Ende wieder schließend.
Folgende Schritte sollten abgearbeitet werden:
1.
Ich öffne über eine Art Menüdialog ein Verzeichnis,
2.
Dort kann ich entweder das gesamte Verzeichnis mit oder ohne Unterverzeichnisse oder sogar nur einzelne Dateien (über Mehrfachmarkierung) auswählen
3.
Anschließend soll das einheitliche Makro über jede einzelne Datei drüberlaufen und die Dateien am Ende alle wieder schließen.
Viele Grüße
Bernd
AW: Makro auf Dateien anwenden über Dialog
28.09.2010 09:45:44
Bernd
Hallo nochmals,
hat keiner eine Idee?
Gruß
Bernd
AW: Makro auf Dateien anwenden über Dialog
28.09.2010 12:37:52
Klaus
Hallo Bernd,
hilft dir dies vielleicht weiter?
Sub Dateien_oeffnen()
Dim zähler As Long, Pfad As String
Pfad = InputBox("Pfad Eingeben", , Default:="U:\Test")
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Pfad
.SearchSubFolders = True
If .Execute  0 Then
For zähler = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles.Item(zähler)
Call meinmakro
ActiveWorkbook.Close
Next zähler
End If
End With
End Sub
Sub meinmakro()
'Hier dein Makro
End Sub
Grüße,
Klaus M.vdT.
Anzeige
AW: Makro auf Dateien anwenden über Dialog
28.09.2010 21:13:48
Bernd
Hallo Klaus,
das geht in die richtige Richtung! Wenn man jetzt noch direkt über eine Art Explorer die Dateien einzeln oder den gesamten Ordner wählen könnte, wäre es sehr komfortabel.
Ich lasse den Thread noch offen, vielleicht hat noch jemand die "perfekte" Lösung.
Danke auf jeden Fall schon mal...
Gruß
Bernd
AW: Makro auf Dateien anwenden über Dialog
29.09.2010 15:02:22
Bernd
Hallo nochmal,
ich habe den Code mal verbunden mit meinen beiden Makros. Das eine Makro öffnet eine Datei und entfernt den Passwortschutz für alle Tabellenblätter und das andere Makro setzt einen Passwortschutz für alle Tabellenblätter. Merkwürdigerweise funktioniert das 1. Makro anstandlos, Makro 2 setzt wohl auch das Passwort für alle Tabellenblätter, schließt aber anschließend nicht die Datei und öffnet desweiteren auch nicht die nächste Datei, sondern bleibt in der ersten Datei stehen. Eine Fehlermeldung wird nicht ausgeworfen... Die Makros sind übrigen die aus Beitrag 1179537. An was könnte das liegen?
Gruß
Bernd
Anzeige
AW: Makro auf Dateien anwenden über Dialog
29.09.2010 15:02:23
Bernd
Hallo nochmal,
ich habe den Code mal verbunden mit meinen beiden Makros. Das eine Makro öffnet eine Datei und entfernt den Passwortschutz für alle Tabellenblätter und das andere Makro setzt einen Passwortschutz für alle Tabellenblätter. Merkwürdigerweise funktioniert das 1. Makro anstandlos, Makro 2 setzt wohl auch das Passwort für alle Tabellenblätter, schließt aber anschließend nicht die Datei und öffnet desweiteren auch nicht die nächste Datei, sondern bleibt in der ersten Datei stehen. Eine Fehlermeldung wird nicht ausgeworfen... Die Makros sind übrigen die aus Beitrag 1179537. An was könnte das liegen?
Gruß
Bernd
Anzeige
AW: Makro auf Dateien anwenden über Dialog
01.10.2010 09:48:49
Klaus
Hallo Bernd,
das "ProtectMe" Makro erhält den Befehl END, der terminiert die gesamte Makroabarbeitung. Mal eben fix umgeschrieben (beide END rausgeschmissen und durch GOTO ersetzt. Unsauber und nicht elegant, aber funktioniert)
Sub ProtectMe()
Dim r As Range
Dim myPass As String
Dim wKs As Worksheet
myPass = "Passwort 123"
For Each wKs In ActiveWorkbook.Worksheets
With wKs
On Error GoTo myErrPass
.Unprotect myPass
On Error Resume Next
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
On Error GoTo 0
.Protect myPass
End With
Next wKs
 Goto NoErrExit
myErrPass:
MsgBox ("Abbruch - Passwort falsch. Fahre mit nächster Datei fort")
 NoErrExit:
End Sub
Grüße,
Klaus M.vdT.
Anzeige
Funktioniert nun perfekt!!! Besten Dank!!!
01.10.2010 13:50:04
Bernd
Doch noch eine Kleinigkeit!
01.10.2010 14:02:11
Bernd
Hallo,
doch ein kleines Problem: Ich habe einige Dateien mit Verknüpfungen, bei Öffnen kommt dann jedesmal die Rückfrage bzgl. Aktualisieren (Ja/Nein) und der Code bleibt stehen. Auch das Speichern ohne Rückfrage sollte defaultmäßig aktiviert sein. Lassen sich diese Rückfragen ausschalten?
Gruß
Bernd

304 Forumthreads zu ähnlichen Themen

Makro, Verweis auf andere xls Dateien
Diego

Guten Morgen an alle,
ich hätte ein kleines oder großes oder kleines Problem, weiss ich leider nicht so genau, da ich mich nicht so gut auskenne in Excel oder VBA =(
Also mal zu meinem Problemchen, ich hoff einfach mal ihr könnt euch unter meiner Beschreibung etwas vorstellen und mir da...
13.02.2009 09:21:00
Thread-ID: 1050345
6 Beiträge
Anzeige
Call Makro aus anderer Datei
Hans

Hallo, wie kann man ein Marko das in einer anderen Datei ist ausführen?
Wenn ich per VBA in der Datei Test.xls "Call Marko1" (in der der Datei Daten.xls) ausführe kommt die Fehlermeldung
Fehler beim Kompelieren:
Sub oder Funktion nicht definiert.
Kann mit ja jemand weiterhelfe...
23.02.2010 14:28:33
Thread-ID: 1140705
2 Beiträge
Makro aus anderer Datei abrufen
Karsten

Hallo,
ich habe mal in einem Beitag gelesen, dass gleiche Makros, die für verschiedene Mappen verwendet werden, in einer Extradatei gespeichert werden können und trotzdem abgerufen werden können.
Da ich nicht weiß, um was es dabei geht und wie es heist, weiß ich auch nicht, wo nach ich...
22.11.2010 16:51:44
Thread-ID: 1188182
7 Beiträge
Anzeige
Makro Starten aus anderer Datei
Leitz

Hallo!
Habe ein Problem und im Archiv nichts gefunden!
Ich öffne in einem Makro eine zweite Excel Datei und ich möchte gerne ein Makro aus dieser zweiten Datei automatisch aus der ersten Datei starten.
Bitte um Hilfe
Gruß
Leitz G.
25.05.2011 14:09:07
Thread-ID: 1215972
6 Beiträge
Makro in anderer Datei starten
C

Hallo,
ich habe folgendes Problem:
Mit: Application.Run sWbname & "!Drucken" möchte ich das "drucken-Makro" in der Mappe sWbname starten.
Wenn die Mappe Test1 oder Test_1 heißt, klappt das, was muss ich aber machen, damit es auch mit Test-1 klappt?
Vielen Dank
Gruß
18.08.2011 21:42:56
Thread-ID: 1226673
2 Beiträge
Makro aus einer anderen Datei starten
Falo

Hallo zusammen, kann mir einer bei meinem Problem helfen.
ich lese den pfad der Datei aus, der Tab. System A5 aus. Und möchte das Macro(Berechnen)ausführen, kann mir einer einen Tipp geben.
Mit freundlichen Grüßen aus dem Sauerland.
Olaf
Private Sub DateiÖffnenP1_Click() Dim Pfa...
06.10.2014 01:36:45
Thread-ID: 1384979
4 Beiträge
Makro aus anderer Datei öffnen
weber

Hallo
Ich bin mit folgendem Problem am verzweifeln.
Ich habe eine Datei mit mehreren Makro geschrieben (Name: Bericht.xlsm).
Diese Makro funktionieren alle einwandfrei.
Wenn ich über eine andere Datei (Name: start.xlsm) diese Makro ausführe, funktioniert es auch einwandfrei.
...
08.02.2016 21:19:46
Thread-ID: 1474189
2 Beiträge
Makro in anderer Datei mit "with" starten
Björn

Hallo,
ich habe folgende Herausforderung:
In einer Arbeitsdatei werden Daten ermittelt und in eine sich ändernde Zieldatei übertragen. Nun soll nach einem Teil der Übertragung ein Makro in der Zieldatei ausgeführt und danach die restlichen Daten übertragen werden. Die Übertragung der Da...
29.09.2017 08:55:58
Thread-ID: 1583343
5 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
5
4
1
6
2
5
1
3
1
4
2
2
8
1
3
8
1
1
3
2
5
1
3
1
2