Office: ActiveCell für eine beliebige Anzahl markierter Zellen anwenden

Hallo Forumsmitglieder,

ich hoffe ihr könnt mir weiterhelfen.

Mit einem VBA-Programm in Verbindung mit einem Button wird in einer Datei eine Zeile kopiert und wo anders eingefügt.
Dies funktioniert aber nur immer mit einer Zeile.
Excel wählt immer die erste Zelle der markierten Zeile als ActiveCell und verschiebt dann Zeile in der die Zelle steht.

Leider geht es nicht mehrere Zeilen zu markieren und dann zu verschieben, da Excel dann auch immer nur die erste Zelle der obersten markierten Zeile als ActiveCell deklariert und somit nur diese Zeile verschiebt.


Ich habe bisher keine Lösung dazu gefunden. Es muss doch einen Weg geben, wie ich in Excel VBA die markierten Zellen ansprechen kann um beliebig viele Zeilen gleichzeitig zu verschieben!!!

Ich hoffe mir kann jemand weiterhelfen! *Smilie

Vielen Dank!

:)

 

Hallo Dank!,

das kann ich nicht glauben. Zeig mal Deinen Code und erkläre genauer, was Du vorhast, am besten anhand eines Beispiels mit Vorher-/Nachher-Darstellung.

Grüße
EarlFred

 

Hallo EarlFred,

danke für Deine Antwort!

Mein Programmcode sieht folgendermaßen aus:

Ich würde mich als VBA Anfänger bezeichnen und arbeite viel mit der "Makro aufzeichnen" Funktion, deshalb gibt es sicher elegantere Methoden.

Code:

Ich markiere eine Zeile und betätige einen Button. Der Code macht dann folgendes:

Er kopiert bestimmte Zellen dieser Zeile (immer die gleichen Spalten) und fügt diese in eine andere Excel-Datei an bestimmten Spalten in die erste freie Zeile ein.

Dies klappt aber nur, wenn ich eine Zeile markiere. Markiere ich mehrere, wird trotzdem nur die oberste "verschoben".

Ich hoffe ich konnte das Problem deutlicher machen.

 

Hallo nameloser,

War klar, ist nicht schlimm, so haben die meisten angefangen.

ja. Deswegen fragte ich nach einem Beispiel. Anhand des Rekordercodes mit dem Select-Wahnsinn mag ich mir Deine Mappe und das, was Du tun willst, nicht vorstellen. Ginge zwar, habe ich aber keine Lust zu.

Grüße
EarlFred

 

Das war der Grund warum ich den kompletten Programmcode nicht hier einfügen wollte.

Es geht im Grunde nur darum, wie ich in VBA auf den aktuell markierten Bereich zugreifen kann.

Im Prinzip lässt es sich auf ein einfaches Problem herunterbrechen:

Hier mit einem Beispiel dargestellt:

Ich markiere eine Zelle.
Mit einem Button wird ein Makro ausgelöst, welches meine markierte Zelle kopiert und an Stelle X wieder einfügt.

Nun das Problem:
Markiere ich die Zelle von vorher + die Zelle darunter, dann wird trotzdem nur die obere Zelle kopiert und eingefügt.
Jedoch sollte das Makro alle markierten Zellen kopieren und auch wieder untereinander an Stelle X einfügen.

Es werden immer Zellen in der gleichen Spalte markiert.
Jedoch wie viel ich markiere ist jedes Mal anders.

 

Hallo,

also willst Du es nicht konkret, sondern allgemein. Kein Problem.

Da Du Dich in Deinem Code offenbar immer auf die Zelle in der ersten Spalte beziehen willst:
Code:

rngTemp ist Deine "ActiveCell" jeder Zeile.

Grüße
EarlFred

 

Hallo EarlFred,

das war GENAU das, was ich gesucht habe! *upps

Vielen Dank! *Smilie