Office: Zellen verknüpfen

Hallo zusammen,

könnt ihr mir bitte weiterhelfen?
Ich würde gerne eine Zelle vom Tabellenblatt 1 mit der Zelle vom Tabellenblatt 2 verknüpfen.
Hierbei soll sich beim Eintrag in der Zelle 1, von der Tabelle 1, der Wert in der Tabelle 2, Zelle 1 automatisch ersetzen und genau so andersrum. Quasi soll der Wert immer gleich sein, egal in welcher Zelle ich einen Eintrag tätige. Vielen Dank im Voraus.

 

Hallo Marcus,

diese Anforderung an Excel ist mit Arbeitsblatt-Funktionen nicht erfüllbar, denn das läuft präzise auf eine Zirkelbezug hinaus.

Aber mit einer Programmierung in VBA ist es durchaus möglich, nur müsste man dazu genauere Angaben bekommen, wie die Arbeitsblätter heißen und um welche Zellen es sich in diesen handelt.

Darüber hinaus ergibt sich hier eine grundsätzliche Frage: Wozu soll das gut sein, eine Verdopplung der Daten?

 

Hi Anton,

das klingt gut.
Arbeitsblatt 1 = BMA, für alle Zellen der Spalte T:T
Arbeitsblatt 2 = KFM, für alle Zellen der Spalte W:W

In dem jeweiligen Tabellenblatt soll von nur einer Person gearbeitet werden.
Vielen Dank schon mal.
Grüße Marcus

 

Hallo,

in der beiliegenden Excel-Arbeitsmappe habe ich dir im Codemodul der Arbeitsmappe ein Makro eingefügt, das auf Datenänderungen in den Arbeitsblättern BMA bzw. KFM reagiert, sofern diese Datenänderung in den Spalten T bzw. W stattfand.

Es können einzelne Zellen geändert werden, wobei die Änderung in der entsprechenden Zelle des anderen Arbeitsblattes ebenfalls erfolgt. Es können auch mehrere Zellen (Zellbereich) gleichzeitig geändert werden, sofern sie in 1 Spalte liegen.
Allerdings sind Bereiche, die sich mit besagten Spalten überlappen (also nicht bloß enthalten sind), nicht erlaubt - ein Meldungsfenster ist die Folge.
Das Makro sieht wie folgt aus:

Code:

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim WsAkt As Worksheet, RgAkt As Range
  Dim WsAlt As Worksheet, RgAlt As Range
 
  'Überprüfen des Sh-Arbeitsblattes:
  'Falls Sh nicht "BMA" bzw. "KFM", dann exit
  'Festlegen der Spalten T bzw. W
  Set WsAkt = Sh
  If WsAkt.Name = "BMA" Then
     Set WsAlt = Worksheets("KFM")
     Set RgAkt = WsAkt.Range("T:T"): Set RgAlt = WsAlt.Range("W:W")
  ElseIf WsAkt.Name = "KFM" Then
     Set WsAlt = Worksheets("BMA")
     Set RgAkt = WsAkt.Range("W:W"): Set RgAlt = WsAlt.Range("T:T")
  Else
     Exit Sub
  End If
 
  'Überprüfen des Target-Bereiches:
  'Falls nicht im RgAkt bzw. nicht einspaltig, dann exit (eventuell Meldung)
  If Intersect(Target, RgAkt) Is Nothing Then Exit Sub
  If Target.Columns.Count > 1 Then
     MsgBox Prompt:="Geänderter Bereich: " & Target.Address & vbNewLine & _
                    "Nur 1 Spalte ist erlaubt!", _
            Buttons:=vbCritical, Title:="Unerlaubter Bereich"
     Exit Sub
  End If
 
  On Error GoTo WsShChange         'Falls im Folgenden ein Fehler auftritt
  Application.EnableEvents = False 'Deaktivieren Excel-Events
 
  RgAkt.Copy Destination:=RgAlt    'Kopieren Quellspalte in Zielspalte
  Target.Range("A1").Select        'Auswahl-Bereich auf 1 Zelle schrumpfen

WsShChange:
  Application.EnableEvents = True  'Reaktivieren Excel-Events
End Sub

 

Hi Anton,

ich hätte doch noch mal einen Änderungswunsch.
In T soll es erst in der dritten Spalte losgehen und in W in der zweiten.
Könntest du das noch mal anpassen?

Grüße Marcus

 

Hallo,

du meinst wohl Zeile statt Spalte (zumindest wenn man nach dem allgem. Sprachgebrauch im Deutschen geht).

Aber dann ergibt sich ein grundsätzliches Problem: Wenn in Spalte W bereits in der 2. Zeile (also ab Zelle W2) etwas eingegeben werden darf, das dann natürlich in Zelle T2 erscheint, dort aber erst ab der 3. Zeile etwas eingegeben werden darf. Was soll da dann mit Zelle T2 passieren?

 

Hi, sorry verwechselt.
Dann ab W3 und T3

 

Hallo,

ich habe folgende VBA-Zeile eingefügt:
If Target.Row < 3 Then Exit Sub

Geänderte Datei liegt bei.

 

Hi Anton,

funktioniert super. Vielen Dank.