ich möchte, dass wenn die Spalten A:B eingeblendet sind und der Curser diesen Bereich (A:B) verlässt ein Makro ausgeführt wird. Wer kann mir hier weiterhelfen?
Vielen Dank im Voraus!
Gruß Gerhard
Private Sub Workbook_Open()
Set m_previousTarget = ActiveCell
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Set m_previousTarget = ActiveCell
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If (Not m_previousTarget Is Nothing) Then
If (m_previousTarget.Column = 1 Or m_previousTarget.Column = 2) Then
Call Makro1
End If
End If
Set m_previousTarget = Target
End Sub
Private Sub Makro1()
MsgBox "Test"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name "Übersicht") Then
Exit Sub
End If
If (Sh.Columns(1).Hidden = True And Sh.Columns(2).Hidden = True) Then
Exit Sub
End If
If (Target.Column > 2) Then
Call spalten_ausblenden
End If
End Sub
Private Sub spalten_ausblenden()
MsgBox "spalten_ausblenden"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 2 And Columns("A:B").Hidden = False Then
Call spalten_ausblenden ' Hier Dein Makro-Aufruf'
End If
End Sub
Gruß aus dem Sauerland
Jens