Prozentangaben vorbelegen
Claudia
wünsche allen frohe Weihnachten!
Leider stehe ich mal wieder vor einem Problem. Folgenden VBA-Code hat man mir hier im Forum gebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("d8:d1000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 6).FormulaR1C1 = "=IF(AND(RC[-6]2,RC[-6]5),"""",60%)"
.Offset(0, 6).NumberFormat = "0%"
.Offset(0, 6).Value = .Offset(0, 6).Value
.Offset(0, 7).NumberFormat = "0%"
.Offset(0, 7).FormulaR1C1 = "=IF(AND(RC[-7]2,RC[-7]5),"""",40%)"
.Offset(0, 7).Value = .Offset(0, 7).Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End Sub
Jetzt soll aber nicht nur bei einer "2" die Prozentangaben hinterlegt werden, sondern auch bei einer "3".Vermutlich eine leichte Änderung, aber ich kriege es nicht.
Wer kann mir helfen?
LG
Claudia