ich stehe vor folgendem Problem. Ich habe ein VBA gebastelt, welches Werte automatisch in einer Zelle aufsummiert. Sprich: Werteingabe in in Zelle B25 und Aufsummieren in Zelle B3. Nun möchte ich, wenn in allen folgenden Zellen, wie C26, sich die Summe in C3 erhöht und das fortlaufend.
Ich bin leider totaler VBA-Neuling und finde einfach keine Lösung.
Bitte um Hilfe.
Danke euch.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$25" Then
Range("B3").Value = Range("B3").Value + Target.Value
End If
If Target.Address = "$B$26" Then
Range("B4").Value = Range("B4").Value + Target.Value
End If
If Target.Address = "$B$27" Then
Range("B5").Value = Range("B5").Value + Target.Value
End If
If Target.Address = "$B$28" Then
Range("B6").Value = Range("B6").Value + Target.Value
End If
If Target.Address = "$B$29" Then
Range("B8").Value = Range("B8").Value + Target.Value
End If
End Sub