VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Cursor nur in Eingabefeldern bewegen

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Cursor nur in Eingabefeldern bewegen

Problem

Der Cursort soll über die TabTaste nur in den Eingabefeldern bewegt werden können. Nur die Eingabezellen sind ungeschützt; der Blattschutz ist gesetzt.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Set rng = ActiveCell
   iColorA = 49
   iColorB = 6
End Sub
ClassModule: Tabelle2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ActiveSheet.Protect userinterfaceonly:=True
   If Not rng Is Nothing Then
      rng.Interior.ColorIndex = iColorA
      rng.Font.ColorIndex = iColorB
   End If
   Set rng = Target
   iColorA = Target.Interior.ColorIndex
   iColorB = Target.Font.ColorIndex
   Target.Interior.ColorIndex = 6
   Target.Font.ColorIndex = 49
End Sub
StandardModule: Modul1

Public rng As Range
Public iColorA As Integer, iColorB As Integer

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt