Anzeige
Archiv - Navigation
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich um aktive Zelle kopieren

Bereich um aktive Zelle kopieren
16.10.2022 13:49:53
Fred
Hallo Excel Experten,
ich möchte mit einem DoppelKlick (in Spalte 9, ab Zeile 11) erreichen, dass der Bereich Spalte 1 bis Spalte 11 (in der Zeile, in der die aktive Zelle ist) nach "A1" kopiert wird.

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
If Target.Row > 10 And Target.Column = 9 Then
Sheets("Auswahl").Range("A1") = ........
End If
End Sub
Kann mir bitte jemand das Makro entsprechend ergänzen?!
Gruss
Fred

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich um aktive Zelle kopieren
16.10.2022 14:10:09
Daniel
Hi
Beispielsweise so:

Intersect(Target.EntireRow, Range("A:K")).Copy Destination:=Sheets("Auswahl").Range("A1")
Oder so

Target.Offset(0, -8).Resize(1, 11)..Copy Destination:=Sheets("Auswahl").Range("A1")
Ganz andere Möglichkeit, wenns nur um die Werte geht:

Sheets("Auswahl").Range("A1").Resize(1, 11).Value = Cells(Target.Row, 1).Resize(1, 11).value
Wenn du die Werte per Verknüpfung über nehmen willst:

Sheets("Auswahl").Range("A1").Resize(1, 11).Formula = "='" & me.Name & "'!A" & Target.row
Gruß Daniel
Anzeige
AW: Bereich um aktive Zelle kopieren
16.10.2022 14:30:30
Fred
Hallo Daniel, vielen Dank für deine Mühe und Kompetenz,
die vier Beispiele funzen alle!!
Gruss
Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige