Clever-Excel-Forum

Hallo zusammen,

ich bräuchte Hilfe für ein Makro, das folgendes können soll:

ich markiere in einer Arbeitsmappe mit mehreren Blättern auf Blatt 2 in einer Zeile die Zellen A bis E, es ist immer eine unterschiedliche Zeile, das Makro soll also auf die Markierung reagieren.
Die markierten Zellen sollen dann per Makro in Blatt 1 in die nächste freie Zeile, wieder in den Bereich A bis E kopiert werden.

Ich habe im Netz diverse Themen gefunden, aber es scheitert meistens an den markierten Zellen. Ich habe immer nur Codes für festgelegte, also immer die gleiche Zeile / Zelle gefunden und kapiere nicht, wie ich die Range entsprechend umstelle, dass sie sich auf die Markierung bezieht.

Vielen Dank schon mal für die Hilfe!

Oberlicht

Hallo Oberlicht,

die aktuelle Makierung sprichst du einfach mit an.

Hallo Matthias,

Danke für die schnelle Antwort! D.h. ein einfaches "Selection" reicht? Kein "Range" dazu?

Richtig, z.B.
kopiert die markierten Zellen oder du schreibst per
den Wert der aktuell markierten Zelle in Zelle A1.

Super, funktioniert.
:19:
Vielen Dank!

Tut mir leid, jetzt habe ich Blut geleckt!

Ich selektiere also im die Zellen A bis E auf Blatt 2 und kopiere sie mit dem Makro in das Blatt 1, nächste freie Zeile A bis E. Jetzt würde ich gerne zusätzlich noch den Namen des Blattes von dem ich kopiere (auch da gibt es mehrere, wäre also auch wieder eine Frage des aktiven Blattes) in die Zelle F der "Zielzeile" einfügen...

...danach gebe ich Ruhe.

Gut so - wenn du noch mehr über VBA lernen willst, schau dir z.B. [url=
Dateiupload bitte im Forum! So geht es: Klick mich!
.

Den Namen des Aktuellen Tabellenblatts kriegst du über
raus.

Aber wie verbinde ich das mit meinem "Selection.copy"- bzw. "paste" Befehl?

Vielen Dank für das pdf!

Gar nicht - das schreibst du in die nächste/vorherige Zeile - mehr kann ich dir dazu ohne deinen Code zu kennen nicht sagen

Dann bekomme ich die Aufforderung zum debuggen...
Mein Code sieht so aus:

Sub Übertrag()


Selection.Copy

Sheets("Warenübersicht").Select

a = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Warenübersicht").Range("A" & a).Select
ActiveSheet.Paste

Application.CutCopyMode = False


End Sub

Gruß
Johannes