Zeilen und Spalten synchronisieren

Bild

Betrifft: Zeilen und Spalten synchronisieren
von: Joe
Geschrieben am: 22.10.2015 17:19:21

Hallo,
ich bin verzweifelt auf der Suche nach einer Lösung um den bestehenden Synchronisationsbereich zu erweitern.
Bis jetzt beschränkt der Bereich sich nur auf eine Zeile (A1:A20) in zwei Registern. Jetzt würde ich den Bereich gerne so erweitern, dass er A1:F20 umfasst.
Tabelle 1:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Worksheets("Tabelle1").Cells(Target.Row, 1).Value = Target.Value
    Application.EnableEvents = True
End Sub
Tabelle 2:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Worksheets("Tabelle1").Cells(Target.Row, 1).Value = Target.Value
    Application.EnableEvents = True
End Sub
Ich hoffe mir kann jemanden helfen.

Bild

Betrifft: AW: Zeilen und Spalten synchronisieren
von: Nepumuk
Geschrieben am: 22.10.2015 17:27:04
Hallo,
so?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Application.Intersect(Target, Range("A1:F20")) Is Nothing Then
        Application.EnableEvents = False
        Worksheets("Tabelle1").Range(Target.Address).Value = Target.Value
        Application.EnableEvents = True
    End If
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Zeilen und Spalten synchronisieren
von: Joe
Geschrieben am: 22.10.2015 18:29:56
Hallo nepumuk,
danke für deine schnelle Antwort. Das klappt super!
Angenommen, die Bereiche sind nicht identisch. Bspw. der Bereich befindet sich im ersten Register F15:K34 und im zweiten Register A1:F20.
Wie könnte man das am besten lösen?

Bild

Betrifft: AW: Zeilen und Spalten synchronisieren
von: Nepumuk
Geschrieben am: 22.10.2015 18:36:32
Hallo,
so:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Application.Intersect(Target, Range("A1:F20")) Is Nothing Then
        Application.EnableEvents = False
        Worksheets("Tabelle1").Range(Target.Address).Offset(14, 5).Value = Target.Value
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Application.Intersect(Target, Range("F15:K34")) Is Nothing Then
        Application.EnableEvents = False
        Worksheets("Tabelle2").Range(Target.Address).Offset(-14, -5).Value = Target.Value
        Application.EnableEvents = True
    End If
End Sub

Wo welcher Code hin muss kann ich nicht sagen da ich deine Mappe nicht kenne. Beachte dass du gegebenenfalls die Tabellennamen anpassen musst.
Gruß
Nepumuk

Bild

Betrifft: AW: Zeilen und Spalten synchronisieren
von: Joe
Geschrieben am: 27.10.2015 08:56:29
Entschuldige die verspätete Rückmeldung! Hat alles bestens geklappt!
VG Joe

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen und Spalten synchronisieren"