Gruppe
Ereignis
Problem
Wie kann ich durch Doppelklicken auf eine Zelle die gesamte Spalte in ein zweites Arbeitsblatt kopieren?
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