HERBERS Excel-Forum - die Beispiele

Thema: Zwei Tabellen wechselseitig ändern

Home

Gruppe

Ereignis

Problem

Wie kann ich Eintragungen in der einen automatisch in der anderen Tabelle anzeigen lassen? Ein zusätzliches Problem ist, daß die eine Tabelle ein Auszug der anderen ist, d.h. sie hat nur einen Teil der Spalten der ersten Tabelle.

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

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim iCol As Integer
   iCol = Target.Column
   If iCol <> 1 And iCol <> 4 And iCol <> 7 Then Exit Sub
   Call Eintragen(Me, Target.Row, Target.Column)
End Sub

ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim iCol As Integer
   iCol = Target.Column
   If iCol <> 1 And iCol <> 2 And iCol <> 3 Then Exit Sub
   Call Eintragen(Me, Target.Row, Target.Column)
End Sub

StandardModule: basMain

Sub Eintragen(wks As Worksheet, iRow As Integer, iCol As Integer)
   Dim wksA As Worksheet
   If wks.Name = "Tabelle1" Then
      Set wksA = Worksheets("Tabelle2")
   Else
      Set wksA = Worksheets("Tabelle1")
   End If
   Select Case wks.Name
      Case "Tabelle2"
         Select Case iCol
            Case 1
               wksA.Cells(iRow, 1).Value = wks.Cells(iRow, iCol).Value
            Case 4
               wksA.Cells(iRow, 2).Value = wks.Cells(iRow, iCol).Value
            Case 7
               wksA.Cells(iRow, 3).Value = wks.Cells(iRow, iCol).Value
         End Select
      Case Else
         Select Case iCol
            Case 1
               wksA.Cells(iRow, 1).Value = wks.Cells(iRow, iCol).Value
            Case 2
               wksA.Cells(iRow, 4).Value = wks.Cells(iRow, iCol).Value
            Case 3
               wksA.Cells(iRow, 7).Value = wks.Cells(iRow, iCol).Value
         End Select
   End Select
End Sub

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

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Worksheet_Change auf 2 Zellen anwenden Mit Change() o. Calculate() Filtern und Drucken
Grafik nach Change in Exceltabelle laden Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis Namen definiert- in Ereignis verwenden?
Mail Exchange Server Workbook_SheetChange löscht Zwischenspeicher ...
On Worksheet Change - simulieren?! ChangeFileAccess
Zeilen aus- einblenden als Ereignis? Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen Worksheet_SelectionChange
Ereignisprozedur f. Multipage-Reiter Frage zum Change ereignis
Fehler bei Changelink Worksheet_SelectionChange bzw. Interior
Change Kein Change in Combobox erlauben(wenn false)
Überprüfung von Zellen mit Worksheet change SheetChange_Endlosschleife
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Bei "Worksheet_Change" aktuelles Datum in J3
Worksheet_Activate() / Worksheet_Change() Warum kann ich nicht Worksheet_Change
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
Workcheet-Change / Schleife..... change-ereignis bei dynamisch erstellten Controls
Worksheet_Change auf Spalten beschränken Worksheet_Change ohne aktive Zelleingabe
Private Sub Worksheet_Change(ByVal Target As Range For Each CheckBox, Change Value
Change(ByVal Target as range ComboBox.Change - ComboBox.Load Problem
Zwei Mal If inersect Ranges nach Worksheet change Schaltfläche - Ereignis erst nach Bestätigung ausl
SelectionChange - Change - Reihenfolge? Schleife bei Worksheet_Change
Objekt_Error - Ereignis in UserForm "Private Sub Worksheet_Change" deaktivieren