Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Doppelklick Buchung vornehmen

Gruppe

BeforeDoubleClick

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.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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