Zellenwert kopieren und addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$2" Then Range("C5") = Range("C5") + Target Application.EnableEvents = False Target = "" Application.EnableEvents = True Target.Select End If End Sub

Hi
wenn du das für mehrere Spieler haben willst, wie ist denn dein Spielplan aufgebaut?
woran erkennt man die Eingabezellen und wie liegen die zellen, in denen addiert werden soll?
ich würde das so machen.
die Eingabezellen kannst du in der Zeile mit Set Eingabezellen = Range("E2") angeben, hier im Range an das E2 die weiteren Zellen mit Komma anfügen
die Ausgabezelle ist dann immer 2 Spalten links und 3 Zeilen unter der Eingabezelle.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim EingabeZellen As Range
Set EingabeZellen = Range("E2")
If Not Intersect(Target, EingabeZellen) Is Nothing Then
    Application.EnableEvents = False
    For Each Zelle In Intersect(Target, EingabeZellen)
        If VarType(Zelle.Value) = vbDouble Then
            With Zelle.Offset(3, -2)
                If .Value = "" Then
                    .FormulaLocal = "=" & CStr(Zelle.Value)
                Else
                    .FormulaLocal = .FormulaLocal & "+" & CStr(Zelle.Value)
                End If
                Zelle.ClearContents
            End With
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

der Unterschied zwischen meinem und Rudis Code ist auch, dass dich nicht nur einfach die Werte aufaddiere, sondern das ganze als Addtionsformel erstelle, in der jeder eingegebene Wert einzeln aufgeführt wird. Das kann hilfreiche sein, wenn du mal nachschauen willst, was du eingegeben hast.
Gruß Daniel

Hi,
da gebe ich dir natürlich vollkommen recht.
Bleiben wir dann doch bitte bei dem obrigen Bild.
Ich hatte es mir wie folgt gedacht:
- Kind 1 (A10) würfelt eine Zahl
- Gibt die Punkte in D3 ein, Enter
- Punkte erscheinen A10 und D3 ist wieder leer.
- Kind 2 (B10) würfelt dann
- Gibt die Punkte in D3 ein, Enter
- Punkte erscheinen B10 und D3 ist wieder leer.
- Kind 3 (C10) würfelt..... usw.
- Kind 1 (A10) würfelt wieder erneut
- Gibt die neuen Punkte in D3 ein. Enter
- Neuer Punktestand erscheint (Alter Punktestand wird mit neuem addiert, A10+D3) und D3 ist wieder leer
- Kind 2 (B10) würfelt erneut, .......
Somit füllt dann D3 immer das jeweilige Feld (A10 bis H10 , A16 bis H16 und A22 bis H22).
D3 addiert immer den neuen Wert dem alten hinzu und setzt sich selbst zurück.
So hatte ich mir das eigentlich vorgestellt.
Sorry, wenn ich vorhin etwas zu ungenau war.
Gruß Axel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenwert kopieren und addieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread