VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Daten von Tabelle1 auf Tabelle2 übertragen

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Daten von Tabelle1 auf Tabelle2 übertragen

Problem

Wie kann ich Daten einer Zeile aus Tabelle1 durch doppelklicken in die erste freie Zeile von Tabelle2 übertragen?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick