ich benötige etwas Hilfe bei der Doppelklick-Funktion:
Bisher nutze ich folgenden Code, um aus einer Liste einen Inhalt in eine bestimmte Zelle zu kopieren, wo dann automatisch eine weitere Aktion ausgelöst wird. Das klappt auch wunderbar:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Zelle liegt im Bereich ab Zeile 13 und in Spalte 2
If Target.Row > 12 Then
If Target.Column = 2 Then
If Not IsEmpty(Target.Value) Then _
' mit Doppelklick wird Zeile 3 in Spalte 2 (B3) gefüllt
Cells(3, 2).Value = Target.Value
Cancel = True
End If
End If
If Target.Column = 3 Then
If Not IsEmpty(Target.Value) Then _
' mit Doppelklick wird Zeile 3 in Spalte 3 (C3) gefüllt
Cells(3, 3).Value = Target.Value
Cancel = True
End If
End If
If Target.Column = 4 Then
If Not IsEmpty(Target.Value) Then _
' mit Doppelklick wird Zeile 3 in Spalte 4 (D3) gefüllt
Cells(3, 4).Value = Target.Value
Cancel = True
End If
End If
If Target.Column = 5 Then
If Not IsEmpty(Target.Value) Then _
' mit Doppelklick wird Zeile 3 in Spalte 5 (E3) gefüllt
Cells(3, 5).Value = Target.Value
Cancel = True
End If
End If
If Target.Column = 6 Then
If Not IsEmpty(Target.Value) Then _
' mit Doppelklick wird Zeile 3 in Spalte 6 (F3) gefüllt
Cells(3, 6).Value = Target.Value
Cancel = True
End If
End If
End If
End Sub
Jeder Doppelklick, z. B. beim letzten Teil auf Zelle X in Spalte 6 kopiert somit den jeweils ausgewählten Wert unabhängig von den anderen in Zelle F3. Das ist auch sinnvoll, weil diese Abfolge hierarchisch aufgebaut ist und bei Spalte 4 (z. B. Werkzeug) Excel ja nicht weiß, ob in Spalte 6 Zange oder Hammer gesucht wird.
Wenn allerdings in Spalte 6 der Hammer ausgewählt wird, sollen die Inhalte aus derselben Zeile in Spalte 5 (z.B. Handwerkzeug) in E3 und gleichzeitig aus Spalte 4 (z. B. Werkzeug allgemein) in D3 usw. kopiert werden.
Ich habe für eine solche Aufgabenstellung kein Beispiel und damit auch keine Lösung finden können, aber vielleicht hat ja hier mal wieder jemand eine wunderbare Lösung?
Beste Grüße aus dem Nordwesten, wo es endlich mal etwas regnet! (Hätte nie gedacht, dass ich mich mal über Regen freuen würde!)
Reinhard