Office: VBA Sortierung

Ich habe folgenden Quellcode:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:B")) Is Nothing Then
Range("B1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, _
key2:=Range("B1"), order2:=xlAscending, _
Header:=xlYes
End If
End Sub

in Spalte A und in B habe ich daten. Wie kann ich nun eingeben dass die Liste erst dann sortiert werden soll wenn ich in Spalte B eine Eintragung gemacht habe?

 

Moin McCallion,

versuche mal folgende Änderung:

Code:

If Not Intersect(Target, Range("B:B")) Is Nothing Then

(also Range B:B), dann werden Änderungen in Spalte A ignoriert.

 

Naja, mancmal ist die Atwort soooooooo einfach!!! :-?

Danke

 

Warum denn bitte an dieser Stelle eine Änderung von A:B zu B:B. Das verstehe ich nicht ganz. LG

 

Kann ich dir auch nicht sagen, aber es hat funktioniert!

 

Moin ihr beiden Frager,

also bei

Code:

If Not Intersect(Target, Range("A:B")) Is Nothing Then

wird jede Änderung in Spalte A als auch B ausgewertet (eben A:B). Bei

Code:

If NotIntersect(Target, Range("B:B")) Is Nothing Then

wird der Code nach dem THEN nur dann ausgeführt, wenn irgendwo in Spalte B (entspricht B:B) eine Änderung vorgenommen wird. Nochmals: Die Forderung war ja: