Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle2

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   Dim iCol As Integer
   Cancel = True
   With Worksheets("Aufträge")
      If IsEmpty(.Range("A1")) Then
         iCol = 1
      Else
         iCol = .Cells(1, Columns.Count) _
            .End(xlToLeft).Column + 1
      End If
      ActiveCell.EntireColumn.Copy .Cells(1, iCol)
   End With
   Application.CutCopyMode = False
End Sub

    

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