ich möchte Folgendes realisieren:
Summe soll in Spalte C gebildet werden, und zwar durch Doppelklick in Spalte D (=1) bis Spalte M (10)
So möchte ich jedesmal das Eintippen von + und den Ziffern sparen.
Danke im Voraus!!
Grüße Holm
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 3 And Target.Column
Gruß Matthias
Cancel = True
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngAddieren As Range, rngSubtrahieren As Range
On Error GoTo ErrorHandler:
Set rngAddieren = Intersect(Range("D1:M10"), Target)
If Not rngAddieren Is Nothing Then
Cancel = True
Cells(rngAddieren.Row, 3).Value = Cells(rngAddieren.Row, 3).Value + rngAddieren.Value
End If
Set rngSubtrahieren = Intersect(Range("Q1:Z10"), Target)
If Not rngSubtrahieren Is Nothing Then
Cancel = True
Cells(rngSubtrahieren.Row, 3).Value = Cells(rngSubtrahieren.Row, 3).Value - rngSubtrahieren.Value
End If
Exit Sub
ErrorHandler:
MsgBox Err.Description, _
vbCritical + vbMsgBoxSetForeground + vbMsgBoxHelpButton, _
"Error: " & Err.Number, Err.HelpFile, Err.HelpContext
End Sub
Gruß Tino
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 3 And Target.Column 16 And Target.Column
Gruß Matthias