Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien mit Makros suchen

Dateien mit Makros suchen
20.04.2005 15:50:56
Bettina
Hallo,
ich möchte in Excel-Makros Änderungen vornehmen. Leider gibt es hier sehr viele Excel-Dateien und man kann ja bekanntlich nicht auf den ersten Blick erkennen, ob diese ein Makro beinhalten oder nicht.
Gibt es eine Möglichkeit, diese Dateien zu erkennen und eine Liste mit Dateinamen und Pfad auszugeben?
Vielen Dank im Voraus.
Bettina

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

Betreff
Datum
Anwender
Anzeige
AW: Dateien mit Makros suchen
20.04.2005 16:20:34
Rolf
Hallo Bettina,
wenn du Bettina Steinbeck bist,
hattest du kürzlich von mir einen
Code bekommen, der die Verweise einer Datei ausgibt
siehe
https://www.herber.de/forum/archiv/596to600/t597867.htm#597867
den könntest du um diese CodeCheck-Funktion, der du als Argument
den Dateinamen (Prämisse: Datei ist geöffnet) übergibst ergänzen.
fG
Rolf
'Code-Check

Function CodeCheck(wb As String) As Boolean
On Error GoTo protected
Dim vb, vbc As Object
Dim cl
cl = 0
Set vb = Workbooks(wb).VBProject.VBComponents
For Each vbc In vb
cl = cl + vbc.CodeModule.CountOfLines
If cl > 0 Then
CodeCheck = True
Exit Function
End If
Next
CodeCheck = False
Exit Function
protected:
If Err.Number = 50289 Then
CodeCheck = True
Else
MsgBox "Beim Codecheck ist ein Fehler aufgetreten" & Chr(10) & _
"Das Programm wird beendet"
End
End If
End Function

Anzeige
AW: Dateien mit Makros suchen
20.04.2005 16:24:25
Bettina
Ja, das bin ich.
Was ist mit "(Prämisse: Datei ist geöffnet)" gemeint? Es sollte, wenn möglich wie auch beim ersten Problem nur ein Verzeichnis angegeben werden müssen.
Aber es ist prinzipiell möglich, herauszufinden, ob eine Datei ein Makro enthält oder nicht?
LG

307 Forumthreads zu ähnlichen Themen

Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Anzeige
Blatt öffnen - Makro ausführen
Frank

Hallo Zusammen!
Meine Frage: Wenn ich z.B. in einer Arbeitsmappe Tabelle5 öffne soll ein Makro ausgeführt werden. Wie muss die Befehlzeile hierfür aussehen?
Ich hoffe, es weiß jemand Rat!!! Danke!!!
Gruß Frank H.
10.09.2009 09:49:43
Thread-ID: 1101676
3 Beiträge
Visio Datei öffnen und makro ausführen
Thomas

Hallo liebe VBA Gemeinde
Diesmal habe ich ein Schnittstellenproblem. Und zwar möchte ich aus Excel über einen Button eine Visio Datei aufrufen/öffnen (ist im gleichen Verzeichnis) und ein dort gespeichertes Makro ausführen (call Auswahl).
Das Makro benötigt die Variable "AKZ" die von E...
29.09.2009 12:14:45
Thread-ID: 1106163
4 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Makro beim Blattwechsel ausführen ..
WalterK

Hallo,
den Code in der beigefügten Mappe habe ich aus diesem Forum, es wird das Blatt INHALT angelegt und dort werden dann alle Blätter aufgelistet. Funktioniert auch tadellos.
https://www.herber.de/bbs/user/65643.xls
Ich hätte es jetzt gerne so, dass der Code immer beim Öffnen der...
07.11.2009 02:34:11
Thread-ID: 1115131
4 Beiträge
Datei mit bestimmten Namen öffnen
Holla

Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn m...
13.11.2009 12:40:42
Thread-ID: 1116875
6 Beiträge
Anzeige

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
10
3
5
3
2
3
1
3
5
3
2
3
10
5
2
14
2
2
3
2
5
4
15
6