|
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
|