Select Case - Fehlermeldung | HERBERS Excel Forum

Forumthread: Select Case - Fehlermeldung

Select Case - Fehlermeldung

07.01.2007 13:46:37

Thierry

Hallo!
Ich habe folgenden Code eingegeben.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "M"
Target.Interior.ColorIndex = 15
Case "I"
Target.Interior.ColorIndex = 16
Case "F"
Target.Interior.ColorIndex = 4
Case "V"
Target.Interior.ColorIndex = 5
Case "S"
Target.Interior.ColorIndex = 10
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

Das Problem: Wenn ich die Eingaben mehrerer Zellen gleichzeitig löschen möchte erscheint die Fehlermeldung "Errore run-time '13'". Diese Fehlermeldung erscheint nicht, wenn ich eine Zelle nach der Anderen lösche.
Für jede Hilfe bin ich Euch dankbar.
Freundliche Grüsse.
Thierry

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Select Case - Fehlermeldung

07.01.2007 14:07:57

chris
AW: Select Case - Fehlermeldung

07.01.2007 14:15:31

Thierry
AW: Select Case - Fehlermeldung

07.01.2007 14:23:47

chris
AW: Select Case - Fehlermeldung

07.01.2007 14:38:56

Thierry

AW: Select Case - Fehlermeldung

07.01.2007 14:07:57

chris

hallo, was soll passieren wenn du mehere zellen auf einmal löscht.
Soll nichts ausgeführt werden oder soll das
Target.Interior.ColorIndex = xlColorIndexNone
ausgeführt werden ?

AW: Select Case - Fehlermeldung

07.01.2007 14:15:31

Thierry

Hallo Chris
Wenn ich z.B. mehrere Zellen die den Buchstaben "F" (= Ferien) lösche, sollten die Zellen nicht mehr gefärbt sein.
Gruss.
Thierry

AW: Select Case - Fehlermeldung

07.01.2007 14:23:47

chris

Dann könntest du es so machen.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim x As Integer
Dim y As Integer
x = Target.Rows.Count
y = Target.Columns.Count
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then
Target.Interior.ColorIndex = xlColorIndexNone
Else
Select Case Target.Value
Case "M"
Target.Interior.ColorIndex = 15
Case "I"
Target.Interior.ColorIndex = 16
Case "F"
Target.Interior.ColorIndex = 4
Case "V"
Target.Interior.ColorIndex = 5
Case "S"
Target.Interior.ColorIndex = 10
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End If
End Sub

gruß Chris

AW: Select Case - Fehlermeldung

07.01.2007 14:38:56

Thierry

Hallo Chris
Mit deinem Lösungsvorschlag konnte ich das Problem lösen.
Vielen Dank für deine Hilfe.
Freundliche Grüsse.
Thierry

Beliebteste Forumthreads (12 Monate)

Select Case - Fehlermeldung

Forumthread: Select Case - Fehlermeldung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread