Doppelklick in Excel: Werte aus Spalte A in den Lieferschein übernehmen
Schritt-für-Schritt-Anleitung
Um bei einem Doppelklick in einer Excel-Tabelle den Wert aus Spalte A in den Lieferschein zu übertragen, musst du den folgenden VBA-Code verwenden. Stelle sicher, dass du den Code in das richtige Arbeitsblatt einfügst:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Wähle das Arbeitsblatt aus, in dem du das Doppelklick-Ereignis implementieren möchtest.
- Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Worksheets("Lieferschein").Range("B5").Value = Cells(Target.Row, 1).Value
Cancel = True
Worksheets("Lieferschein").Select
End If
End Sub
- Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.
- Teste den Doppelklick auf eine Zelle in Spalte A.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um den Doppelklick-Ereignis zu implementieren, ist die Verwendung von ActiveCell:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Worksheets("Lieferschein").Range("B5").Value = ActiveCell.Value
Cancel = True
Worksheets("Lieferschein").Select
End If
End Sub
Diese Methode arbeitet ebenfalls, um den Wert von Spalte A in den Lieferschein zu übertragen, erfordert jedoch, dass die aktive Zelle immer in der richtigen Spalte ist.
Praktische Beispiele
Angenommen, du hast in Spalte A Kundennummern und möchtest die Kundennummer in die Zelle B5 des Arbeitsblatts "Lieferschein" übertragen. Mit dem oben genannten VBA-Code wird dies beim Doppelklick auf eine Zelle in Spalte A automatisch erledigt.
Tipps für Profis
- Nutze die
Cancel-Variable, um das Standardverhalten von Doppelklicks zu verhindern. Dies ist besonders nützlich, wenn du nur bestimmte Zellen für Doppelklicks definieren möchtest.
- Experimentiere mit anderen Excel-Objekten oder -Methoden in deinem VBA-Code, um die Funktionalität weiter zu erweitern.
FAQ: Häufige Fragen
1. Wie kann ich den Code anpassen, um Werte in andere Zellen zu übertragen?
Du kannst die Zielzelle in Worksheets("Lieferschein").Range("B5") ändern, um den Wert in eine andere Zelle zu übertragen.
2. Funktioniert dieser Code in Excel 2016 und späteren Versionen?
Ja, der Code ist für Excel 2016 und alle späteren Versionen geeignet, solange die VBA-Funktionalität aktiviert ist.