VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren

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

    


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