AW: Ich versteh die Frage nicht...
17.12.2024 10:59:53
Viktor_L
Guten Morgen Boris,
ich muss mich entschuldigen. Anscheinend hatte es nichts mit der DropDown Auswahl zu tun.
Ich hatte die Bereiche für den Check etwas ausgeweitet und zusätzlich noch die DropDown Auswahl hinzugefügt.
Option Explicit
Public oldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
With Target
If Not Intersect(Target, Range( _
"L3:L5000,N3:N5000,P3:P5000,R2:R5000,T3:T5000,V3:V5000,X3:X5000,Z3:Z5000," & _
"AB3:AB5000,AD3:AD5000,AF3:AF5000,AH3:AH5000,AJ3:AJ5000,AL3:AL5000,AN3:AN5000,AP3:AP5000,AR3:AR5000,AT3:AT5000,AV3:AV5000,AX3:AX5000," & _
"BB3:BB5000,BD3:BD5000,BF3:BF5000,BH3:BH5000,BJ3:BJ5000,BL3:BL5000,BN3:BN5000,BP3:BP5000,BR3:BR5000,BT3:BT5000,BV3:BV5000,BX3:BX5000," & _
"CB3:CB5000,CD3:CD5000,CF3:CF5000,CH3:CH5000,CJ3:CJ5000,CL3:CL5000,CN3:CN5000,CP3:CP5000,CR3:CR5000,CT3:CT5000,CV3:CV5000,CX3:CX5000," & _
"DB3:DB5000,DD3:DD5000,DF3:DF5000,DH3:DH5000,DJ3:DJ5000,DL3:DL5000,DN3:DN5000,DP3:DP5000,DR3:DR5000,DT3:DT5000,DV3:DV5000,DX3:DX5000," & _
"EB3:EB5000,ED3:ED5000,EF3:EF5000,EH3:EH5000,EJ3:EJ5000" _
)) Is Nothing Then
If .Count = 1 Then
If .Value > oldValue Then
Application.EnableEvents = False
.Offset(0, 1) = "c"
End If
End If
End If
End With
ERR_HANDLER:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oldValue = Target(1, 1).Value
End Sub
Leider hat das schreiben "c" dann nicht mehr funktioniert. Deswegen hatte ich die Vermutung auf das DropDown gelegt.
Wenn ich jedoch den check Bereich abspecke funktioniert das ganze.
Option Explicit
Public oldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
With Target
If Not Intersect(Target, Range("L3:L5000")) Is Nothing Then
If .Count = 1 Then
If .Value > oldValue Then
Application.EnableEvents = False
.Offset(0, 1) = "c"
End If
End If
End If
End With
ERR_HANDLER:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oldValue = Target(1, 1).Value
End Sub
Wo ist denn der Fehler im ersten Code?
Danke
Liebe Grüße