leider funktioniert mein Worksheet_Change nicht.
Wenn ich diese Zeile verwende ja:
Set lrgRange = Range("C26:C50, C92:C115, C156:C179, C220:C243")
aber leider nicht die wenn ich noch Bereiche anhänge.
siehe Makro.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntNewValue As Variant
Dim lrgRange As Range
On Error GoTo ERR_Handler
Set lrgRange = Range("C26:C50, C92:C115, C156:C179, C220:C243") ', C283:306") ', C347:C370")
If Intersect(Target, lrgRange) Is Nothing Then Exit Sub
With Target
If .Count = 1 Then
Select Case .Value
Case "wir": vntNewValue = "Wir lieferten und montierten im"
Case "ro": vntNewValue = "Rolladen"
Case "jal": vntNewValue = "Jalousien"
Case "ar": vntNewValue = "Arbeitslohn"
Case "fa": vntNewValue = "Montagefahrzeug"
Case "pau": vntNewValue = "Fahrtk"
Case "ma": vntNewValue = "Markisen"
Case "ver": vntNewValue = "Versteuerung"
Case Else: vntNewValue = .Value
End Select
Application.EnableEvents = False
.Value = vntNewValue
End If
End With
ERR_Handler:
Application.EnableEvents = True
End Sub
gruß Kurt k