Private Sub Worksheet_Change in Modul auslagern
Claudia
möchte folgenden Code aus
Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _
_
ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _
Werte im genannten I-Bereich noch Änderungen / Ergänzungen vorgenommen werden sollen.
Leider sind VBA und ich nicht kompatibel. Jedenfalls scheitere ich an einer Modifzierung.
Viele Grüße
Claudia
Dim Bereich2 As Range
Set Bereich2 = Intersect(Range("i2:i10000"), Target)
If Not Bereich2 Is Nothing Then
Application.EnableEvents = False
With Bereich2
If .Offset(0, 0).Value = "4 = keine Priorität" And .Offset(0, 5).Value = "" Or _
.Offset(0, 0).Value = "4 = keine Priorität" And .Offset(0, 5).Value = "-" Or _
.Offset(0, 0).Value = "4 = keine Priorität" And .Offset(0, 5).Value = "offen" Or _
.Offset(0, 0).Value = "4 = keine Priorität" And .Offset(0, 5).Value = "umgesetzt bzw. erledigt" _
_
Then
.Offset(0, 5).Value = "erledigt"
.Offset(0, 8).Value = "keine Umsetzung geplant"
Else
End If
If .Offset(0, 0).Value = "noch nicht priorisiert" Then
.Offset(0, 5).Value = "offen"
.Offset(0, 8).Value = "offen"
Else
End If
End With
End If
End Sub
Anzeige