Fehler bei selection.clearContents
28.11.2003 15:25:19
Micha
durch folgendes Makro lasse ich in dem Bereich den Anfangbuchstaben nach Gross konvertieren.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("I21:I88")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
Target = UCase(Target)
End Sub
mit einem Commandbutton wird der Bereich mit selection.clearContents sozusagen wieder jungfräulich gemacht, aber dann kommt es zu einer Fehlermeldung.
Laufzeitfehler 13
Typen unverträglich
beim debuggen wird Target = UCase (Target) gelb hinterlegt.
wie kann ich die Fehlermeldung wegbringen?
Gruss
Anzeige