Clever-Excel-Forum

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

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

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

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 +

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

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

Tom2020

Klaus-Dieter

Egon12

Tom2020

Egon12

Tom2020