Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1740to1744
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
Inhaltsverzeichnis

dDoubleclick unterschiedliche Tabellen

dDoubleclick unterschiedliche Tabellen
17.02.2020 23:32:01
Hans
Hallo Zusammen,
untenstehenden Code in aktive Tabelleblatt (Satammdaten) kopiert nummer in Tabelleblatt Invoer1 so weit so gut.
ich möchte aber gerne über gleiche Doubleklick ereignis, bestimmten werten auch in eine ander Tabellenblatt einfügen.
wie kan ich diese code in ein standard Modul setzen und unterschiedlichen Tabellenblätter ansprechen.
oder gibt es einen andere ansatz..?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim L As Long
Cancel = True
If Not Intersect(Target, Range("A2:E100000")) Is Nothing Then
'If Not Intersect(Target, [B4:D100000]) Is Nothing Then
With Sheets("Invoer1")
L = .Cells(.Rows.Count, 1).End(xlUp).Row + 1    ' Rows Spalte angaben einfügen .End( _
xlUp).Row + 1 untereinander
If L 
beste grüße
Hans

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Code in DieseArbeitsmappe
17.02.2020 23:43:53
Matthias
Hallo
als Ansatz ...
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
MsgBox ActiveSheet.Name
End Sub
Das gilt dann für alle WorkSheets im Workbook
Gruß Matthias
AW: dDoubleclick unterschiedliche Tabellen
17.02.2020 23:48:13
onur
Wozu das hier:
Application.EnableEvents = False
?
Und das:
SendKeys "{F2}", True
SendKeys "{ENTER}", True
?
Ändert sich ausser dem Blattname nix?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige