Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Auflistung der jeweils zuletzt ausgewählten 10 Zellen

Gruppe

SelectionChange

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