Gültigkeit in vba II
22.12.2005 18:22:51
M.
nachdem es mir nun zweimal nicht gelungen ist, auf meinen Betrag von gestern zu antworten, mache ich einen neuen auf.
Ich hatte versucht eine Gültigkeit per vba abzufragen. MichaV hatte mir einen code gegeben, den ich für meine Bedürfnisse umgebaut haben. Leider macht er nun die Eingabe sehr langsam und ich muss bis zu 2 sec warten, bevor ich die nächste Zelle beschreiben kann. Was mache ich falsch?
Hier der umgebaute Code:
Private
Sub Worksheet_Change(ByVal Target As Range)
If istRichtig(Target.Text) Then
Target.value = UCase(Target.Text)
Exit Sub
ElseIf Not istRichtig(Target.Text) Then Target.ClearContents
Exit Sub
End If
Function istRichtig(strWas As String) As Boolean
Dim Richtige
Dim i%
Richtige = Array ("ABC", "DE", "F")
For i = 0 To UBound(Richtige)
If UCase(strWas) = UCase(Richtige(i)) Then istRichtig True: Exit Function
Next i
End Function
Mit freundlichen Grüßen und so vom Martin