Thema Datum  Von Nutzer Rating
Antwort
Rot Wechselseitige syncronisierung identischer Tabellen in zwei Dateien, mit VBA
 09.07.2020 09:58:01 Josef
NotSolved
09.07.2020 15:32:59 Gast89335
NotSolved
09.07.2020 16:33:48 Josef
NotSolved

Ansicht des Beitrags:
Von:
Josef		 Datum:
09.07.2020 09:58:01		 Views:
1169		 Rating:
     
Antwort:
  Ja
Thema:
Wechselseitige syncronisierung identischer Tabellen in zwei Dateien, mit VBA

Hallo an alle,

ich bin neu mit VBA unterwegs und bräuchte mal eure Hilfe.
Ich habe zwei unterschiedliche Arbeitsmappen/Dateien in denen aber jeweils eine Tabelle mit dessen Inhalten und idealerweise der Formatierungen (Verbundene Zellen, etc.) gleich sein sollen.
Nun kommt die große Problemstellung: Ich muss in beiden Arbeitsmappen an der Tabelle (mit Textinhalt, Datum, Zahlen) arbeiten können. Das heißt, dass sich die Tabellen in beide Richtungen/Arbeitsmappen synchronisiren müssen.
Hierbei muss evtl. auch der Zeitpunkt der Synchronisierung (Speichervorgang?) beachtet werden damit es zu keinen Konflikten kommt!?

Ich habe mal aus unterschiedlichen Beiträgen versucht erste Ansätze zu basteln was aber leider nicht funktioniert:
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'Code für Datei 1 "AM1_test.xlsm"
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ext_wb As Workbook
    If Not Intersect(Target, Columns(1:19)) Is Nothing Then
        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With
        Set ext_wb = Workbooks.Open(ThisWorkbook.Path & "\AM2_test.xlsm")
        ext_wb.Worksheets("offene Punkte").Range(Target.Address) = Target.Value
        Call ext_wb.Close(SaveChanges:=True)
        Set ext_wb = Nothing
        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If
End Sub
 
 
'Code für Datei 2 "AM2_test.xlsm"
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ext_wb As Workbook
    If Not Intersect(Target, Columns(1:19)) Is Nothing Then
        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With
        Set ext_wb = Workbooks.Open(ThisWorkbook.Path & "\AM1_test.xlsm")
        ext_wb.Worksheets("offene Punkte").Range(Target.Address) = Target.Value
        Call ext_wb.Close(SaveChanges:=True)
        Set ext_wb = Nothing
        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If
End Sub



Ich habe den Code bei der jeweiligen Arbeitsmappe unter "VBAProjekt (Dateiname.xlsm)" eingefügt.
Zum Testen habe ich eine der Dateien geöffnet, eine Änderung in der Tabelle "offene Punkte" durchgeführt und gespeichert.
Leider ohne programmseitige Reaktion bzw. Änderung in der anderen Datei.

Ich bin Anfänger mit VBA. Da ich mich hier noch sehr unsicher bewege, benötige ich bitte genauere Anweisungen als nur eine Codezeile oder den Verweis auf einen anderen Befehl. Danke für euer Verständnis!

Erkennt jemand den Fehler oder hat eine Idee?

Mit Dank im Vorraus
Gruß Josef

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wechselseitige syncronisierung identischer Tabellen in zwei Dateien, mit VBA
 09.07.2020 09:58:01 Josef
NotSolved
09.07.2020 15:32:59 Gast89335
NotSolved
09.07.2020 16:33:48 Josef
NotSolved