title image


Smiley if not intersect(ActiveCell, Range("C5:E50")) is nothing then.....Endif
Ja, das geht : Passe einfach den Zellbereich (C5:E50) an Deinen gewünschten Tabellenbereich an :



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'Ereignismakro zum Anzeigen der aktiven Zelle in der linken oberen Ecke

    If Not Intersect(ActiveCell, Range("C5:E50")) Is Nothing Then

        ActiveWindow.ScrollRow = ActiveCell.Row

        ActiveWindow.ScrollColumn = ActiveCell.Column

    End If

End Sub


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: