Addition von 2 Zellen

Forumthread: Addition von 2 Zellen

19.02.2025 17:05:33

dxnnis.bkr

Moin zusammen,

bin neu hier und habe kaum Vorkenntnisse in VBA.
Ich habe folgendes Problem:

Meine Excel-Mappe besteht aus insgesamt 9 Tabellen.
In jeder Tabelle möchte ich ab I3 einen Wert eingeben können, welcher dann mit E3 addiert wird. Die Summe soll dann ebenfalls in E3 stehen.
I3 möchte ich aber zu jeder Zeit löschen können, ohne dass E3 auf den vorherigen Wert zurückgeht.
Zudem soll das Selbe auch mit den Zeilen darunter möglich sein (I4 dann mit E4, usw.)

Vielen Dank im Voraus!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Addition von 2 Zellen

19.02.2025 18:10:07

Raimund
AW: Addition von 2 Zellen

19.02.2025 18:10:43

cysu11
Im Beispiel ist...

19.02.2025 20:08:22

Case
AW: Addition von 2 Zellen

19.02.2025 20:20:03

Yal

AW: Addition von 2 Zellen

19.02.2025 18:10:07

Raimund

Hi dxnnis

So?

Füge den folgenden Code in das Codefenster jedes Blattes ein

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Long

    

    ' Überprüfen, ob die Änderung in Spalte I (9) erfolgt ist

    If Not Intersect(Target, Me.Columns(9)) Is Nothing Then

        Application.EnableEvents = False

        For i = 3 To Me.Cells(Me.Rows.Count, 9).End(xlUp).Row ' Bis zur letzten nicht leeren Zeile in Spalte I

            If Me.Cells(i, 9).Value > "" Then ' Spalte I

                Me.Cells(i, 5).Value = Me.Cells(i, 5).Value + Me.Cells(i, 9).Value ' Spalte E

            End If

        Next i

        Application.EnableEvents = True

    End If

End Sub

Gruss

Raimund

AW: Addition von 2 Zellen

19.02.2025 18:10:43

cysu11

Hi,

probiere mal:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I3:I10")) Is Nothing Then
With Intersect(Target, Range("I3:I10"))
.Offset(, -4).Value = .Offset(, -4).Value + Target.Value
End With
End If
End Sub

Dies im Modul jedes einzelnen Tabellenblattes...

LG, Alexandra

Im Beispiel ist...

19.02.2025 20:08:22

Case

Moin, :-)

... der Code in "DieseArbeitsmappe" (gilt damit für alle 9 Tabellenblätter):
https://www.herber.de/bbs/user/175787.xlsb

Bei Bedarf können auch Tabellenblätter ausgeschlossen werden.,

Servus
Case

AW: Addition von 2 Zellen

19.02.2025 20:20:03

Yal

Noch ein Gedicht:

wie Case denke ich, dass eine Sub in "DieseArbeitsmappe" besser ist als in jedem Arbeitsblatt. Sonst muss man bei jeder Anpassung ziemlich viel rudern...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim i As Long

    

' Überprüfen, ob die Änderung in Spalte I (9) erfolgt ist

    If Not Intersect(Target, Sh.Columns(9)) Is Nothing Then

        Application.EnableEvents = False

        With Target.EntireRow

            If .Cells(9).Value > "" Then .Cells(5).Value = .Cells(5).Value + .Cells(9).Value

        End With

        Application.EnableEvents = True

    End If

End Sub

Mit EntireRow hat man nur eine Zeile. Somit ist Cells(9) die neunte Zelle, also Zelle in Spalte 9, aka "J".
Ein Ausschluss oder Begrenzung auf einigen Blätter kann man mit Select Case erreichen.

VG
Yal

Forumthread: Addition von 2 Zellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread