Guten Tag,

bin ganz neu hier und habe auch schon gleich ein Problem (und konnte dies nicht per suche finden, wurde mein Problem doch irgendwo schon erläutert, dann verzeiht mir bitte diesen thread).

Ich habe folgendes Makro, um Werte vorhandene Werte auszuschneiden und dann in andere Zellen einzufügen:

Range("N1:N400").Select
Selection.Sort Key1:=Range("N1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("I1:N1").Select
Selection.Cut
Range("B1:G1").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("I1:N1").Select
Selection.Delete Shift:=xlUp

Das ganze funktioert soweit ja auch. Nun ist das Problem, dass die ausgeschnittenen Werte ja immer bei B1:G1 eingefügt werden und die vorhandenen Werte werden dann ja immer eine Zeile nach unten verschoben.

Das ganze soll allerdings so sein, dass die ausgeschnittenen Werte immer unter der zuletzt eingefügten Zeile Bei B*:G* eingefügt werden soll. also anstatt immer über dem letzten eintrag, nun unter dem letzten eintrag.

Ich Dachte mir, dass ich anstatt B1 und G1 Variablen setze, die immer wieter hochgezählt werden, nur bekomme ich dies nicht ganz hin.

Ich bin über jede Hilfe sehr sehr dankbar.

grüße henning

Code vb:

1	Range("B" & VariableEins &":G" & VariableZwei).Select

Grüsse bb