Zellkontrolle
09.11.2002 21:16:47
Harald
In Spalte "L" darf nur in jede 3.Zeile ein Wert eingetragen werden. Nun möchte, um Fehler zu vermeiden ich erreichen, Das eine Warnmeldung erscheint,wenn in anderen Zellen der Spalte L etwas eingetragen wird.
hab folgendermassen probiert,jedoch funktionierts nicht.
sub worksheet_chance(byval target as range)
dim bereich as range
set bereich = sheets("eingabe").range("L2:L900")
If activecell.Offset(-1,0).value<>"" then
msgbox"Falscher Eintrag"
End if
end sub
Anzeige