Die Zelle A1 meiner Arbeitsmappe sheet1 wird ständig aktualisiertNeue Daten und meine Anforderung werden alle Änderungen erfasst und in der Spalte "B" von Blatt 2 gespeichert. (Neue Daten werden zu einer neuen Zeile wie B1, B2, B3 usw. hinzugefügt.) Mit dem folgenden Code kann ich es mit einer Arbeitsblattänderungsfunktion erreichen
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Dim intLastRow As Long
intLastRow = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row
Sheet2.Cells(intLastRow + 1, "B") = Target.Value
End If
End Sub
Dieser Code funktioniert einwandfrei, wenn ich Daten eingebemanuell in meine ursprüngliche Zelle (Sheet1 A1). Wenn ich jedoch die Formel "= C2" verwende, funktioniert es nicht. Alle Daten, die mit der Formel aktualisiert werden, werden nicht in Sheet2 B erfasst auch
Antworten:
1 für die Antwort № 1Private Sub Worksheet_Calculate()
With Sheet2
With .Cells(.Rows.Count, "B").End(xlUp)
If .Value <> Sheet1.Range("A1").Value Then
.Offset(1).Value = Sheet1.Range("A1").Value
End If
End With
End With
End Sub