VBa Copy by Doppelklick leere Spalte
Stefan
Folgendes Macro Kopiert mir aus einem Tabellenblatt in das andere die Werte, wobei es immer nach der nächst leeren Zeile sucht. Soweit Super !
Kann man es auch so verändern das er mir nur die Werte einfügt ?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.ScreenUpdating = False
Dim rng As Range
Sheets("Übergabe").Select
Sheets("Datenbank").Select
If Not Intersect(Target, [A:Q]) Is Nothing Then
Cancel = True
Set rng = FirstEmptyCell(Worksheets("Übergabe").Range("c:c"))
If Not rng Is Nothing Then Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Copy rng
Sheets("Übergabe").Select
Application.ScreenUpdating = True
End If
Set rng = Nothing
End Sub
----------------------------------------------------------
Private Function FirstEmptyCell(Target As Range) As Range
Dim rng As Range
For Each rng In Target.Cells
If rng = "" Then
Set FirstEmptyCell = rng
Exit Function
End If
Next
End Function