Abchecken, ob Zelle angekreuzt
04.11.2003 08:59:32
Willy
Ich will eine frühere Anwendung ergänzen. Es soll abgeklärt werden, ob die Zelle A18 ein Kreuz aufweist und falls ja, der Wert der Variablen Aeins (Integer) auf 2011 gesetzt werden. Die Zeile
If Range("A18").Borders(xlDiagonalDown).LineStyle = 1 Then Aeins = 2011
füllt Aeins mit 0. Wer weiss Rat?
Vielen Dank im Voraus
Willy