Aufsummierung bestimmter Zelle durch Eingabe andere Zelle

Computer: Software & Programmierung Office Software
#1

Hallo,

ich habe folgendes Problem, wobei es für andere was ganz einfaches ist.
Ich habe zwei Zellen bspw. Zelle C13 und C3, durch manuelles ändern der Zelle C13
soll die eingegebene Zahl auf die Zelle C3 aufsummiert werden.
Beispiel:
In Zelle C3 steht eine 3, jetzt gebe ich ind er Zelle C13 eine Zahl 5 ein, daraufhin soll in
Zelle C3 eine 8 stehen.
Folgendes habe ich schon geschrieben, leider funktioniert es nicht ganz:

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = „$C$13“ Then
      Range(„C3“).Value = Range(„C3“).Value + Target.Value
   End If
End Sub

Ich hoffe ihr könnt mir weiterhelfen.

Danke
Khai

#2

Hallo Khai,

folgenden Code in das entsprechende Tabellenblatt (nicht Arbeitsmappe) kopieren:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim summ As Long
Dim zwsumm As Long

If Target.Address = „$C$13“ Then

summ = Range(„C3“).Value
zwsumm = Target.Value

summ = summ + zwsumm

Range(„C3“) = summ

End If

End Sub

Bei mir hats 1a geklappt! :smile:

Gruß

René

#3

Hallo Rene

erstmal vielen Dank für die schnelle Antwort
Habe deinen Code in mein Tabellenblatt eingefügt, jedoch werde ich nach einem Marko
abgefragt!!! Ich habe kein Makro festgelegt…

Gruß

Khai

#4

Hallo Khai,

also das Makro ruft kein anderes auf.
Einzige was ich mir vorstellen kann, dass Du Makros nicht aktiviert hast.

Ich habs auch bei einem anderen Rechner grad getestet und funktioniert 1A.

#5

bzw. nur zur Sicherheit. :smile:

Du hast das schon im VBA-Editor in Tabelle(1) reinkopiert, oder? :smile:

Sorry, aber ich hab schon einiges mitgekriegt. :smile:

Gruß

René

#6

Hey Rene,

hab die Datei geschlossen und nochmal neu geöffnet, klappt 100%

Danke Danke Danke

Gruß

Khai

#7

OK, dann passt es ja! :smile: