Versuch in VBA

Question

Hallo Leute,

ist eventuell garnicht so schwer für einen Spezialist, ich bin schon eine Weile an Werkeln, bekomme das Ding nicht gebacken.

Hier mein "Problem":

Wenn in meiner Excel-Datei in Spalte "A1:A200" der Wert "-3,50" auftaucht, dann soll in Spalte "E1:E200", in der selben Zeile, ein Text "ABCD" geschrieben werden.

Ich würde mich freuen wenn jemand helfen könnte.

Für eure Bemühungen besten Dank im voraus.

MfG
Odje

Answer 1

Hallo,

Formel für E1 und runter ziehen.

=WENN(A1=-3,50;"ABCD";"")

Gruß
Rainer

Answer 2

Hallo Rainer,

mit dieser Formel habe ich es schon probiert.
Beim runter ziehen werden sämtliche Einträge in er Spalte "E" gelöscht.
Darum mein Versuch es mit VBA zulösen!!!!!

Gruß
Odje

Answer 3

Hallo,

das geht mit folgendem Code

Option Explicit

Sub TextInE()
Dim rngC As Range
For Each rngC In Range("A1:A200")
If rngC.Value = -3.5 Then rngC.Offset(0, 4).Value = "ABCD"
Next
End Sub

Gruß
Rainer

Answer 4

Hallo Rainer,

paßt wackelt und hat Luft!

Dein Makro eingebaut, Datei läuft einwandfrei.

Habe Dank für deine Hilfe

Gruß
Odje