ich möchte gerne, dass wenn eine bestimmte Bedingung erfüllt ist ein Makro startet, dass dann nichts anderes tut, als den Inhalt einer Zelle in eine andere zu kopieren.
Aufgerufen wird das Makro durch die Funktion: =if(....;SaveValues(row(N2)), der gleichzeitig die Zeile mitgegeben wird in der die Bedingung erfüllt wurde.
Dadurch wird die SaveValues Funktion aufgerufen, die letztlich nur das Sub MakroSaveValues aufruft und ihm die Zeile übergibt:
Function SaveValues(row) As Boolean
MakroSaveValues (row)
End Function
Das Sub liest dann den Inhalt einer Zelle aus und soll ihn in die Nachbarzelle schreiben:
Sub MakroSaveValues(ByVal row2)
a = Worksheets("Sheet1").Cells(row2, 14).Value
Worksheets("Sheet1").Cells(row2, 15).Value = a
End Sub
Ich habe das Konstrukt schon ausgiebig mittels MsgBoxen getestest. Es funktioniert alles bis auf die Wertzuweisung im letzten Schritt. Hat einer von euch Rat an was dies liegen könnte? Wäre sehr dankbar für einen Tipp!