Ich habe eine Tabelle, bei der ein Sverweis in Spalte B25 feststellt, ob in Zelle D25 ein gewisser Wert vorliegt und dann wird entsprechend der Matrix die Zelle B2 von 1-7 durchnummeriert. Wenn nicht, bleibt das Feld leer, geprüft wird das anhand einer anderen Eingabe in einem Nachbarfeld (D25 enthält ebenfalls eine Formel, kann also niemals leer sein).
Geprüft wird, ob in D25 per Dropdownfeld steht
Provision vollständig erhalten 1
Provision teilweise erhalten 2
Provisionseingang abwarten 3
In Vertragserstellung 4
In der Vermarktung 5
In Vorbereitung / Warteschleife 6
Abgaben / Rücklagen umgebucht 7
=WENN($E25="";"";SVERWEIS($D25;$Z$27:$AA$34;2;FALSCH))
Klappt prima.Jetzt möchte ich B25 von 1-7 dynamisch sortieren lassen.
Dafür habe ich mir das rausgesucht:
Private Sub Worksheet_Change(ByVal Target As Range)
'Beschränken der Makroausführung auf den Bereich A1 bis A100
If Not Application.Intersect(Target, Range("B25:B330")) Is Nothing Then
'Bereich, auf den sich die Sortierung auswirken soll
Range("B25:B330").Select
'Sortierkriterien
Selection.Sort Key1:=Range("B25"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
'Zelle A1 auswählen
Range("B25").Select
End If
End Sub
Klappt aber leider nicht, da ja o.a. SVERWEIS-Formel in B25 drin steht.Ohne die Formel in B25, also nur die reine Ziffer, sortiert er korrekt.
Wie bekomme ich das denn nun gelöst?
Vielen Dank schon mal vorab :)