26.12.2021, 10:11
Hallo und frohe Weihnachten,
mit dem Code unten versuche ich in Spalte D, wo CompanyName (Klein- Großschreibung ist egal) vorkommt, den Wert in Spalte H, dazugehörige Zelle mit dem Wert +2% ergänzen.
als Beisp.:
In D6 steht zb.: Mit der Buchung bekommt die Firma Jojo ltd die geringe Kondition für ….
Findet der Code den Namen ergänzt in der Zelle H6 den Wert +2%
Danke für die Hilfe
mit dem Code unten versuche ich in Spalte D, wo CompanyName (Klein- Großschreibung ist egal) vorkommt, den Wert in Spalte H, dazugehörige Zelle mit dem Wert +2% ergänzen.
als Beisp.:
In D6 steht zb.: Mit der Buchung bekommt die Firma Jojo ltd die geringe Kondition für ….
Findet der Code den Namen ergänzt in der Zelle H6 den Wert +2%
Danke für die Hilfe
Code:
Sub Val05()
For i = 1 To 1500
With Sheets("Debit")
If .Range("D" & i).Value = " CompanyName " Then _
.Range("H" & i).Value = "+2%"
End With
Next i
End Sub