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

Per Doppelklick Zellinhalt in erste freie Zelle kopieren

Forumthread: Per Doppelklick Zellinhalt in erste freie Zelle kopieren

Per Doppelklick Zellinhalt in erste freie Zelle kopieren
14.03.2025 21:05:05
Micha
Hallo und guten Tag,

habe in meinem Arbeitsblatt in Spalte "D" eine Namensliste unserer Mitglieder.
Möchte irgend ein Mitglied per Doppelklick auswählen und dieses soll dann in die erste freie Zelle der Spalte "A" kopiert werden .
Anbei eine Testdatei.
Kann mir jemand den Code schreiben?
Vielen Dank im Voraus.

Gruß
https://www.herber.de/bbs/user/176265.xlsmMicha
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
14.03.2025 21:46:58
Alwin Weisangler
Hallo,

eigentlich findet man das im Netz in Massen.
Ins Modul des Tabellenblattes: 


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

    Dim lz&: lz = Cells(Rows.Count, 1).End(xlUp).Row + 1

    If Not Intersect(Target, Range("D7:D" & Cells(Rows.Count, 4).End(xlUp).Row)) Is Nothing Then

        Cells(lz, 1) = Target

    End If

    Cancel = True

End Sub


Gruß Uwe
Anzeige
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
15.03.2025 10:18:12
Micha
Hallo Uwe,

vielen Dank für Deine Hilfe.
Habe leider nichts im Netzgefunden. Daher mein Hilferuf.
Trotzdem nochmals vielen Dank für Deine Bemühungen und Lösung.

Gruß Micha
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
14.03.2025 21:47:47
Uduuh
Hallo,
einfach so: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Column = 4 Then

    Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target

    Cancel = True

  End If

End Sub

erste freie Zelle von unten.

Gruß aus'm Pott
Udo
Anzeige
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
15.03.2025 10:20:28
Micha
Hallo Udo,

vielen Dank für Deine Hilfe und Lösung.
Auch von hier (MeckPomm) freundliche Grüße

Micha
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
14.03.2025 23:15:40
GerdL
Noch ein Spielzeug. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = (Target.Column = 4)

If Cancel Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target.Value

End Su

Gruß Gerd
Anzeige
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
15.03.2025 16:31:57
Daniel
Hi

Folgender Code, findet die erste freie Zelle, nicht nur am Ende der Liste, sondern auch dann wenn mittendrin Plätze frei sind: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Range("A:A").SpecialCells(xkcelltypeblanks)(1).value = Target.value

End Sub


Allerdings gibt es eine kleine Einschränkung, durchsucht wird nur die UsedRange, also der tatsächlich genutzte Zellbereiche.
Dh. leere Zellen, die unterhalb der untersten Zeile mit Inhalt liegen, werden nicht gefunden.
Anzeige
AW: Per Doppelklick Zellinhalt in erste freie Zelle kopieren
15.03.2025 10:23:04
Micha
Hallo Gerd,

vielen Dank für Deine Hilfe und Deiner Lösung.

Freundliche Grüße aus dem wunderschönen
Mecklenburg-Vorpommern

Micha
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum