SelectionChange einschränken
18.11.2013 16:44:55
Simon
ich habe eine Schleife geschrieben, die bei jedem Change durchgeführt werden soll, möchte diese allerdings nur auf einen bestimmten Bereich ("B4:B100") anwenden. Bis jetzt habe ich das mit einer ActiveCell.Column-Bedingung hinbekommen.
Mein Problem: Die Schleife wird jetzt nur dann ausgeführt, wenn ich beispielsweise in B6 einen Wert eingebe und danach eine Zelle in Spalte B anklicke.
Ist es möglich, die Schleife durchführen zu lassen, egal wo man danach hinklickt? Aber eben nur wenn sich in besagtem Bereich etwas ändert. Es stört mich ein wenig, wenn es kurz ruckelt bei jedem mal klicken.
Hier noch der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 2 Then
Application.EnableEvents = False
Listenlaenge = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To Listenlaenge
If Len(Cells(i, 2).Value) > 0 And Cells(i, 4).Value = "" Then
Cells(i, 4).Value = Date
End If
If Cells(i, 2) = "" Then
Cells(i, 2).EntireRow.ClearContents
End If
Call Zeitumrechnung
Next i
Application.EnableEvents = True
End If
End Sub
Habe Suchfunktion/Google/Bücher benutzt, bin aber nicht wirklich fündig geworden.
Wäre super, wenn mir der ein oder andere einen Tipp geben könnte ;)
Danke!