Private Sub Software_click()
Dim strWert As String
Dim strSuche As String
Dim rngFound As Range
Dim rngFound1 As Range
Dim strFirstAddress As String
Dim strNextAddress As String
Dim zeile As Variant
Dim wzeile As Variant
Dim i As Integer
strWert = Tabelle1.Software
If strWert = True Then
strWert = "Software"
suche strWert
End If
If rngFound Is Nothing Then
Range("B12:G19").Select
Selection.Interior.Color = RGB(255, 255, 255)
Exit Sub
End If
End Sub
Sub suche(strWert As String)
Dim rngFound As Range
Set rngFound = Columns(7).Find(What:=strWert, After:=Cells(Rows.Count, 7), LookIn:=xlValues, LookAt:=xlWhole)
strFirstAddress = rngFound.Address
Do
wzeile = Split(rngFound.Address, "$")
zeile = "B" & wzeile(2) & ":" & "G" & wzeile(2)
Range(zeile).Interior.Color = RGB(200, 160, 35)
Set rngFound = Columns(7).FindNext(rngFound)
wzeile = Split(rngFound.Address, "$")
zeile = "B" & wzeile(2) & ":" & "G" & wzeile(2)
Range(zeile).Interior.Color = RGB(200, 160, 35)
Loop While rngFound.Address <> strFirstAddress
End Sub