fehlerhafte Tabelle
01.10.2015 17:50:55
Michael
Hallo Stefan,
zuallererst sind die Bezüge in Deiner hocheladenen Tabelle fehlerhaft; in BF 35 steht z.B.:
=ANZAHL($AQ$28;$AQ$31;$AT$33;#BEZUG!;$AQ$38;$AT$40)
Überprüfe die Dinger bitte und lade die dann die korrigierte Datei hoch.
Ich sehe zwei Denkfehler.
1. füge mal die markierte Zeile ein, und zwar unter Tabelle1 (die Kopie im Modul kannste löschen):
Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address ' *****************
If Intersect(Target, Range("BE33:BK38")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Range("BE33:BK38").Sort Key1:=Range("BG33"), Order1:=xlDescending, _
Key2:=Range("BK33"), Order2:=xlAscending, Key3:=Range("BF33"), Order3:=xlAscending, Header:= _
xlGuess
End Sub
Dann wirst Du sehen, daß das Ereignis durch die Eingabe z.B. in AQ31 ausgelöst wird, wenn Du dort einen Wert änderst - eine weitere Auslösung findet *nicht* statt, wenn die Verformelung zu Wertänderungen ab BE33 führt. D.h., die Angabe im Intersect muß angepaßt werden.
2. Zerstört das Sortieren ab BE33 anscheinend die Formeln - siehe die o.g. Bezugsfehler.
D.h., das Makro sollte den Bereich kopieren, mit pastespecial/values woanders einfügen und dann erst sortieren.
Schöne Grüße,
Michael