2 Code zusammenbauen
10.03.2023 15:39:52
Marcus
ich habe 2 Codes die ich zusammenbauen müsste nur wie?
1 Code ist dafür da das alle Arbeitsblätter durchgearbeiten werden anhand vom 2ten Code
Public Sub RunThroughWorkSheets()
Dim WsTab As Worksheet
For Each WsTab In Sheets
WsTab.Activate
'Do something
Next WsTab
End Sub
2 Code markiert alles Suchergebnisse in Farbe
Sub FindRange()
'UpdatebyExtendoffice20190813
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
xVrt = Application.InputBox(prompt:="Search:", Title:="FKT")
If xVrt > "" Then
Call Schleife
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="Cannot find this value", Title:="FKT"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
xRg.Interior.ColorIndex = 8
xRsp = MsgBox(prompt:="Farbe wieder zurücknehmen?", Title:="FKT", Buttons:=vbQuestion + vbOKCancel)
If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone
End If
End If
End Sub
Kann mir da einer helfen bitte?
Gruß
Marcus
