Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Doppelklick transponierte Werteübernahme und Druck

Gruppe

BeforeDoubleClick

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