Standardwert einsetzen
03.08.2003 20:17:34
Franz W.
versuche per VBA eine Formel einzusetzen:
In diesem Code aus einem normalen Modul klappts:
Sub HMKasseUmsetzen()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
If [F3] < 12 Then
Range("F3").Value = Range("F3").Value + 1
Else
Range("F3").Value = 1
End If
Range("G38").Copy
Range("D7").PasteSpecial Paste:=xlValues
Range("B9,D9,B16:E35,G16:G34,C41").ClearContents
Range("G16").FormulaR1C1 = "=IF(RC[-5]=""Zimmermann & Kraus"",23.8,"""")"
Range("G16").Copy Destination:=Range("G18,G20,G22,G24,G26,G28,G30,G32,G34")
Range("B16").Select
ActiveSheet.Protect
End Sub
Nun versuche ich dasselbe im Modul der Tabelle. Und zwar soll die Formel nach dem Löschen eines eingetragenen anderen Wertes eingesetzt werden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r%
r = Target.Row
For r = 16 To 34 Step 2
If Target.Address = Cells(r, 7) And IsEmpty(Target) = True Then _
Target.FormulaR1C1 = "=IF(RC[-5]=""Zimmermann & Kraus"",23.8,"""")"
Next
End Sub
Es tut sich aber leider gar nichts! Keine Fehlermeldung, kein Einsetzen der Formel?!? KÖnnt Ihr mir bitte helfen, wo mein Fehler liegt?
Vielen Dank im Voraus
Grüße
Franz