Worksheet_Change ändern
02.12.2017 12:47:44
Sigrid
ich habe dieses Makro gefunden, für entsprechend erweitert und
es funktioniert.
Änderung:
Ich möchte gern "wir" in O2 Schreiben und in P2 "Wir lieferten"
reinschreiben, so das man die Änderungen oder Ergänzungen auf dem
Tabellenblatt vornehmen kann.
Geht das bzw. Wie ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntNewValue As Variant
On Error GoTo ERR_Handler
If Intersect(Target, lrgRange) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Target
If .Count = 1 Then
Select Case .Value
Case "wir": vntNewValue = "Wir lieferten"
Case "ab": vntNewValue = "Wir holen die Ware am"
Case Else: vntNewValue = .Value
End Select
Application.EnableEvents = False
.Value = vntNewValue
End If
End With
ERR_Handler:
Application.EnableEvents = True
End Sub
sigrid