Makro beim verlassen einer Zelle ausführen

25/06/2009 - 16:39 von hguetschow | Report spam
Hallo,

ich möchte beim verlassen bestimmer Zellen, hier Spalte A und E ein
Makro ausführen bzw. zwei verschiedene, je Spalte:

Verlassen von $A$X Makro1
Verlassen von $E$X Makro2

Worksheet_SelectionChange(ByVal Target As Range) wird ja auch beim
aktivieren einer Zelle ausgeführt, da hànge ich fest.




MfG
 

Lesen sie die antworten

#1 Andreas Killer
25/06/2009 - 16:53 | Warnen spam
Helmut Gütschow schrieb:

ich möchte beim verlassen bestimmer Zellen, hier Spalte A und E ein
Makro ausführen bzw. zwei verschiedene, je Spalte:


...
Worksheet_SelectionChange(ByVal Target As Range) wird ja auch beim
aktivieren einer Zelle ausgeführt, da hànge ich fest.


Du musst Dir nur am Ende von SelectionChange merken welches Target da
übergeben wurde, sprich die letzte Zelle war (LastCell). Und beim
Öffnen der Mappe merkst Du Dir ActiveCell in LastCell.

Andreas.

Private LastCell As Range

Private Sub Workbook_Open()
Set LastCell = ActiveCell
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
'Tabelle gewàhlt?
If TypeOf Sh Is Worksheet Then
'Ist es die gewünschte?
If Sh.Name <> "Tabelle1" Then Exit Sub
'Safety first!
If Not LastCell Is Nothing Then
'Welche Spalte?
Select Case LastCell.Column
Case 1, 5
'Spalte A oder E verlassen
MsgBox LastCell.Address
End Select
End If
'Mach irgendwas
Set LastCell = Target
End If
End Sub

Ähnliche fragen