Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

neue Makros in Dateien übernehmen

neue Makros in Dateien übernehmen
17.09.2008 14:23:49
josef
Hallo Leute!
Es gibt 18 Excel-Listen, welche alle die gleichen Makros (auto-open, auto-close) hinterlegt haben.
Diese Listen werden von verschiedenen Personen bearbeitet und sind somit für mich nicht immer zugänglich.
Bei Änderung in diesen Makros muss ich nun immer warten, bis die Dateien für mich zugänglich sind, dann kann ich bei allen 18 Dateien das Modul (auto) löschen und das überarbeitete Modul (auto) einspielen.
Gibt es eine Möglichkeit diese Arbeiten so zu automatisieren, dass die Aktion z.Bsp. über einen Button (neue Makros übernehmen !) aufgerufen und abgearbeitet werden kann?
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: neue Makros in Dateien übernehmen
17.09.2008 16:31:16
Leonhard.Stempfle
Hallo Josef,
mit dem untenstehenden Code ersetze ich Module oder Userforms in mehreren Dateien.
Gruß Leo

Sub ObjektInAllenDateienErsetzen()
Application.ScreenUpdating = False
'Programmbeschreibung
'Entfernt in allen Exceldateien welche sich im selben Verzeichnis befinden das gewählte
Objekt und ersetzt es durch das neue Objekt. Code von VBA aus starten
Dim Objekt As String
Dim Pfad As String
Dim Mappe As String
Dim NewCode As String
Objekt = "Userform1" ' Name von Modul oder Userform als String eingeben
Pfad = ThisWorkbook.Path & "\"
NewCode = ThisWorkbook.Path & "\" & (Objekt) & (".bas")
'Beginn das Objekt aus den Dateien zu entfernen
Mappe = Dir(Pfad & "*.xls")
Do While Mappe  ""
On Error Resume Next
If Mappe = ThisWorkbook.Name Then GoTo Weiter1
Workbooks.Open Mappe
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents(Objekt)
End With
ActiveWorkbook.Save
Weiter1:
Mappe = Dir
Loop
'Ende das Objekt aus den Dateien zu entfernen
'Beginn Alle Dateien wieder schließen
Mappe = Dir(Pfad & "*.xls")
Do While Mappe  ""
If Mappe = ThisWorkbook.Name Then GoTo Weiter2:
Workbooks(Mappe).Close
Weiter2:
Mappe = Dir
Loop
'Ende Alle Dateien wieder schließen
'Beginn Objekt aus dieser Mappe exportieren
Application.VBE.ActiveVBProject.VBComponents(Objekt).Export NewCode
'Ende Objekt aus dieser Mappe exportieren
'Beginn Objekt in alle Mappen einzufügen
Mappe = Dir(Pfad & "*.xls")
Do While Mappe  ""
If Mappe = ThisWorkbook.Name Then GoTo Weiter3
Workbooks.Open Mappe
With Workbooks(Mappe)
.Application.VBE.ActiveVBProject.VBComponents.Import NewCode
.Save
End With
Weiter3:
Mappe = Dir
Loop
'Ende Objekt in alle Mappen einzufügen
'Beginn Kopie von Modul1 löschen
Kill (Pfad) & ("*.bas")
Kill (Pfad) & ("*.frx")
Kill (Pfad) & ("*.log")
'Ende Kopie von Objekt löschen
'Beginn Alle Dateien wieder schließen
Mappe = Dir(Pfad & "*.xls")
Do While Mappe  ""
If Mappe = ThisWorkbook.Name Then GoTo Weiter4:
Workbooks(Mappe).Close
Weiter4:
Mappe = Dir
Loop
'Ende Alle Dateien wieder schließen
Application.ScreenUpdating = True
End Sub


Anzeige
AW: neue Makros in Dateien übernehmen
17.09.2008 17:05:39
josef
Hallo Leo,
Danke für die Unterstützung.
Ich versuche gerade den code so umzuändern, dass ich das nun zu ändernde projekt vorbereite mit
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents(Objekt)
End With
nun kommt die meldung: "Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher"
? Was heißt das ? die Hilfe zeigt nichts an ?!
Josef
AW: neue Makros in Dateien übernehmen
17.09.2008 17:27:00
josef
Hallo Leo,
hab den Fehler gfunden - funktioniert.
Danke
Josef

300 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
3
4
3
2
5
4
13
7
3
1
4
12
4
1
9
2
2
6
3
5
3
2
3
3
7