automatisch Großbuchstaben im Zellbereich
01.06.2007 13:25:23
Andre
bin leider nicht so fit was VBA angeht.
Mit der u.g. Formel ist immmer gegeben, dass im u.g. Zellbereich immer ein Großbuchstabe steht.
Mein Problem ist nun, wenn ich diesen Bereich makiere und auf "Entf" drücke (ich möchte den Inhalt löschen), kommt eine Fehlermeldung (Laufzeitfehler 13 - Typen unverträglich) und "Target = UCase(Target) wird gelb makiert.
Was mache ich nun? Hat jemand einen Tipp für mich?
Gruß
André aus SH
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("E12:K41")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
Target = UCase(Target)
End Sub