Mittels VBA in Spalte suchen;Zellen in Zeile erset
cirilfab
Habe ein File mit einer UserForm. Dor kann ich die Bestandteile einer Liste (Spalte A) per dropdown anwählen. Nun möchte ich, wenn eine checkbox in der UserForm angewählt wird, dass nach dem ausgwähltem Bestandteil in der USerform gesucht wird und alle in der gleichen Zeile, wie das Ergebniss, befindliche "x" gegen "-" ausgetauscht werden. Leider tauschts bei mir alle in der Tabelle "x" gegen "-". Was mach eich falsch?
Private Sub Checkbox2_Click()
If ComboBox1.Value = "" Then
MsgBox "Bitte betroffenes Dokument anwählen!", vbExclamation
CheckBox2.Value = False
Else
If CheckBox2.Value = True Then
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
Dim a As Variant
a = 0
If ComboBox1.Value = Cells(i, 1) Then
a = Cells(i, 4)
Cells.Replace What:="x", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows
End If
Next
Sheets("Eingabemaske").Activate
End If
End If
End Sub
Danke für die Hilfe.
Anzeige