Ich habe ein Problem mit dem Code
Wenn ich beispielsweise mehrere Zellen in spalte b reinkopiere sollte direkt die ausgefüllte spalte c daneben stehen, jedoch geht es nur wenn ich in spalte b die Zellen einzeln ausfülle .
Liegt das an dem ucase?
Wie kann ich das beheben dass wenn ich was in mehrere Zellen in spalte b fülle die spalte c dementsprechend auch Zellen ausfüllt?
Mein Code ist :
Option Explicit
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Select Case UCase(Target)
Case "E01"
Target.Offset(0, 1) = "AT"
Case "E09"
Target.Offset(0, 1) = "EG"
Case "E08"
Target.Offset(0, 1) = "HA"
Case "E11"
Target.Offset(0, 1) = "TS"
Case "E10"
Target.Offset(0, 1) = "AT"
Case "E18"
Target.Offset(0, 1) = "AT"
Case "E19"
Target.Offset(0, 1) = "TS"
Case "E39"
Target.Offset(0, 1) = "AT"
Case "E26"
Target.Offset(0, 1) = "AT"
Case "E20"
Target.Offset(0, 1) = "GT"
Case "E43"
Target.Offset(0, 1) = "AT"
Case "E42"
Target.Offset(0, 1) = "AT"
End Select
Application.EnableEvents = True
End If
End Sub