Ausgabe und Bezugszellen automatisch im VBA anpass

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 25 And Target.Column >= 2 Then Application.EnableEvents = False Target.Offset(-22, 0) = Target.Offset(-22, 0) + Target Application.EnableEvents = True End If End Sub

Hallo Hary,
ich habe einen Zellbereich, in dem mehrer Werte in ein und der selben Zelle eingegeben werden sollen (am Beispiel in Zelle B25) und am Ende in einer anderen Zelle Aufsummiert werden. (am Beispiel Zelle B3).
Diese Eingaben werden jeden Tag aufs neue vorgenommen, weswegen am nächsten Tag Eingaben nicht in Zelle B25 vorgenommen werden, sondern in B26 am nächsten, am übernächsten in Zelle B27 und so weiter. Ebenso soll dann die Zielzelle, am Beispiel B3, am nächsten Tag C3; am übernächsten D4 und soweiter sein.
Nun möchte ich aber nicht komplett jede Ein- und Ausgabezelle mit einem einzelnen VBA versehen.
Daher die Frage, ob es möglich ist diese Makros, wie Formeln einfach "weiterzuziehen".

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("9:10")) Is Nothing Then '--wenn geaenderte Zelle in Zeile 9 _ oder 10 dann If Target.Column >= 3 Then '--wenn geaenderte Spalte groesser/gleich 3(SpalteC) Application.EnableEvents = False '--Event ausschalten damit Change nicht nochmal _ ausgefuehrt wird Target.Offset(-5, 0) = Target.Offset(-5, 0) + Target '--summiere 5 Zeilen hoeher Application.EnableEvents = True '--Event wieder einschalten End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("9:10")) Is Nothing Then '--wenn geaenderte Zelle in Zeile 9 _ oder 10 dann If Target.Column >= 3 Then '--wenn geaenderte Spalte groesser/gleich 3(SpalteC) If Range("A1") "aktiv" Then Exit Sub '--wenn nicht aktiv in A1 steht Code beenden Application.EnableEvents = False '--Event ausschalten damit Change nicht nochmal _ ausgefuehrt wird Target.Offset(-5, 0) = Target.Offset(-5, 0) + Target '--Trage 5 Zeilen hoeher ein Application.EnableEvents = True '--Event einschalten End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Ausgabe und Bezugszellen automatisch im VBA anpass

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgabe und Bezugszellen automatisch im VBA anpass

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread