Worksheet_Change(ByVal Target As Range)

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung eines Sheets eine Temperatur entweder in °C oder Kelvin eintragen, in der jeweils anderen Zelle erscheint die Formel / die umgerechnete Temperatur: Eingetragene Temperatur±273°, je nach dem.
Problem:
Wenn ich es über angehängten Code mache, schreibt er (nachdem Zelle1 das Makro ausgelöst hat) brav in Zelle2 meine Formel. ABER: Zelle2 ist auch mit einem Intersect-Befehl ausgestattet. D.h. das Schreiben der Formel löst das gleiche Makro erneut aus und in Zelle1 wir eine Formel geschrieben. Was wiederum das Schreiben der Formel in Zelle2 auslöst... eine schöne "Art Zirkelbezug" auf Programierungsebene.
Sagte ich das hier schon? HILFE!
Na, dann ist es ja jetzt gesagt.
Und so schließe ich ab wie ich begonnen habe: schönes Wochende!


Private Sub Worksheet_Change(ByVal Target As Range)
'C10 = °C-Zelle
'C11 = Kelvin-Zelle
If Not Intersect(Target, Range("C10")) Is Nothing Then
Range("C11").FormulaR1C1 = "=ROUND(R[+1]C+273,2)"
End If
If Not Intersect(Target, Range("C11")) Is Nothing Then
Range("C10").FormulaR1C1 = "=ROUND(R[-1]C-273,2)"
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) 'C10 = °C-Zelle 'C11 = Kelvin-Zelle Application.EnableEvents = False Select Case Target.Address(0, 0) Case "C10" Range("C11").FormulaR1C1 = "=ROUND(R[+1]C+273,2)" Case "C11" Range("C10").FormulaR1C1 = "=ROUND(R[-1]C-273,2)" End Select Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Select Case Target.Address Case "$C$10" '= °C-Zelle Range("C11").FormulaR1C1 = "=ROUND(R[-1]C+273.15,2)" Case "$C$11" ' = Kelvin-Zelle Range("C10").FormulaR1C1 = "=ROUND(R[+1]C-273.15,2)" End Select Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$10" Then Range("C11") = Application.Round(Target.Value + 273.15, 2) ElseIf Target.Address = "$C$11" Then Range("C10") = Application.Round(Target.Value - 273.15, 2) End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Worksheet_Change(ByVal Target As Range)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Worksheet_Change(ByVal Target As Range)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread