Hallo Zusammen,

ich bin dabei ein VBA-Makro zu schreiben und bräuchte hier bei einer Aktion Unterstützung.

Sub prüfen()
Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Object
Dim wkbrest As Worksheet, Found1 As Object
    
Set Wks1 = Sheets(1)
Set Wks2 = Sheets(2)

    
  If Not IsEmpty(Wks2.Cells(2, 3)) Then

     Set Found = Wks1.Columns(2).Find(Wks2.Cells(2, 3), LookIn:=xlValues, LookAt:=xlWhole)
    
     If Found Is Nothing Then
            
     Else
          MsgBox "Achtung: Mindestens 1 Arbeitsschritt betrifft alle Artikel! Matchvorgang gestoppt, bitte manuell prüfen.", vbInformation, "Hinweis"
          End If
          
        For Each wkbrest In Worksheets
        Next
        If wkbrest.Index > 2 Then
            Set Found1 = Wks2(Cells(2, 3).Find(wkbrest.Columns(4), LookIn:=xlValues, LookAt:=xlWhole))
        If Found1 Is Nothing Then
                     Exit Sub
            End If
          End If
        End If
End Sub

1. Es soll der Wert aus Tabellenblatt 2, Zelle C2 in Tabellenblatt 1 Spalte B gesucht werden. Bei einem Treffer soll die MsgBox ausgegeben werden - soweit so gut.

2. ZUSÄTZLICH soll danach noch dieser Wert im selben Workbook in allen Tabellenblätter ab dem zweiten gesucht werden und das Tabellenblatt, in dem der Wert gefunden wird sollen "aktiviert werden" und alle Zeilen von Spalte A:G sollen markiert werden in denen dieser Wert steht.

Falls der Wert im 1. Schritt nicht gefunden wird soll nichts passieren und das darauffolgende Makro ausgeführt werden. 

Komme hier irgendwie nicht weiter..Danke für jegliche Unterstützung!

Gruß,

Miked92