Gültigkeit in mehreren Zellen
29.12.2004 17:46:29
Andreas
ich habe folgendes Script mit dem ich auf Gültigkeit einer Zelle prüfe (Quelle ist eine Liste) - wie kann ich es nun realisieren dass nicht nur die Zelle A1 geprüft wird sondern der Bereich (A1:G1) ?
---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tc = Target.Column
tr = Target.Row
DeineZelle = "A1"
If (Cells(46, 22) = "ja") And (tr >= 6) And (tr <= 36) And (tc = 6) And Cells(1, 1) <> "" Then
If WorksheetFunction.CountIf(Range("A2:A50"), Range(DeineZelle)) = 0 Then
MsgBox "Bitte nur gültige Projektnamen benutzen"
Range(DeineZelle).Value = ""
End If
End If
End Sub
---------------------
Herzlichen Dank im Voraus!!
Ciao
Andreas
Anzeige