Select Case - Fehlermeldung

Forumthread: Select Case - Fehlermeldung
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Select Case - Fehlermeldung

07.01.2007 14: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 15:07:57

chris
AW: Select Case - Fehlermeldung

07.01.2007 15:15:31

Thierry
AW: Select Case - Fehlermeldung

07.01.2007 15:23:47

chris
AW: Select Case - Fehlermeldung

07.01.2007 15:38:56

Thierry

AW: Select Case - Fehlermeldung

07.01.2007 15: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 15: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 15: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 15: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