HERBERS Excel-Forum - die Beispiele

Thema: Bei Doppelklick Buchung vornehmen

Home

Gruppe

Ereignis

Problem

Bei Doppelklick auf eine Buchungszeile soll der Bereich A:G dieser Zeile in die erste freie Zeile des in Spalte A genannten Kontos kopiert werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim wks As Worksheet
   Dim iRow As Integer
   If Target.Row = 1 Then Exit Sub
   If IsEmpty(Cells(Target.Row, 1)) Then Exit Sub
   On Error Resume Next
   Set wks = Worksheets(CStr(Cells(Target.Row, 1).Value))
   If Err > 0 Then
      Err.Clear
   Else
      iRow = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row + 1
      wks.Range(wks.Cells(iRow, 1), wks.Cells(iRow, 7)).Value = Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Value
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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