Ich hoffe Ihr könnt mir helfen. Bis jetzt habe ich mir wie folgt geholfen, doch so ganz gefällt es mir noch nicht.
Sub Summieren()
Dim i As Integer
Dim n As Integer
Dim s As String
Dim t As String
Dim iZeile As Integer
Const w = 5 ' *** Startreihe ***
s = Application.Caller(1)
For n = 1 To Len(s)
If Mid(s, n, 1) = " " Then
i = CInt(Mid(s, n, Len(s)))
Exit For
Else
End If
Next n
Range("G" & (i + w)).Value = Summe(i + w)
' Select Case Application.Caller(1)
' Case "Schaltfläche 1"
' Range("C6").Value = Summe(6)
' Case "Schaltfläche 2"
' Range("C7").Value = Summe(7)
' Case "Schaltfläche 3"
' Range("C8").Value = Summe(8)
' Case "Schaltfläche 4"
' Range("C9").Value = Summe(9)
' Case "Schaltfläche 5"
' Range("C10").Value = Summe(10)
' Case "Schaltfläche 6"
' Range("C11").Value = Summe(11)
' Case "Schaltfläche 7"
' Range("C12").Value = Summe(12)
' Case "Schaltfläche 8"
' Range("C13").Value = Summe(13)
' Case "Schaltfläche 9"
' Range("C14").Value = Summe(14)
' End Select
End Sub
Function Summe(iZeile)
Summe = Range("G" & iZeile).Value + Range("H" & iZeile).Value
Range("H" & iZeile) = ""
End Function
Vielleicht weiß jemand eine schönere Lösung, die man allgemein verwenden kann.