Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1748to1752
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert mit Doppelklick kopieren

Wert mit Doppelklick kopieren
09.04.2020 16:33:36
Norbert
Hallo Spezialisten
in einer Tabelle habe ich in den Zellen D27 - D38 verschiedene numerische Werte. Nun soll nach einem Doppelklick auf eine Zelle innerhalb dieser Reihe den Wert in die Zelle O41 schreiben. Wie geht das mit dem VB-Code?
Danke für eine Lösung
Gruss Norbert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert mit Doppelklick kopieren
09.04.2020 16:43:28
Hajo_Zi
Hallo Nobert,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' D27 - D38
If Target.Column = 4 And Target.Row >= 27 And Target.Row

AW: Wert mit Doppelklick kopieren
09.04.2020 21:43:39
GerdL
Moin Norbert! 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D27:D38")) Is Nothing Then
Cancel = True
Range("O41").Value = Target.Value
End If
End Sub

Gruß Gerd
Anzeige
AW: Wert mit Doppelklick kopieren
15.04.2020 14:51:57
Norbert
Funktioniert tadellos
Besten Dank
Gruss Norbert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige