Zuvor aktiven Zelle

Für den code, den ich Schreibe, ich beobachte die Veränderungen in bestimmten Zellbereichen zum ausführen von Funktionen und private subs. Für diese verwende ich die Intersect-Funktion in der worksheet_change sub.

Allerdings, der Auslöser für die intersect 'test' immer, dass ich 'move out' von der Zelle Teste ich, ob es sein würde, per Mausklick in eine andere Zelle oder mit den cursor verschieben.

Was ich brauche, ist eine Möglichkeit, eine variable definieren, die enthält die .address von der Zelle, die ich ausgewählt hatte, bevor.

Habe ich versucht, den code unten, aber ich erhalte nur Fehler.

Hat jemand eine Idee, wie dies zu tun?

Public xfrLastCell As String
Public xfrActiveCell As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If xfrActiveCell = "" Then xfrActiveCell = ActiveCell.Address
xfrLastCell = xfrActiveCell
xfrActiveCell = ActiveCell
MsgBox xfrLastCell

End Sub

InformationsquelleAutor user2845354 | 2013-10-04

code unten funktioniert bei mir - Ihrer Zuordnung activecell fehlte eine Adresse Bedeutung activecell die variable ist immer leer

Option Explicit

Public xfrLastCell As String
Public xfrActiveCell As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If xfrActiveCell = "" Then xfrActiveCell = ActiveCell.Address
xfrLastCell = xfrActiveCell
xfrActiveCell = ActiveCell.Address
MsgBox xfrLastCell

End Sub

+ 1 Guter Fang 🙂

InformationsquelleAutor Krishna

Mit diesem code beziehen PreviousActiveCell zurück gewünschten Ergebnis:

Public PreviousActiveCell as Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static pPrevious as Range
    Set PreviousActiveCell = pPrevious
    Set pPrevious = ActiveCell
End Sub

Diese innerhalb der einzelnen Arbeitsblatt. Sie benötigen eine Vorherige Zelle in andere Blätter und Arbeitsmappen?

InformationsquelleAutor LS_ᴅᴇᴠ

Könnte es einfacher sein, zu "erinnern", der Bereich, anstatt die Adresse des Bereichs ein:

Dim Oldcell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Oldcell Is Nothing Then
        Set Oldcell = Target
        Exit Sub
    End If
    MsgBox "New cell is " & Target.Address & vbCrLf & "Old cell was " & Oldcell.Address
    Set Oldcell = Target
End Sub

+ 1 Weiterer guter Ansatz 🙂
-1 Dies ist nicht-Beispiel! OldCell immer ActiveCell!
Hi LS_dev: Ihr Punkt ist 100% richtig!!!! Es ist nur innerhalb der sub, Oldcell ist wichtig. Es bestimmt, wo Sie herkommen.

InformationsquelleAutor Gary's Student

If ist unnötig. Ich habe diese verwendet:

Public sPreviousTarget As String
Public sTarget As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  sPreviousTarget = sTarget
  sTarget = Target.Address
End Sub

Auch Target unterscheidet sich von ActiveCell (ActiveCell bezieht sich auf eine der Zellen in Target).

InformationsquelleAutor ZygD

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.