Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelklick

Doppelklick
24.01.2009 13:20:00
Dieter.G
Hallo zusammen,
wie kann ich per "Doppelklick" die beiden Werte aus einer beliebigen Zeile in Spalte I und den benachbarten Wert aus der übernächsten Spalte K Tablelle1, in die erste frei Zelle von unten in Spalte B und C in Tabelle2 kopieren?
Danke schon mal
Gruß Dieter

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelklick
24.01.2009 13:38:00
Ramses
Hallo
Das geht nur mit VBA,... aber ich würde davon dringendst abraten eine Standardfunktion in EXCEL mit einer anderen Funktion zu belegen, da der Doppelklick per Default eine ganz andere Funktion hat.
Ich würde dazu ein normales Makro nehmen das über einen Tastaturshortcut aufgerufen werde nkann.
Gruss Rainer
AW: Doppelklick
24.01.2009 13:39:00
Tino
Hallo,
so müsste es gehen. (doppelklick in Zelle geht nicht mehr)
kommt als Code in Tabelle1 
Option Explicit 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
 Dim LRow As Long 
 Dim LCol1 As Long, LCol2 As Long 
 Cancel = True 
 LRow = Target.Row 
  
 With Sheets("Tabelle2") 
   LCol1 = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Row 
   LCol2 = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row 
   LCol1 = IIf(LCol1 < LCol2, LCol2, LCol1) 
   Cells(LRow, "I").Copy .Cells(LCol1, 2) 
   Cells(LRow, "K").Copy .Cells(LCol1, 3) 
 End With 
 
End Sub


Gruß Tino

Anzeige
AW: Doppelklick
24.01.2009 14:23:00
Dieter.G
Hallo Tino,
das klappt super! Danke nochmal
Gruss Dieter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige