VBA Find in D ergänze in H

[Tom2020]

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

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

[Klaus-Dieter]

Hallo Tom,

es wäre einfache zu helfen, wenn du eine Beispieldatei hochladen würdest. 

In deinem Quelltext sind grundsätzliche Fehler, bzw. ist nicht alles erkennbar:
CompanyName ist zum Beispiel eher eine Variable, die gehört dann nicht in Anführungszeichen

Ähnliches gilt für diese Zeile: .Range("H" & i).Value = "+2%" Das müsste etwa so aussehen: .Range("H" & i).Value = .Range("H" & i).Value*0,02

[Egon12]

Hallo Tom,

wenn die 2% nicht berechnet, sondern nur hinten angefügt werden soll, dann vielleicht so:

Code:

Sub Val05()
    Dim CompanyName As String
    CompanyName = InputBox("exakten Namen der Firma eingeben")
   
    For i = 1 To 1500
        With Sheets("Debit")
            If .Range("D" & i) = CompanyName Then _
            .Range("H" & i) = .Range("H" & i) & " +2%"
        End With
    Next i
End Sub

Gruß Uwe

[Tom2020]

Hallo Uwe,

danke für dein Feedback.
 
Hier das Beispiel,

Spalten B, C, E, F und G sind mit Daten befüllt.

die Spalte H wird später als Währung (US oder CA $) formatiert sein und nicht als string/text

US/CA $ -> Down in -
US/CA $ -> up in +

[Egon12]

schreibe bitte mal in die Tabelle in z.B.: zwei/drei Zeilen sinnvolle Werte rein und das tatsächlich gewünschte Ergebnis in die dazugehörigen Zellen in Spalte H.

Dann kann man dir problemlos da was zusammenstellen.

Gruß Uw

[Tom2020]

Hallo Uwe,

ich denke dass dein Vorschlag hier vollkommen ausreicht, ich komme damit gut zu recht. Danke für deine Arbeit.

beste Grüsse

tom