AW: Zellsynchronisation mit Kommentar und Wert
20.10.2015 16:43:41
Michael
Hi René,
das muß ich etwas kritisieren: den kompletten Bereich zu kopieren, wenn sich *eine* Zelle ändert, ist die reine Zeitverschwendung.
Also wenn schon mit Worksheet_Change, dann so:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' Diese Funktion liegt im Tabellenblatt *1*, testhalber,
' deshalb Zuweisung an Blatt 2
' das bedeutet: Reaktion nur, wenn Änderung
' im Bereich C3:AA14 erfolgt:
' Du kannst mir nicht weismachen, daß bei ND14 noch Daten stehen
If Not Intersect(Target, Range("C3:AA14")) Is Nothing Then
Worksheets("Tabelle2").Range(Target.Address).Value = Target.Value
End If
End Sub
Wozu man überhaupt zwei identische Tabellen benötigt, erschließt sich mir auf Anhieb nicht.
Eigentlich braucht man für die reinen Werte gar kein VBA, da genügt eine schlichte Zuweisung: angenommen, die Eingaben erfolgen in Tabelle1 und Du möchtest Kopien in Tabelle2, dann schreibst Du in Tabelle2 in die Zelle C3:
=Tabelle1!C3
und kopierst die Formel auf den kompletten, gewünschten Bereich.
Die Kommentare könnte man mit VBA einzeln kopieren, aber es gibt noch eine ganz andere Überlegung: warum nicht die vorhandene Kopie des Blattes löschen und erneut kopieren? Das sollte am Schnellsten gehen.
Schöne Grüße,
Michael