Teiltextsuche
manu
ich möchte ein Inhaltsverzeichnis erstellen, welches nur die Tabellenblätter auflistet die auf ".1" enden.
Ein Inhaltsverzeichnis kann ich erstellen, aber ich weiß nicht wie ich nach dem ".1" suchen kann.
'Sorry, Datei hochladen hat einen Fehler gebracht
Sub Inhaltsverzeichnis()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhaltsverzeichnis"
Cells(2, 2).Value = "Übersicht"
i = 4
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name "Inhaltsverzeichnis" Then
Cells(i, 2).Value = Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub
Ich denke das es doch möglich sein müsste bei "If Tabelle.Name ..." noch ein "And..." dran zu hängen, aber ich bekomme das einfach nicht hin.Weiß einer von euch da etwas?
LG
Manu