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.
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
Folgende(r) 1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag:1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag 28 • vo8008
15.05.2024, 11:30 (Dieser Beitrag wurde zuletzt bearbeitet: 15.05.2024, 11:30 von 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?
15.05.2024, 12:57 (Dieser Beitrag wurde zuletzt bearbeitet: 15.05.2024, 12:59 von 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 !!