WENN startet Makro
22.02.2014 11:02:09
Gerald
ich bin (neu hier) auf der Suche nach der Fehlerquelle für folgendes Problem:
-----------------------------------------------------------------------------
(D54)=WENN(D53>10;GewinnKopieren();"NEIN")
D53 berechnet eine Summe aus 2 anderen Zellen. Das Ergebnis ändert sich fortlaufend.
Steigt der Wert über 10 wird die Funktion GewinnKopieren() angesprochen.
Die MsgBox poppt auf mit "GewinnKopieren". Soweit, so gut.
Ich bestätige mit OK.
Das Makro im Modul1 GewinnKopieren() läuft jedoch nicht durch.
Ich kommentiere die MsgBox aus. Gleiches geschieht (nichts).
Wenn ich den Code direkt (oder schrittweise mit F8) in VB anstoße, funktioniert es einwandfrei, aber nur einmal.
Mit F8 weiter bei "End Sub " im Makro springt es nochmal zur Funktion, zeigt wieder die MsgBox, läuft durch das Makro, kopiert dann aber nicht mehr aus D53 (im Sheet kann ich sehen, daß die anzuspringenden Zellen nicht fokussiert werden).
Ich hoffe auf die Hilfe in Forum.
Vorab schon mal besten Dank
Gerald
Hier der Code:
Funktion
-----------------------------------------------------------------------------
Public Function Gewinn() 'dies ist die Funktion die das Makro aufruft 'das Makro hat den Namen "GewinnKopieren" MsgBox "GewinnKopieren" call GewinnKopieren 'mit und ohne call getestet End Function ------------------------------------------------------------------------------
Modul1 (Code)
------------------------------------------------------------------------------
Sub GewinnKopieren()
' GewinnKopieren Makro
' Tastenkombination: Strg+g
' Kopiert ZellenWert (D53) nach Spalte 5 in die nächste leere Zelle
Range("D53").Select
Selection.Copy
Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub