Thema: Werte bei Zellbewegungen in andere Tabellen übernehmen

Home

Gruppe

Ereignis

Problem

Bei Zellbewegungen sollen Werte in die in der Tabelle genannten Arbeitsblätter übernommen werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim wks As Worksheet
   Dim iRow As Integer
   If Target.Row = 1 Then Exit Sub
   If Target.Column > 2 Then Exit Sub
   If IsEmpty(Cells(Target.Row, 2)) Then Exit Sub
   On Error Resume Next
   Set wks = Worksheets("final data" & CStr(Cells(Target.Row, 2).Value))
   If Not wks Is Nothing Then
      iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
      wks.Rows(iRow).Value = Rows(Target.Row).Value
   End If
   On Error GoTo 0
End Sub

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

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
Worksheet_SelectionChange	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	Worksheet_SelectionChange bzw. Interior
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	SelectionChange - Change - Reihenfolge?
Objekt_Error - Ereignis in UserForm	selectionchange nicht, wenn before rightclick
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	Exit-Ereignis SetFocus
select Ereigniss UF Show	Ereignis zeitweise mit Fehler
Ereignismakro	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	Worksheet_SelectionChange
Worksheet_SelectionChange	Exit Ereignis