Sheetname nicht immer gleich
08.12.2004 15:55:20
Danilo
hab eine Frage zum Sheetnamen.
Ich lese mit meinem Makro sehr viele Sheets aus, nun habe ich aber zufällig festgestellt das einige Sheets nicht ganz so heißen.
Gibt es eine Möglichkeit beim angeben des Sheetnamens nur z.B. die ersten drei Buchstaben anzugeben?
Sheetname sollte eigentlich sein: KdDaten
Einige Sheets die ich gefunden habe heissen aber: KdData oder KdAdress
Da es sich um sehr viele Sheets handelt die ich auslese ist der Aufwand alle zu prüfen sehr hoch.
Noch kurze Info, in den Mappen wo sich die Sheets befinden existieren mehrere Sheets mit unterschiedlichen Namen.
Hier mal mein Makro:
Sub Sheets_auslesen()
On Error Resume Next
Dim i As Long
Dim lRow As Long
Const verz = "C:\alle Kunden\"
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
Sheets("KdDaten").Activate '----------> hier muss was geändert werden
Range(Range("A5"), Range("A5").End(xlDown)).EntireRow.Select
Selection.Copy
Workbooks("Mappe1.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
quelle.Saved = True
quelle.Close
Next y
End Sub