Eine Worksheet-Collection basteln
14.06.2004 12:12:15
Isabella
ich komme hiermit nicht weiter: Aus einer bestimmten Anzahl Arbeitsblätter, die beliebig im Workbook verteilt sind, aber deren Name immer mit "MT" anfängt, will ich eine eigene Worksheet-Collection basteln, da ich quer über diese Sammlung immer wieder Werte anfassen muß, die in derselben Zelle stehen.
Kodiert ist folgendes:
Dim intSheetCt, intMappingCt As Integer
Dim wscMappingTables as Worksheets
For intSheetCt = 1 To Sheets.Count
If Left(LTrim(Sheets(intSheetCt).Name), _
(Len(LTrim(Sheets(intSheetCt).Name)) - 1)) = "MT" Then
Set wscMappingTables.Add = Sheets(intSheetCt)
intMappingCt = intMappingCt + 1
End If
Next
Vielen Dank für jeglichen Hinweis im voraus.
Grüße, Isabella