VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Doppelklick transponierte Werteübernahme und Druck

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Bei Doppelklick transponierte Werteübernahme und Druck

Problem

Bei Doppelklick auf eine Zeile sollen die Daten der Zeile in Tabelle 2 tranponiert übernommen und gedruckt werden.

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.




ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim iCounter As Integer
   Cancel = True
   With Worksheets("Tabelle2")
      For iCounter = 1 To 5
         .Cells(iCounter, 1) = Cells(Target.Row, iCounter)
      Next iCounter
      .PrintPreview
   End With
End Sub

    


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