Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste