Office: Zellen miteinander verlinken

Hallo zusammen,

ich habe nun schon eine Weile diverse Foren nach einer Lösung für mein Problem durchsucht ohne eine passende Antwort zu finden. Deswegen dachte ich, dass Ihr mir vielleicht weiterhelfen könnt *Smilie

Ich möchte Zellen von verschiedenen Excel-Sheets miteinander verlinken. Wenn ich also bspw. in Worksheet 1 den Wert von Zelle A1 auf 2 ändere soll sich in Worksheet 2 der Wert von Zelle B1 auch auf 2 ändern und umgekehrt.

Das einzige was ich bisher geschafft habe, ist die Verlinkung zwischen einzelnen Zellen auf dem selben Worksheet mit folgendem Code:

Code:

Hier also meine konkreten Frage:

1. Frage: Gibt es eine Möglichkeit, dass diese Verlinkung der Zellen in beide Richtungen auch zwischen zwei Worksheets funktioniert?

2. Frage: Kann ich die Verlinkung auf ganze Spalten erweitern? Sprich, wenn sich ein Wert in Worksheet 1 in Spalte A ändert (z.B. A2 oder jede andere Zelle in der Spalte A), soll sich im Worksheet 2 in der Spalte B der Zellwert in der gleichen Zeile ändern (also B2, falls A2 sich geändert hat).

Ich hoffe meine Fragen sind einigermaßen verständlich. Ich würde mich über Eure Unterstützung sehr freuen!

ps: Nachdem Ihr das gelesen habt ist eigentlich eh klar, dass ich blutiger VBA-Anfänger bin, ich wollte nur noch einmal darauf hinweisen *Smilie

Vielen Dank schonmal und viele Grüße,

ba

:)

 

HAllo

Verscuh mal sowas:

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
Dim Bereich As Range
Select Case Sh.Name
Case "Tabelle1"
Set Bereich = Intersect(Target, Range("A:A"))
If Not Bereich Is Nothing Then
Application.EnableEvents = False
For Each Zelle In Bereich
Tabelle2.Range("B" & Zelle.Row).Value = Zelle.Value
Next
Application.EnableEvents = True
End If
Case "Tabelle2"
Set Bereich = Intersect(Target, Range("B:B"))
If Not Bereich Is Nothing Then
Application.EnableEvents = False
For Each Zelle In Bereich
Tabelle1.Range("A" & Zelle.Row).Value = Zelle.Value
Next
Application.EnableEvents = True
End If
End Select
End Sub


Der Code gehört in das Modul von DieseArbeitsmappe.

ransi

 

Hi ransi,

vielen Dank, das hilft mir extrem weiter! Falls ich nochmal Probleme haben sollte, melde ich mich *Smilie

VG, ba