AW: Code um Zellen zu markieren
18.02.2010 07:53:12
Josef
Hallo Tina,
Rechtsklick auf das Blattregister > Code anzeigen > in das rechte Fenster den Code kopieren.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrExit
If Target(1, 1).Column = 7 Then
Application.EnableEvents = False
Range(Cells(Target(1, 1).Row, 7), Cells(Target(1, 1).Row, 14)).Select
Target(1, 1).Activate
End If
ErrExit:
Application.EnableEvents = True
End Sub
Gruß Sepp