Metainformationen zur Seite
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Nächste Überarbeitung		Vorhergehende Überarbeitung
kb:w:excel-wiedervorlage-mit-makro-untertabelle [2024/05/10 10:18] – angelegt heilkb:w:excel-wiedervorlage-mit-makro-untertabelle [2024/05/10 11:37] (aktuell) – heil
Zeile 43: Zeile 43:
 Option Explicit 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   If Tabelle2.AutoFilterMode Then
Zeile 57: Zeile 65:
      Tabelle2.Range("A1").AutoFilter 1, Tabelle3.Range("A2").Value      Tabelle2.Range("A1").AutoFilter 1, Tabelle3.Range("A2").Value
   End If   End If
 +
  
 End Sub End Sub
Zeile 65: Zeile 74:
  
   * In Tabellenblatt "Tabelle1" steht in Spalte A in jeder Zeile eine Identifikationsnummer (also eine Zahl).   * 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).   * 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.   * 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.