VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: henning	Datum: 05.12.2007 10:31:00	Views: 1885	Rating:	Antwort:
Thema: Variable Zellen
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen