Thema: Bei Doppelklick transponierte Werteübernahme und Druck

Home

Gruppe

Ereignis

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

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??	Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter	Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Ereignis von Laufzeit-Checkbox	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Worksheet_BeforeDoubleClick
Objekt_Error - Ereignis in UserForm	change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?	Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse	Ausnahmen für Exit-Ereignis
Worksheet_BeforeDoubleClick	Exit-Ereignis SetFocus
select Ereigniss UF Show	Ereignis zeitweise mit Fehler
Ereignismakro	Worksheet_BeforeDoubleClick
Selectereigniss in Spalte	doppeltes Klick-Ereignis
Doppelklick-Ereignis	VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht	Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten	Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an	Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic	change ereigniss nicht ausführen Userform
Exit Ereignis	Rekursiven Aufruf von Ereignissen verhindern
Makro läuft nicht, falsches Ereignis?	Dropdown Ereignis