Fehler bei selection.clearContents

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Fehler bei selection.clearContents
von: Micha
Geschrieben am: 28.11.2003 15:25:19

Hallo,

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
Bild


Betrifft: AW: Fehler bei selection.clearContents
von: PeterW
Geschrieben am: 28.11.2003 15:31:56

Hallo Micha,

versuch es mal so:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("I21:I88")
If Target.Cells.Count = 1 Then
  If Intersect(Target, EBereich) Is Nothing Then Exit Sub
  Target = UCase(Target)
  End If
End Sub

Gruß
Peter


Bild


Betrifft: Danke funktioniert bestens oT.
von: Micha
Geschrieben am: 28.11.2003 16:10:44

:-))


Bild

Beiträge aus den Excel-Beispielen zum Thema " Fehler bei selection.clearContents"