formel durch makro automatisch ersetzen
24.06.2006 00:20:25
Dörte
ich habe nun zig Stunden mit meiner Reserche im Archiv verbracht und bin doch kein Stück weiter. Vielleicht kann mir ja jemand helfen.
A1 = Artikelnummer B1 =WENN(ISTZAHL(A1);SVERWEIS(A1;Grund;2;FALSCH);"")
nun möchte ich, das B1 automatisch über ein makro reagiert und in VBA diese formel ausführt.
mein code hierfür: im Klassenmodul
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then
Call Makro1
End If
End Sub
mein code hierfür: im Modul
Sub Makro1()
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(RC[-1]),VLOOKUP(RC[-1],Grund,2,FALSE),"""")"
End Sub
Das funktioniert soweit auch alles. Allerdings möchte ich vermeiden, das sich die Datei unnötig aufplustert und dachte es über VBA erreichen zu können. Leider wird durch diesen Code immer noch die Formel in Zelle B1 eingetragen.
Vielleicht kann mir ja jemand helfen.
PS: Dieses Forum finde ich übrigens super. Vieles erledigt sich schon durch die Reserche. Dickes Lob an Herber
Gruß Dörte