ich möchte unterschiedlich viele Tabellenblätter löschen. In den VBA-Beispielen fand ich einen Code, den ich auf meine Situation angepasst habe. Leider klappt das so nicht. Woran könnte das liegen. Hier mein Code:
Sub TabellenblätterEntfernen()
Dim i, iAnzahl, iCol As Integer
Dim Txt As String
iCol = Range("Relevanz.Zusammenfassung").Column
iAnzahl = WorksheetFunction.CountA(Columns(Range("Relevanz.Zusammenfassung").Column)) - 1
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To iAnzahl
Txt = Right(Range("Relevanz.Zusammenfassung").Offset(i, 0).Value, _
Len(Range("Relevanz.Zusammenfassung").Offset(i, 0).Value) - 6)
Worksheets(Txt).Delete
Next i
On Error GoTo 0
Application.DisplayAlerts = True
Tabelle1.Select
End Sub
Siegfried