Live-Forum - Die aktuellen Beiträge
Datum
Titel
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#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1172to1176
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
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktion bei Doppelklick

Aktion bei Doppelklick
Rainer
Hallo,
ich suche schon lange im Archiv nach meiner Lösung. Leider ohne Erfolg. Daher frage ich mal die VBA Spezis direkt nach 'ner Lösung:
Bei einem Doppelklick auf eine beliebige Zelle möchte ich, das der Zellinhalt der Zeile 2 in der selektierten Spalte eingetragen wird. z.B.
Doppelklick auf C210 - Inhalt von C2 wird in C210 eingetragen
Doppelklick auf F89 - Inhalt von F2 wird in F89 eingetragen
Ich hoffe, dass es dafür eine VBA-Lösung gibt.
Rainer

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

Betreff
Benutzer
Anzeige
Target.Value = Cells(2, Target.Column)
30.08.2010 20:51:46
ransi
HAllo
Das kann man evtl. schon so erschlagen:
Teste mal:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Cancel = True
Target.Value = Cells(2, Target.Column)
End Sub


ransi
Anzeige
AW: Aktion bei Doppelklick
30.08.2010 20:53:44
Josef

Hallo Rainer,
das geht so.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Row > 2 Then
    Cancel = True
    Target = Cells(2, Target.Column)
  End If
End Sub

Gruß Sepp

Anzeige
AW: Aktion bei Doppelklick
30.08.2010 21:36:00
Rainer
Danke für die schnelle Unterstützung.
Gruß Rainer

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige