Makro bei Zellenwechsel LINKS/RECHTS starten
23.12.2011 10:37:17
NoNet
Hallo Karsten,
das funktioniert folgendermassen :
Kopiere diesen Code in ein allgemeines Modul (z.B. "Modul1") :
Public rngAlteZelle As Range
Kopiere diesen Code in das Klassenmodul des betreffenden Tabellenblattes (z.B. "Tabelle1") im VBA-Editor :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If rngAlteZelle Is Nothing Then
Set rngAlteZelle = ActiveCell
Else
If ActiveCell.Column rngAlteZelle.Column Then
Set rngAlteZelle = ActiveCell
Makro2
End If
End If
End Sub
Sub Makro1()
MsgBox "Zellzeiger nach LINKS bewegt !", , "Makro1"
End Sub
Sub Makro2()
MsgBox "Zellzeiger nach RECHTS bewegt !", , "Makro2"
End Sub
Gruß, NoNet