Ich habe hier ein Makro mit dem ich einen Bereich nach einen Wert aus meiner inputbox durchsuche.
ich bekomme es aber nicht hin, den gefundenen Wert bzw. die ganze Zeile zu makieren.
ich würde mich über eine Unterstützung freuen!
Hat jemand eine Idee dazu?
Private Sub CommandButton2_Click()
Dim rngC As Range, strTitel As String, strZelle As String
strTitel = InputBox("Welcher Titel wird gesucht?", "Buchtitel")
For Each rngC In UsedRange
If rngC = strTitel Then
strZelle = rngC.Address
End If
Next
If strZelle = "" Then
MsgBox "Dieser Titel ist nicht vorhanden"
Else
'wenn dieser Wert aus der msgbox gefunden wurde, dann ganze Zeile makieren?
End If
End Sub
Gruß Lisa