Code in VBA-Modul per Makro schrieben
15.09.2005 15:39:39
Bernd
Private Sub CheckBox1_Click()
Cells(9, 13) = IIf(CheckBox1, "grün", "")
End Sub
Private Sub CheckBox2_Click()
Cells(10, 13) = IIf(CheckBox2, "gelb", "")
End Sub
Private Sub CheckBox3_Click()
Cells(11, 13) = IIf(CheckBox3, "rot", "")
End Sub
Frage: Aber wie geht das?
Ferner nachstehende Formel in das genannte Tabellenblatt "Analyse"
Mappe.Sheets("Analyse").Range("M91").Formula = "=WENN(M9='grün';'grün';WENN(M10='gelb';'gelb';WENN(M11='rot';'rot')))"
Bei dem vorstehenden Code mit der Formel passt irgend etwas nicht. Aber was?
Grüße
bernd
Anzeige