Folgendes Problem: mein VBA Code soll die Summe aus Zelleninhalten bilden. Die Zellen sind zusammenhängend über der Zelle, in der zum Schluss das Ergebnis stehen soll.im einzelnen habe ich folgendes vor.
1. Adresse des End-Zelle der Summenbildung herausfinden. Aus dieser info mache ich einen String. --> AdressEnd
2. Adresse der Begin-Zelle der Summenbildung herausfinden. Das ist die Zelle unter der ersten Leerzelle. Aus dieser Info mache ich einen String --> AdressBegin.
3. Aus den beiden Adressen einen Range machen. --> RangeSum
4. Zum Schluss diesen Zellenbereich aufsummieren und in der "ActiveCell" ausgeben.
Die beiden Adressen (AdressBegin und AdressEnd) bekomme ich. Ab ist es mir unklar ob ich den Range noch bilden kann. Was definitiv nicht funktioniert ist die Summenbildung.
Hier noch der Code:
Sub CommandButton1_Click()
Dim AdressSum As String
Dim AdressEnd As String
Dim AdressBegin As String
Dim SumRange As String
Dim RangeSum As Range
Sheets("Zeiterfassung").Unprotect ""
If Sheets("Zeiterfassung").Range("B2").Value = 0 Then
ActiveCell.Offset(0, 3).Activate
AdressEnd = ActiveCell.Offset(-1, 0).Address(False, False)
AdressBegin = ActiveCell.Offset(-1, 0).End(xlUp).Address(False, False)
Set RangeSum = Worksheets("Zeiterfassung").Range(AdressBegin, AdressEnd)
ActiveCell.Value = Sheets("Zeiterfassung").WorksheetFunction.Sum(RangeSum)
ActiveCell.Offset(1, -3).Activate
Else
MsgBox "Bitte Arbeitszeit beenden"
End If
Sheets("Zeiterfassung").Protect ""
End Sub