wie kann ich durch einen Doppelklick in eine Zelle die ganze Zeile nach Tabelle1 (nächste leere Zeile) kopieren?
Danke für eure Hilfe.
Gruße Sören
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Long
Cancel = True
With Sheets("Tabelle1")
z = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy .Rows(z)
End With
End Sub
Um in Excel durch einen Doppelklick auf eine Zelle die gesamte Zeile zu kopieren, kannst du den folgenden VBA-Code verwenden. Gehe wie folgt vor:
Öffne dein Excel-Dokument und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Wähle im Projektfenster das entsprechende Arbeitsblatt aus, in dem du die Funktion implementieren möchtest (z. B. "Tabelle1").
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Long
Cancel = True
With Sheets("Tabelle1")
z = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy .Rows(z)
End With
End Sub
Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.
Teste die Funktion, indem du auf eine Zelle doppelklickst. Die gesamte Zeile sollte in die nächste leere Zeile auf "Tabelle1" kopiert werden.
Fehler: Nach dem Doppelklick wird nichts kopiert.
Fehler: Es wird immer die gleiche Zeile kopiert.
z = .Cells(Rows.Count, 1).End(xlUp).Row + 1
sollte die nächste leere Zeile korrekt identifizieren.Falls du keine VBA-Makros verwenden möchtest, kannst du die Zeile auch manuell kopieren:
Diese Methode ist zwar nicht so bequem wie der Doppelklick, funktioniert jedoch ohne VBA.
Angenommen, du hast Daten in "Tabelle2" und möchtest bei einem Doppelklick auf eine Zelle die gesamte Zeile nach "Tabelle1" kopieren:
Target.EntireRow.Copy
und .PasteSpecial
erreichen.1. Muss ich Makros aktivieren, um den Doppelklick zu verwenden?
Ja, du musst Makros in deinen Excel-Einstellungen aktivieren, damit der VBA-Code funktioniert.
2. Funktioniert dieser Code in allen Excel-Versionen?
Der bereitgestellte VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Achte darauf, dass du die richtigen Berechtigungen für das Ausführen von Makros hast.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen