Arbeitsblattname suche
16.11.2004 19:00:35
ChrisNa
ich möchte in einer for schleife einen Wert Range("A2") in eine Liste schreiben und zwar von allen Arbeitsblättern dessen Name die ersten vier Anfangszeichen " XYZ_ " enthält.
Vorgestellt hatte ich mir des so:
sheetcount = 0
If ThisWorkbook.Worksheets.Count > 0 Then
sheetcount = ThisWorkbook.Worksheets.Count
End If
ReDim Liste(sheetcount)
For i = 1 To sheetcount
If ThisWorkbook.Worksheets(i).Name = "XYZ_" Then
Liste(i) = ThisWorkbook.Worksheets(i).Range("A2").Value
End If
Next
allerdings sucht er dann immer genau nach "XYZ_". Die Namen der Arbeitsblätter sind aber länger z.B. "XYZ_0005" , "XYZ_0006"
Wie konnte man den im Arbeitsblattnamen nach bestimmten zeichen suchen?
Danke im voraus!
gruß ChrisNa