Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1184to1188
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
Inhaltsverzeichnis

Schleife

Schleife
Tommy
Hallo zusammen,
ich bin gerade dabei eine Schleife zu erstellen und weiß nicht weiter.
Hoffe einer von Euch kann mir da weiter helfen? :)
Ich habe einen Teil an geöffneten Dateien die alle mit der Bezeichnung "laufender Monat ..... .xls" (hinter laufender Monat verbirgt sich noch immer eine Monats- und Standortbezeichnung) gekennzeichnet sind. Unter den geöffneten Dateien können auch schon mal andere dabei sein die eine andere Bezeichnung tragen und NICHT bearbeitet werden sollen. Alle "laufender Monat .." Dateien sollen über call makro_xyz bearbeitet werden. Wenn keine Datei mehr mit der Bezeichnung vorhanden ist, soll die Schleife ins Ende laufen.
Ich weiß einfach nicht wie ich das in der Schleife schreiben soll.
ich dachte an so etwas:

Sub test()
do
If Windows("laufender Monat*.xls").Activate Then
call makro_xyz
ActiveWindow.ActivateNext
Else:
exit Sub
End If
loop
End Sub

Vorab vielen lieben Dank für Eure Hilfe.
LG
Tommy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife
15.11.2010 10:05:20
Rudi
Hallo,
etwa so:
Sub test()
Dim wkb As Workbook
For Each wkb In Workbooks
If LCase(wkb.Name) Like "laufender monat*" Then
wkb.Activate
Call makro_xyz
End If
Next wkb
End Sub

AW: Schleife
15.11.2010 10:12:08
Tommy
Rudi Maintaire, vielen vielen Dank!!!! Hat geklappt.. :))))) *freu*
LG
Tommy
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige