Gegenseitige Abhängigkeit

Forumthread: Gegenseitige Abhängigkeit
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Gegenseitige Abhängigkeit

07.09.2017 18:36:32

Siggi

Hallo
Ich möchte gerne, dass zwei Zellen sich gegenseitig beeinflussen.
Z.B.Zelle "B5" und "D6".
"B5" = 5*"D6"
und
"D6" = "B5"/5
So soll es funktionieren:
1.) Am Anfang beide Felder bleiben leer,
es ändert sich nichts.
2.) In "B5" wird ein Wert von 100 eingetragen wird,
so ergibt "D6" einen Wert von 20 aus.
3.) Ich klicke auf "D6" und gebe statt 20 einen Wert von 30 ein.
"B5" ändert sich auf 150.
Danke !

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das geht nicht bzw. nur mittels VBA, owT

07.09.2017 19:03:49

Michael
AW: Gegenseitige Abhängigkeit

07.09.2017 19:29:55

Siggi
AW: Gegenseitige Abhängigkeit

07.09.2017 19:46:54

KlausF
AW: Gegenseitige Abhängigkeit

08.09.2017 01:10:07

Siggi
oder noch etwas schneller

07.09.2017 19:57:15

KlausF
AW: B5D5 D5B5

07.09.2017 23:57:05

Gerd

Das geht nicht bzw. nur mittels VBA, owT

07.09.2017 19:03:49

Michael

AW: Gegenseitige Abhängigkeit

07.09.2017 19:29:55

Siggi

Das ist mir schon klar,
wie geht es denn mittels VBA?
villeicht kann ja jemand hier die Formel hinschreiben

AW: Gegenseitige Abhängigkeit

07.09.2017 19:46:54

KlausF

Hi,
Rechtsklick auf den Tabellenreiter und z.B. folgendes eingeben:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "B5"
Range("D6") = Target / 5
Case "D6"
Range("B5") = Target * 5
Case Else
End Select
End Sub

Gruß
Klaus

AW: Gegenseitige Abhängigkeit

08.09.2017 01:10:07

Siggi

Danke schön !
Es funktioniert : ))

oder noch etwas schneller

07.09.2017 19:57:15

KlausF

Hi, oder so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5, D6")) Is Nothing Then
If Target.Address(False, False) = "B5" Then Range("D6") = Target / 5: Exit Sub
If Target.Address(False, False) = "D6" Then Range("B5") = Target * 5
End If
End Sub

Gruß
Klaus

AW: B5D5 D5B5

07.09.2017 23:57:05

Gerd

Hallo Siggi!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, C As Range
Set Rng = Range("B5,D5")
If Not Intersect(Rng, Target) Is Nothing Then
For Each C In Intersect(Rng, Target)
If IsNumeric(C.Text) Then
Application.EnableEvents = False
If C.Address = Rng.Areas(1).Address Then
Rng.Areas(2) = C.Value / 5
Else
Rng.Areas(1) = C.Value * 5
End If
Application.EnableEvents = True
End If
Next
End If
End Sub

Gruß Gerd