Doppelte bzw. Gegenseitige Funktion zweier Zellen

[A3295]

Hallo,

ich hätte da eine Frage bezüglich meiner Tabelle. Für die Uni soll ich eine Tabelle erstellen, mit der ich ein Lüftungskanalnetz auslegen kann.
Dazu habe ich ein paar Eingabefelder und ein paar Felder die durch Formeln berechnet werden sollen, unteranderem z.B den Volumenstrom pro Stunde (V̇h) und den Volumenstrom pro Sekunde (V̇s).
Die Umrechnung dazu wäre  V̇s = V̇h/3600 und  V̇h= V̇s*3600

Wenn V̇h z.B. in Spalte B1 ist und V̇s in Spalte C1, hätte ich gerne, dass egal welches ich von beiden ausfülle, er mir das jeweils andere ausrechnet.

Also z.B gebe ich dann für  V̇h in Spalte B1 100 ein dann soll er mir diese 100/3600 in C1 ausrechnen. Da würden dann 0,0278 raus kommen. Andersrum will ich es aber auch haben,
wenn ich jetzt nur die 0,0278 als Wert hätte, will ich diese in C1 reinschreiben und er soll es mir für B1 ausrechnen. Beide Funktionen gleichzeitig lehnt er mir aber ab. Auch als =wenn Formel.

Ich hoffe ihr versteht was ich meine :D

Vielen Dank im vorraus.


LG

[shift-del]

Moin

Entweder mit VBA oder mit Hilfsspalten.

[el-rettev]

Hallo,

wie shift-del bereits erwähnte: VBA wäre glaube ich eine gute Lösung. Der Code wäre auch, glaube ich, nicht zu komplex.

Hier eine Formel-Alternative.
Evtl. ist da ja was.

[Gast 123]

Hallo

fehlt noch die passende VBA Lösung:

mfg Gast 123

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
On Error GoTo Fehler
If Target.Column = 2 Then
   If Target.Value = Empty Then
      Target.Offset(0, 1) = Empty
   Else
      Target.Offset(0, 1) = Target / 3600
   End If
ElseIf Target.Column = 3 Then
   If Target.Value = Empty Then
      Target.Offset(0, -1) = Empty
   Else
      Target.Offset(0, -1) = Target * 3600
   End If
End If
Exit Sub
Fehler:  MsgBox "Target Fehler aufgetreten"
End Sub

[A3295]

Dankeschön!!! Alle Methoden haben genau so geklappt, wie ich es mir vorgestellt habe. :D