anwendungsfehler
09.01.2004 17:43:18
Jürgen
möchte eine Formel über ein Makro in eine Zelle schreiben.
die Formel lautet im Orginal:
=WENN(J5="";"";WENN(HEUTE()-DATWERT(TAG(J5)&"."&MONAT(J5)&"."&JAHR(HEUTE()))<0;JAHR(HEUTE())-JAHR(J5)-1;JAHR(HEUTE())-JAHR(J5)))
Jeddoch ist 5 nicht immer richtig. Es kann auch mal sein das es j13 heißt.
Habe dann folgendes versucht:
Public
Sub CBOK_Click()
Sheets(ortn).Select
z = 3
Do While Worksheets(ortn).Cells(z, 1) <> "" ' Zeile mit Namen suchen
z = z + 1
Loop
For a = 1 To 17
If a <> 11 Then Cells(z, a) = UserForm2.Controls("TextBox" & a)
test = "=" & "WENN(J" & z & Chr(61) & Chr(34) & Chr(34) & Chr(59) & Chr(34) & Chr(34) & ";WENN(HEUTE()-DATWERT(TAG(J" & z & Chr(41) & Chr(38) & Chr(34) & Chr(46) & Chr(34) & Chr(38) & "MONAT(J" & z & Chr(41) & Chr(38) & Chr(34) & Chr(46) & Chr(34) & Chr(38) & "JAHR(HEUTE()))<0;JAHR(HEUTE())-JAHR(J" & z & ")-1;JAHR(HEUTE())-JAHR(J" & z & ")))"
If a = 11 Then Cells(z, a) = test
Next
End Sub
Ich erhalte dann:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler
wenn ich schreibe:
test = "WENN(J" & z & Chr(61) & Chr(34) & Chr(34) & Chr(59) & Chr(34) & Chr(34) & ";WENN(HEUTE()-DATWERT(TAG(J" & z & Chr(41) & Chr(38) & Chr(34) & Chr(46) & Chr(34) & Chr(38) & "MONAT(J" & z & Chr(41) & Chr(38) & Chr(34) & Chr(46) & Chr(34) & Chr(38) & "JAHR(HEUTE()))<0;JAHR(HEUTE())-JAHR(J" & z & ")-1;JAHR(HEUTE())-JAHR(J" & z & ")))"
If a = 11 Then Cells(z, a) = test
(ohne = Zeichen bei Test) dann steht in der Zelle der Text, jeddoch ist es keine Formel
wg. dem Fehlenden gleichheitszeichen