Verbund dreier Felder

[peter70pag]

Hallo,
ich würde gerne drei Felder wertetechnisch verbinden,
das heißt: in B2, C4, D6 soll jeweils der Wert stehen, das ich in einem der dreien eingegeben habe.
Wie kann ich das realisieren?

Vielen Dank

[Peter]

Hallo,

das geht so nur mit VBA.

Ohne VBA funktioniert das mit einer Hilfszelle, z.B. A1

Du gibst in A1 deinen Wert ein und in C2, C4 und D6 steht jeweils die Formel =A1.

Mit VBA könntest du es mal so versuchen

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2,C4,D6")) Is Nothing Then
Range("B2,C4,D6").Value = Target.Value
End If
End Sub

wobei der Code in das Modul des jeweiligen Tabellenblattes gehört:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

[atilla]

Hallo Peter,

das sieht nach einer Endlosschleife aus.
Müsstest vielleicht eine kleine Ergänzung machen.

[peter70pag]

Hat super funktioniert
vielen Dank Peter

gruß Peter