Automatisch bei bestimmten Wert ein Zelleintrag
Peter
habe folgenden Code hier im Forum gefunden und etwas abgewandelt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich2 As Range
Set Bereich2 = Intersect(Range("i2:i10000"), Target)
If Not Bereich2 Is Nothing Then
Application.EnableEvents = False
With Bereich2
ActiveSheet.Unprotect
.Offset(0, 3).Value = "DM"
.Offset(0, 6).Value = "EURO"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:= _
_
True
End With
Application.EnableEvents = True
End If
End Sub
Jetzt aber mein Problem: Die Einträge DM und EURO in Spalte I und O sollen aber nur dann vorgenommen werden, wenn in der betreffenden Zelle in Spalte I der Wert "3 = Ausgaben" per Dropdown eingegeben wird. Ansonsten soll da nix passieren.
Wie kann ich dieses Problem denn lösen? Eine Formel in Spalte L und O bietet sich nicht an, weil hier auch Überschreibungen und andere Werte möglich sind.
Vielen DAnk im Voraus!
Gruß
Peter
Anzeige