Gruppe
Allgemein
Bereich
Liste
Thema
Prüfung, welche Tabellenblätter aus einer Liste vorhanden sind
Problem
Wie kann ich prüfen, welche Tabellenblätter aus einer Liste in Spalte A in der aktiven Arbeitsmappe enthalten sind?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: modMain
Sub TabellenPruefen()
Dim wks As Worksheet
Dim rng As Range
For Each wks In ThisWorkbook.Worksheets
On Error Resume Next
Set rng = Worksheets("Tabelle1").Columns("A").Find( _
wks.Name, lookat:=xlWhole, LookIn:=xlValues)
If Err > 0 Or rng Is Nothing Then
Err.Clear
Else
rng.Offset(0, 1) = "X"
End If
On Error GoTo 0
Next wks
End Sub