ich habe zwei Zellen, H6= Tage und I6 Stunden, diese sollen sich bei Eingabe gegenseitig verändern.
Dazu habe ich folgenden Code, den ich folgendermaßen eingefügt habe:
Rechtsklick auf das Tabellenblatt -> Code anzeigen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Integer
A = "8"
Application.EnableEvents = False
If Target.Address = "H6" Then Range("I6") = Range("H6") * A
If Target.Address = "I6" Then Range("H6") = Range("I6") / A
Application.EnableEvents = True
End Sub
Leider passiert nach der Eingabe in einer der beiden Zellen gar nichts.
Hab es zwischendurch gespeichert, leider keine Veränderung.
Bin dankbar für jede Hilfe.
Danke und viele Grüße, Philipp