Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

selection_change vorgängerzelle

Betrifft: selection_change vorgängerzelle von: ransi
Geschrieben am: 19.09.2004 16:37:43

hallo

so bekomme ich die adresse der activecell und die target.address

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ActiveCell.Address
MsgBox Target.Address
End Sub

aber wie schaffe ich es die adresse der zelle anzeigen zulassen die vorher activecell war bzw. die target.address VOR dem selection_change?

danke
ransi
  


Betrifft: AW: selection_change vorgängerzelle von: Thomas Risi
Geschrieben am: 19.09.2004 16:52:02

Hallo

Versuch's mal so ...


      
Option Explicit

Private PrevCell As Excel.Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    
On Error Resume Next
    
    MsgBox ActiveCell.Address
    MsgBox Target.Address
    MsgBox PrevCell.Address
    
    
Set PrevCell = Target
    
End Sub 


     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
Thomas

Risi Thomas Softwareentwicklung




  


Betrifft: prima :-) von: ransi
Geschrieben am: 19.09.2004 17:37:47

Option Explicit
Private PrevCell As Excel.Range
danke dir.
das ist es!!!

Private zelle As Excel.Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    MsgBox ActiveCell.Address
    MsgBox Target.Address
    MsgBox PrevCell.Address
    MsgBox zelle.Address
    Set PrevCell = Target
    Set zelle = ActiveCell
End Sub

jetzt kann ich mir so eine art "undo" basteln.
ransi