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