mappen nach blatt durchsuchen
13.02.2005 12:00:41
andi
habe gestern folgendes Makro von Boris erhalten:
Option Explicit
Sub blatt_vorhanden()
Dim Ws As Worksheet, Wb As Workbook, strWb As String
Dim bolExist As Boolean
Dim strSheet As String
strSheet = "Hallihallo" 'Der Name des gesuchten Blattes
For Each Wb In Workbooks
For Each Ws In Wb.Worksheets
If Ws.Name = strSheet Then
bolExist = True
strWb = Wb.Name
Exit For
End If
Next Ws
Next Wb
If bolExist Then
MsgBox "Blatt " & strSheet & " gefunden in " & strWb, , "Treffer..."
Else
MsgBox "Blatt " & strSheet & " nicht gefunden...", , "Fehlanzeige"
End If
End Sub
Funktioniert auch wunderbar, allerdings kommt jetzt mein Problem: Es müssen alle Mappen geöffnet sein um das Blatt zu suchen.
Habe eigentlich aus einer Mappe 3 gemacht. Die eine Mappe hatte 10 kb...
Ich wollte die Geschwindigkeit verbessern. Nun müssen ja auch alle 3 offen sein, um zu suchen. Dann hat dies ja nichts gebracht.
Gibt es eine Möglichkeit, erst die eine Mappe zu durchsuchen(also nur die Erste öffnen), bei Fund abbrechen und Blatt selektiern, sonst nächste Mappe öffnen, durchsuchen usw.
Gibt es sicher, bloss ich komme nicht drauf...
Wer kann mir helfen?
Grüße Andi