Makro-Problem ( für mich zumindest..smile)
16.09.2005 11:25:30
Astrid
wünsch euch einen wunderschönen Freitag Morgen!
Ich hab ein Problem:
in dem nachfolgenden Makro, das auch super funtioniert, wird ein Wert in eine entsprechende Zeile per Eingabemaske übertragen.
Private Sub TerminvereinbarungZiel_Change()
Dim rng As Range
Dim Zahl As Integer
Set rng = Range("A6:A59").Find(Woche)
Zahl = TerminvereinbarungZiel
If Not rng Is Nothing Then
rng.Offset(0, 13) = Zahl
Else: End If
End If
End Sub
Nun möchte ich folgende Möglichkeit schaffen:
Wenn das Feld (über eine Eingabemaske) nicht ausgefüllt wird, also leer bleibt, dann soll eine Rechenoption greifen nach dem Motto:
=WENN($C7>=0;($C7+$E7+$G7);"")
Wie muss ich das in das Makro einbauen, ggfs. das Makro umschreiben, das es auch funktionert?
Dabei hat die Rechenoption vorrang, und die Möglichkeit, eine andere Zahl manuell zu überschreiben , ist die nachfolgende Möglichkeit.
Kann mir jemand das Makro so umschreiben? ich hab schon soviel versucht, aber nichts hat geklappt...leider..
Für jede Hilfe bin ich dankbar!
gruss Astrid