Abfrage zwischen Zellinhalt und Arbeitsblättern

Forumthread: Abfrage zwischen Zellinhalt und Arbeitsblättern

16.08.2024 13:52:37

Thomas

Hallo zusammen

Ich hoffe die letzte benötigte Hilfe in diesem Fall ;-)

Ich habe ein Inhaltsverzeichnis, Tabellenblattname "Inhaltsverzeichnis", wo in der Spalte A:A Nummern stehen.
Zu jeder Nummer, sollte es auch ein Tabellen-Blatt geben, Name=Nummer.

Kann man eine Überprüfung einbauen, wo der Bereich A:A mit den Namen der Tabellenblätter abgleicht und fehlende im Inhaltsverzeichnis markiert?
Markierung z.b Rot unterlegt.

Gibt eine solche Möglichkeit, als VBA Script z.b?

Danke schön

Gruß
Tommy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfrage zwischen Zellinhalt und Arbeitsblättern

16.08.2024 14:02:07

Hola,
markiere deine Werte in Spalte A (ich rate mal: die Daten beginnen in A2).
Start - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung....

=ISTFEHLER(INDIREKT("'"&A2&"'!A1"))

Gruß,
steve1da

AW: Abfrage zwischen Zellinhalt und Arbeitsblättern

16.08.2024 14:31:22

Thomas

Ich habe diesen Code gefunden, leider ist das Ergebnisfenster ohne Scrollbar.
Kann man die Größe des Ergebnisfenster vorgeben und stattdessen eine Scrollbar nutzen?

Sub CheckSheetsForCellRange1()

    Dim ws As Worksheet

    Dim cell As Range

    Dim cellRange As Range

    Dim sheetExists As Boolean

    Dim missingSheets As String

    

    ' Definiere den Zellbereich (z.B. A1 bis A10 in Tabelle1)

    Set cellRange = ThisWorkbook.Sheets("Inhaltsverzeichnis").Range("H4:H200")

    missingSheets = ""

    

    ' Durchlaufe jede Zelle im definierten Bereich

    For Each cell In cellRange

        sheetExists = False

        ' Überprüfe alle Tabellenblätter

        For Each ws In ThisWorkbook.Sheets

            If ws.Name = cell.Value Then

                sheetExists = True

                Exit For

            End If

        Next ws

        

        ' Wenn kein Tabellenblatt gefunden wurde, füge den Zellwert zur Liste der fehlenden Blätter hinzu

        If Not sheetExists Then

            missingSheets = missingSheets & cell.Value & vbCrLf

        End If

    Next cell

    

    ' Ergebnis anzeigen

    If missingSheets = "" Then

        MsgBox "Für alle Zellen im Bereich gibt es entsprechende Tabellenblätter."

    Else

        MsgBox "Für folgende Zellen gibt es keine entsprechenden Tabellenblätter:" & vbCrLf & missingSheets

    End If

End Sub

AW: Abfrage zwischen Zellinhalt und Arbeitsblättern

16.08.2024 16:16:12

Danke für das Feedback zu meinem Vorschlag.

AW: Abfrage zwischen Zellinhalt und Arbeitsblättern

16.08.2024 16:42:12

Thomas

Sorry, hatte deinen Eintrag gelesen aber zwischenzeitlich diesen Code gefunden.

Werde aber am Montag noch mal Deinen Vorschlag ausprobieren.

Danke dafür.

Schônes Wochenende

Gruß
Thomas

Beliebteste Forumthreads (12 Monate)

Abfrage zwischen Zellinhalt und Arbeitsblättern

Forumthread: Abfrage zwischen Zellinhalt und Arbeitsblättern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread