Gruppe
Ereignis
Problem
Wie kann ich Daten einer Zeile aus Tabelle1 durch doppelklicken in die erste freie Zeile von Tabelle2 übertragen?
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim iRow As Integer
If WorksheetFunction.CountA(Rows(Target.Row)) = 0 Then
Exit Sub
Else
Cancel = True
End If
With Worksheets("Tabelle2")
If IsEmpty(.Range("A1")) Then
iRow = 1
Else
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
.Rows(iRow).Value = Target.EntireRow.Value
End With
End Sub