Gruppe
Ereignis
Problem
Bei Doppelklick auf eine Buchungszeile soll der Bereich A:G dieser Zeile in die erste freie Zeile des in Spalte A genannten Kontos kopiert werden.
ClassModule: Tabelle1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wks As Worksheet
Dim iRow As Integer
If Target.Row = 1 Then Exit Sub
If IsEmpty(Cells(Target.Row, 1)) Then Exit Sub
On Error Resume Next
Set wks = Worksheets(CStr(Cells(Target.Row, 1).Value))
If Err > 0 Then
Err.Clear
Else
iRow = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row + 1
wks.Range(wks.Cells(iRow, 1), wks.Cells(iRow, 7)).Value = Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Value
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub