Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei selection.clearContents

Fehler bei selection.clearContents
28.11.2003 15:25:19
Micha
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei selection.clearContents
28.11.2003 15:31:56
PeterW
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
Danke funktioniert bestens oT.
28.11.2003 16:10:44
Micha
:-))

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige