Herbers Excel-Forum - das Archiv

Select Case - Fehlermeldung

Bild

Betrifft: Select Case - Fehlermeldung
von: Thierry

Geschrieben am: 07.01.2007 13:46:37
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
Bild

Betrifft: AW: Select Case - Fehlermeldung
von: chris b
Geschrieben am: 07.01.2007 14:07:57
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 ?
Bild

Betrifft: AW: Select Case - Fehlermeldung
von: Thierry
Geschrieben am: 07.01.2007 14:15:31
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
Bild

Betrifft: AW: Select Case - Fehlermeldung
von: chris b

Geschrieben am: 07.01.2007 14:23:47
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
Bild

Betrifft: AW: Select Case - Fehlermeldung
von: Thierry

Geschrieben am: 07.01.2007 14:38:56
Hallo Chris
Mit deinem Lösungsvorschlag konnte ich das Problem lösen.
Vielen Dank für deine Hilfe.
Freundliche Grüsse.
Thierry
 Bild
Excel-Beispiele zum Thema "Select Case - Fehlermeldung"
Focus und Selection zwischen zwei TextBoxes wechseln Beispiele zum Einsatz des SelectionChange-Ereignisses
Fehlermeldung #NV ausblenden Fehlermeldung abfangen
Fehlermeldung #DIV/0! verhindern Fehlermeldung abfangen und in sequentielle Datei schreiben
VBA-Fehlermeldungen auflisten Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen
Zahlenstring mit Formel auslesen und Fehlermeldung verhindern Makro mit Excape-Taste ohne Fehlermeldung beenden