ich habe ein problem mit einem Script, welches mir alle Worksheets meiner Arbeitsmappe in die tabelle Übersicht untereinander auflistet. Das Script lautet:
Sub Blattlist()
Dim wks As Worksheet
Dim i As Integer
Set wks = Worksheets("Übersicht")
For i = 2 To Worksheets.Count
If Worksheets(i).Name <> wks.Name Then
wks.Cells(i, 1) = Worksheets(i).Name
wks.Cells(i, 2) = Worksheets(i).Range("A1")
wks.Cells(i, 3) = Worksheets(i).Range("A2")
wks.Cells(i, 4) = Worksheets(i).Range("A3")
End If
Next i
End Sub
soweit sogut - ich möchte nur zwei zusätzliche Features einbaun, die ich nicht hinbekomme.
Zum einen soll es nur Worksheets auswählen die mit zwei bestimmten Buchstaben beginnen - also Worksheets die mit "RE" anfangen - die restlichen KV soll er übergehen und nicht auflisten.
Zum zweiten möchte ich das er auch einen direkten Hyperlink zu genau diesem Worksheet erstellt. Der Variable .name müsste also direkt auf der Übersicht in der der Blattname erscheint verlinkt werden.
ich danke schonmal im voraus für die Mühe