Zellsynchronisation mit Kommentar und Wert

René · 2015-10-20T16:03:13+00:00

Ich hoffe mir kann jemand helfen, nachdem ich viele Infos bei Google ergebnislos ausgeschöpft habe. Ich habe zwei Arbeitsblätter in einer Arbeitsmappe und möchte die Zellen immer synchron halten. So weit so gut, aber bei der Synchronisation soll auch ein eingegebener Kommentar mit synchronisiert werden. Geht das überhaupt? Hier der Code, den ich bislang (dank an hary) habe. 'Code in den Ccode von: Dienstpläne Private Sub Worksheet_Change(ByVal Target As Range) 'bei Ã¤nderung von A1 If Target.Row >= 1 Then If Target.Column >= 2 Then Application.EnableEvents = False 'Tabellenname von "Blatt1" und "Blatt2" anpassen!!!!!!!!!!!!!! Worksheets("Tabelle1").Range("C3:ND14").Value = Worksheets("Tabelle2").Range("C3:ND14"). _ Value Application.EnableEvents = True End If End If End Sub Danke vorab, René

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

Okay, anbei mal eine Bespieldatei
https://www.herber.de/bbs/user/101015.xlsm
Was soll alles passieren
1. Wenn ich eine Schicht per Doppelklick in "SchichtX" eingebe, soll sie auch unter "Firma" eingetragen werden. Umgedreht genauso.
2. Wenn ich über das Userform einen Kommentar einfüge soll er ebenfalls bei "SchichtX" und "Firma" auftauchen.
3. Wenn ich das Userform öffne, sollen bereits bestehende Werte und Kommentare, welche sich ja schon in der Zelle befinden können, ausgelesen/voreingetragen sein.
4. Auf dem Tabellenblatt "Firma" und "SchichtX" habe ich mal eine dicke Rahmenlinie gezogen. Der Inhalt soll einzeln druckbar sein, so dass ich monatsweise Pläne ausdrucken kann. Z.B. über einen Extra Druckbutton, in welchem ich den Monat auswählen kann.
Die Zeitangaben welche sich noch in der Tabelle befinden dienen der Berechnung der Arbeitsstunden.
Ich gebe zu, dass ich hier gleich ganz schön viel will und dies nicht mal so schnell erledigt ist. Aber somit kennt ihr meine eingeschlagene Fahrtrichtung. Vielleicht geht es aber auch jemanden ganz locker von der Hand
René

Zellsynchronisation mit Kommentar und Wert

Forumthread: Zellsynchronisation mit Kommentar und Wert

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Zellsynchronisation mit Kommentar und Wert

Forumthread: Zellsynchronisation mit Kommentar und Wert

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread