Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- kb:w:excel-wiedervorlage-mit-makro-untertabelle [2024/05/10 10:18] – angelegt heil
+++ kb:w:excel-wiedervorlage-mit-makro-untertabelle [2024/05/10 11:31] – heil
@@ Zeile 43: / Zeile 43: @@
 Option Explicit
-Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
+Private Sub Worksheet_SelectionChange(ByVal Target As Range)
-   Tabelle3.Range("A2").Value = Target.Value
+  If Target.Column = 1 Then
-   Target.Copy
+     Tabelle3.Range("A2").Value = Target.Value
-   Cancel = True
+     Target.Copy
+  End If
+'Alternative Variante mit Doppelklick
+'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
+  ' Tabelle3.Range("A2").Value = Target.Value
+  ' Target.Copy
+  ' Cancel = True
   If Tabelle2.AutoFilterMode Then
@@ Zeile 57: / Zeile 65: @@
      Tabelle2.Range("A1").AutoFilter 1, Tabelle3.Range("A2").Value
   End If
 End Sub