habe folgende problematik:
in einer tabelle habe ich für verschiedene einheiten jeweils eine kennzahl errechnet und dies über verschiedene zeiträume. dann sortiere ich in einem anderen sheet für jeden zeitraum die einheiten (mit den besten beginnend).
hier arbeite ich mit der RANG-funktion. im prinzip klappt alles super, aber einen kleinen haken gibts noch. wenn zwei einheiten dieselbe kennzahl aufweisen, haben sie den selben RANG und werden an dieselbe stelle plaziert. das habe ich folgendermaßen (teilausschnitt aus gesamten makro) versucht zu umgehen:
If ActiveCell.Offset(Rank, 0).Value = "" Then
ActiveCell.Offset(Rank, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-Rank, 1).Select
Else
ActiveCell.Offset(Rank + 1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-Rank - 1, 1).Select
End If
klappt aber leider nur, wenn nicht mehr als zwei bereiche denselben RANG haben.
wie müßte dieser teil vom makro aussehen, damit er bei noch mehr identischen plazierungen einfach solange runtergeht, bis er ein freies feld findet?
vielen dank!
thomas