Case Else funktioniert nicht richtig
10.03.2006 10:55:33
Andreas
habe einen kleinen Code der Spalte B nach Werten überprüft und bei übereinstimmung einen anderen Wert in Spalte C einträgt.
Wenn keine übereinstimmung gefunden wird soll die nachbarzelle in Spalte C leer bleiben.
Das wollte ich mit Case Else lösen, aber dabei läuft das ganze sehr lange.
Suche eine bessere Lösung.
Gruß Andreas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Werte in Spalte B vergleichen und Kriterium in Spalte C eintragen
Dim SuchBereich As Range
Dim myC As Range
Set SuchBereich = Range("B3:B7000")
For Each myC In SuchBereich
Select Case myC
Case 1
myC.Offset(0, 1) = Range("j3")
Case 2
myC.Offset(0, 1) = Range("j4")
Case 3
myC.Offset(0, 1) = Range("j5")
Case 4
myC.Offset(0, 1) = Range("j6")
Case Else 'wenn Wert in Spalte B ungleich 1,2,3,oder4 dann leere Zelle in Spalte C
myC.Offset(0, 1) = ""
End Select
Next
End Sub