wie muß ich folgenden Code verändern, damit er auch in einem Modul als Makro läuft?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H10:H15")) Is Nothing Then
Sheets("Tabelle2").Range("D5").Value = Format(Target.Value, "#,##0.00")
Sheets("Tabelle2").Range("K10").Value = Format(Target.Offset(, 2).Value, "#,##0.00")
End If
End Sub
Quelle: Matthias5 in diesem Forum
lg
Anneliese