Problem mit Formeleinfügung
05.06.2004 20:38:59
Hans-Werner
meine Kenntnise in VBA lassen es noch nicht zu das ich das Problem alleine schaffe.
1. Wenn in Spalte L ein Datum eingetragen soll sich in Spalte M und N die unten aufgelistete Formel einfügen, wobei sich natürlich in jeder Zeile der Wert der Zeile ändert (L10,L11 usw.)
2.Wenn in Spalte O ein Datum eingetragen soll sich in Spalte P und Q die unten aufgelistete Formel einfügen.
Wer hilft mir?
Tschüs H.W Schmidt
Private Sub Worksheet_Change(ByVal Target As Range) 'automatisches kopieren von zellen sobald ein Wert in Spalte L gefüllt wird. On Error GoTo ErrorHandler 'Fehlerbehandlung If Not Intersect(Target, Range("L9:L10000")) Is Nothing Then Target.Offset(0, 1).FormulaR1C1 = nachstehende Formel in Spalte M '=WENN(L10="";"";WENN(HEUTE()>L10;WERT(+"-"&DATEDIF(L10;HEUTE();"d"));WERT(DATEDIF(HEUTE();L10;"d")))) Target.Offset(0, 2).FormulaR1C1 = nachstehende Formel in Spalte N =WENN(M10<=0;1;WENN(L10="";"";WENN(M10>21;3;2))) End If If Not Intersect(Target, Range("O6:O10000")) Is Nothing Then ' Hinweis wenn in den Zellen O6:O10000 etwas verändert wird Target.Offset(0, 1).FormulaR1C1 = nachstehende Formel in Spalte P =WENN(O10="";"";WENN(HEUTE()>O10;WERT(+"-"&DATEDIF(O10;HEUTE();"d"));WERT(DATEDIF(HEUTE();O10;"d")))) Target.Offset(0, 2).FormulaR1C1 = nachstehende Formel in Spalte Q =WENN(P10<=0;1;WENN(O10="";"";WENN(P10>21;3;2))) End If ErrorHandler: Exit Sub 'Ende Fehlerbehandlung End Sub