ich habe mal wieder ein Problem.
Ich möchte über eine Userform oder Inputbox einen Test in z. B. Spalte A suchen und wenn gefunden (könnte auch mehrmals vorkommen), dann die Werte in der Spalte C ersetzen. Ich habe zwar den VBA-Code gefunden, allerdings würde ich das gerne über eine Inputbox machen. Könnt ihr mir helfen? Mein aktueller Code lautet:
'
Private Sub CommandButton3_Click()
With Worksheets("Tabelle1").Range("a:a")
Set c = .Find("Suchbegriff", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(c.Row, c.Column + 2) = "Neuen Wert eingeben"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
'