Gruppe
Ereignis
Bereich
SelectionChange
Thema
Auflistung der jeweils zuletzt ausgewählten 10 Zellen
Problem
Die zuletzt ausgewählten 10 aktivierten Zellen werden aufgelistet.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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