Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, welche Tabellenblätter aus einer Liste vorhanden sind

Gruppe

Liste

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