AW: Mit Doppelklick neu berechnen.
11.02.2008 17:11:00
Erich
Hallo Josef,
da habe ich zwei Varianten anzubieten. Bei der ersten wird der berechnete Wert in B5 geschrieben,
bei der zweiten wird die Formel in B5 geschrieben.
Eine der beiden Prozeduren kommt in das Modul der Tabelle1
(Rechtsklick auf den Tabellenreiter, Code anzeigen):
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target(1), Range("C5:Z5")) Is Nothing Then Exit Sub
Cancel = True
Range("B5") = Target(1) / Target(1).Offset(-1, 0) ^ 2
End Sub
'oder
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strT As String
If Intersect(Target(1), Range("C5:Z5")) Is Nothing Then Exit Sub
Cancel = True
strT = Left(Target(1).Address(0, 0), 1)
Range("b5").Formula = "=" & strT & "5/" & strT & "4^2"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort