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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen