Bereich kopieren als Werte einfügen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Bereich kopieren als Werte einfügen
von: Gerhard E.
Geschrieben am: 09.11.2015 14:53:31

Hallo Excelkönner,
mit Hilfe eines Makros möchte ich diese Aufgabe lösen:
https://www.herber.de/bbs/user/101348.xlsx
Im Blatt Quelle in der Spalte A werden Inhalte per Formel erzeugt.
Im Blatt Quelle in der Spalte A einen beliebigen Bereich markieren. Button drücken. Diese Markierung in das Blatt Ziel in Spalte A als Werte eintragen, ab der ersten leeren Zelle.
Anderen Bereich markieren, Button drücken,in das Blatt Ziel in die nächste leere Zeile als Werte eintragen

Dto. weitere Bereiche markieren und als Werte eintragen
Die Beispiel-Bereiche in der Datei gelb, grün, blau... sind variabel und werden durch Markieren per Maus ausgewählt und die Werte sollen fortlaufend untereinander in Ziel eingefügt werden.
Gruß und Danke für die Hilfe
Gerhard E.

Bild

Betrifft: AW: Bereich kopieren als Werte einfügen
von: EtoPHG
Geschrieben am: 09.11.2015 16:00:29
Hallo Gerhard,
Diesen Code in das Tabelleblatt "Quelle"

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Columns.Count = 1 Then
        With Worksheets("Ziel")
            Target.Copy
            .Cells(.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
        End With
        MsgBox "Bereich " & Target.Address(0, 0) & " kopiert!", vbInformation
        Cancel = True
    End If
End Sub

Bereich in Spalte A auswählen, dann Rechtsklick, kopiert den gewählten Bereich ans Ende der Spalte A im Blatt "Ziel".
Gruess Hansueli

Bild

Betrifft: AW: Bereich kopieren als Werte einfügen
von: Gerhard E.
Geschrieben am: 09.11.2015 16:15:17
Kopiert schnell!
Vielen Dank Hansueli.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bereich kopieren als Werte einfügen"