Spalten vergleichen und abgleichen

Ich versteh das mit dem Gruppieren nicht wirklich, kannst mir n bischen hilfestellung geben ?

markiere die registerlasche der tabelle 1 - dann umschalttaste oder strg taste und markiere die Tabelle2 nun sind diese gruppiert . alles was du in tabelle 1 machst wird nun wie eine art durchschlagpapier in tabelle2 genau so ausgeführt gruß andreas e

Danke, war schon ne sehr guter tip... aber jetzt gleicht er die ganze tabelle.... ich wollte es aber hinkriegen, das er nur die die erste Spalte (a) abgleicht, der rest sollte unabhängig von einander sein....sorry, ich hab mein problem wohl vorhin nicht genau beschrieben ...

Hallo Jan, mir ist auch noch nicht so ganz klar, was Du erreichen willst. Nehmen wir mal an es geht um Tabelle1 und Tabelle2. Die 1. nachfolgende Ereignisprozedur (muß der Tabelle1 zugewiesen werden) kopiert die Spalte A aus Tabelle1 in die Spalte A von Tabelle2, wenn ein Wert in Spalte A der Tabelle1 verändert wurde, so daß die Spalten anschließend identisch sind. Die 2. Ereignisprozedur macht das gleiche, wenn in Spalte A der Tabelle1 eine andere Zelle ausgewählt wird. Dadurch könntest Du z.B. auch das Einfügen/Löschen von Zeilen in Tabelle 2 übernehmen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 Then Worksheets("Tabelle1").Columns(1).Copy Destination:=Worksheets("Tabelle2").Range("A1") End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Column = 1 Then Worksheets("Tabelle1").Columns(1).Copy Destination:=Worksheets("Tabelle2").Range("A1") End If End Sub

Gruß Martin Beck