Per Klick Zellinhalt in Zelle kopieren

Forumthread: Per Klick Zellinhalt in Zelle kopieren
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 18:26:14

Micha

Hallo und guten Tag,

möchte eine Zelle (mit Inhalt) per Klick markieren
und diesen Zellinhalt mit Doppelklick in eine andere Zelle einfügen.
Habe dazu einen Code der aber leider nicht funktioniert.
Kann mir bitte jemand helfen diesen so zu ändern, dass er funktioniert?
Für Hilfe bin ich sehr dankbar. Anbei eine Beispieldatei.
Vielen Dank im Voraus.

https://www.herber.de/bbs/user/176656.xlsm
Gruß Micha

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 20:03:42

ralf_b
AW: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 22:12:20

Ulf
AW: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 21:38:31

Micha

AW: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 20:03:42

ralf_b



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    ' Nur für Zellen in Spalte B

    If Target.Column = 1 Then ' Spalte B = 2

        Target.Offset(0, 1).Value = markierteZelle.Value

        Cancel = True ' Verhindert Bearbeitungsmodus

    End If

End Sub

AW: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 22:12:20

Ulf

Hi,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    ' Speichert die zuletzt angeklickte Zelle

    Set markierteZelle = Target

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ' Speichert die zuletzt angeklickte Zelle

'SELECTIONCHANGE WIRD AUCH FÜR DIE ZIELZELLEN AKTIV=>Rechtsklick für Quellzelle

    'Set markierteZelle = Target

End Sub



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    ' Nur für Zellen in Spalte B

    If Not markierteZelle Is Nothing Then

        If Target.Column = 2 Then ' Spalte B = 2

            Target.Value = markierteZelle.Value

            Cancel = True ' Verhindert Bearbeitungsmodus

        End If

    End If

End Sub

hth
Ulf

AW: Per Klick Zellinhalt in Zelle kopieren

08.04.2025 21:38:31

Micha

Hallo ralf_b

vielen Dank für Deine schnelle Hilfe.
Allerdings trifft das nicht so ganz mein Problem.
Beispiel: In Zelle A1 steht z.B. "Hallo". Diese Zelle klicke ich einmal an.
Dann mache ich einen Doppelklick irgendwo in Spalte B. Der Inhalt
von Zelle A1 "Hallo" wird z.B. in Zelle B15 (welche ich mit Doppelklick auswähle)
eingefügt.
Kannst Du bitte nochmals den Code prüfen?
Danke im Voraus
Gruß
Micha

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!