Thema: Auflistung der jeweils zuletzt ausgewählten 10 Zellen

ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim iRow As Integer
   With ThisWorkbook.Sheets("Memory")
      iRow = WorksheetFunction.CountA(.Columns(1)) + 1
      .Cells(iRow, 1).Value = Target.Cells(1).Address(False, False)
      If iRow >= 11 Then
         .Range("A1:A10").Value = .Range("A2:A11").Value
         .Range("A11").ClearContents
      End If
   End With
End Sub
Sub a()
ThisWorkbook.Sheets("Memory").Columns(1).ClearContents
End Sub
StandardModule: Modul1

Sub Eintragen()
   Dim iRow As Integer
   For iRow = 1 To 10
      Cells(iRow, 1).Value = ThisWorkbook.Sheets("Memory").Cells(iRow, 1).Value
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange