Kontrollkästchen
05.12.2002 11:28:35
Nadine
ich hoffe, dass mir jemand helfen kann. Ich habe ein Formular mit Kontrollkästchen und Optionsfeldern erstellt. Wenn das Kontrollkästchen aktiviert ist, dann erscheint in "J27" WAHR. Mit einem Makro möchte ich nun, dass bei der Meldung "WAHR" eine 1 in Spalte B eines anderes Tabellenblattes gemacht wird. Leider funktioniert mein Makro nicht. Es wird immer nur eine 1 gesetzt, wenn "Falsch" oder "" in "J27" erscheint. Der Makro lautet:
Sub Formular()
Dim zelle As Integer
Dim wert_c As String
Dim koordinate As Integer
zelle = 2
koordinate = Worksheets("Formular").Range("J5")
wert_c = Worksheets("Formular").Range("J27").Value
If wert_c = WAHR Then
Sheets("B").Select
Cells(koordinate, zelle).Select
ActiveCell.FormulaR1C1 = 1
End If
End Sub
Ich hoffe wirklich, dass ihr mir helfen könnt...
Ciao
Nadine