Office: Suche Macro: Suche Werte größer x und Ersetze durch y

Hallo,

ich kenne mich mit VBA und Macros nur begrenzt aus. Ich suche ein Macro welches folgende Funktion hat:

"Suche in Tabelle1!A:A alle Werte die > Tabelle2!B11 und ersetze durch Tabelle2!B7"

Ist bestimmt ganz einfach, ich bin diesbezüglich aber totaler Anfänger! :roll:
Evtl. kann mir ja jemand schnell und hilfreich zur Seite stehen...


Gruß,
Dennis.

 

Hi Dennis,

Code:

Sub Ersetzen()
    Dim loZeile As Long
    loZeile = 1
    With Worksheets("Tabelle1")
        Do
            If .Cells(loZeile, 1) > Worksheets("Tabelle2").Range("B11") Then
                .Cells(loZeile, 1) = Worksheets("Tabelle2").Range("B7")
            End If
            loZeile = loZeile + 1
        Loop While .Cells(loZeile, 1) <> ""
    End With
End Sub

Vorausgesetzt wird, dass in Spalte A keine Leerzellen vorkommen.

Bis später,
Karin

 

Hallo!

Alternativ reicht auch eine einfache WENN-Formel in einer Hilfsspalte:
=WENN(A1>Tabelle2!B$11;Tabelle2!B$7;A1)

Dann die Formeln in Festwerte wandeln und Spalte A durch diese Werte ersetzen.
Aber das macht natürlich nur dann Sinn, wenn du diesen Vorgang nur einmalig, also nicht immer wieder brauchst.

 

Hallo Beverly,

dein angegebenes Macro funktioniert einwandfrei! Vielen Dank!
Danke auch an dich, Schatz, die Formel funktioniert auch gut, will es aber mit Macro realisieren! Danke euch Beiden! :-D