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:37] (aktuell) – 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
@@ Zeile 65: / Zeile 74: @@
   * In Tabellenblatt "Tabelle1" steht in Spalte A in jeder Zeile eine Identifikationsnummer (also eine Zahl).
-  * Diese Zahl soll per Doppelklick auf das jeweilige Feld an ein fest vorgegebenes Feld (A2) auf das Tabellenblatt "Tabelle3" übergeben werden.
+  * Diese Zahl soll per einfachem Klick (bzw. Doppelklick - muss dann im VBA-Code auskommentiert werden) auf das jeweilige Feld an ein fest vorgegebenes Feld (A2) auf das Tabellenblatt "Tabelle3" übergeben werden.
   * In Tabellenblatt "Tabelle2" ist eine Liste enthalten, die mehrere Einträge zur gleichen Identifikationsnummer der Tabelle1 enthält (also eine Untertabelle).
   * Wenn nun der Benutzer in Tabelle1 einen Doppelklick auf eine Zelle der Spalte A ausführt, wird die jeweilige Identifikationsnummer zuerst nach Tabelle2 in das Feld A2 kopiert. Anschließend wird dieser Wert verwendet, um in Tabelle2 alle Einträge zu filtern, die in Spalte A diesen Wert enthalten.