ich habe mich schon in so manchen Foren erkunfigt aber leider ohne Erfolg.
es geht um folgendes:
Ich habe eine Tabelle mit Zahlen. die zahlen sind vertikal angeordnet und zu jeder Zahl gibt es Informationen. In die Letzte Zeile wird mit einem makro eine neue Zahl eingefügt und diese dann sortiert. Das sortieren habe ich mit dem macro recorder aufgenommen und sieht wie folgt aus.
Code:
wksflag.Sort.SortFields.Clear
wksflag.Sort.SortFields.Add Key:=Range("A11" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With wksflag.Sort
.SetRange Range("A5:E1000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Exit Sub
dies klappt auch eigentlich, bei verbundenen Zellen macht dies ein Problem. Meine Idee wäre es jetzt ein makro zu programmieren, welches die zu sortierende Zahl so sortiert, dass er sich die nächst größere Zahl und die nächst kleinere Zahl sich in der Tabelle findet und da zwischen dann man eine Zelle einfügt und die zahl dort hineinkopiert. Jedoch habe ich keine Ahnung wie das gehen soll.
Ich hoffe ihr könnt mir weiter helfen.
gruß
dem