Statistik im eigenen Excelblatt

[vo8008]

Hallo

leider habe ich bisher nichts taugliches gefunden.

Vielleicht kann mir ja hier jemand helfen

Bei Änderung von D11
soll der Wert von D11 nach J5
und der Wert von D14 nach K5  kopiert werden
Wenn J5 schon gefüllt dann darunter nach J6 und K6, usw.

[Crazy Tom]

moin

eine Möglichkeit
reagiert auf Änderung im Bereich D6 bis D10
gehört in das Tabellenblattmodul

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngZiel As Long
    If Not Intersect(Target, Range("D6:D10")) Is Nothing Then
        lngZiel = Cells(Rows.Count, "J").End(xlUp).Row + 1
        Cells(lngZiel, "J").Value = Range("D11").Value
        Cells(lngZiel, "K").Value = Range("D14").Value
    End If
End Sub

mfg Tom

[vo8008]

Das ging fix, allerdings werden auch die Wert(D6:D10) nicht aktiv geändert sondern durch Formeln ermittelt. Dann geht das wohl nicht. Gibt es da noch eine andere Möglichkeit? 
Die Daten werden in einem anderem Tabellenblatt (Daten!A4) eingegeben. Oder das ganz auch mit einem Auslöser?

[Rudi'S]

Hallo,

Zurückgezogen, funktioniert auch nicht mit Formelbezug, zu spät die weitere Forderung gelesen



Gruß Rudi 'S

[snb]

1. Lösche die verbundene Zellen !!

2.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D6:D10")) Is Nothing Then Cells(Rows.Count, 10).End(xlUp).Offset(1).Resize(, 2) = Array([D11], Now)
End Sub

3. Zelle D14 ist überflüssig
4. Eine realistische Beispieldatei ist erforderlich !!

[vo8008]

Super vielen Dank. Das konnte ich mir genau so anpassen wie ich es brauche