Thema: Cursor nur in Eingabefeldern bewegen

Home

Gruppe

Allgemein

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

Excel Arbeitsblatt verkleinern/vergrößern	Arbeitsblatt schützen Kommentare aber noch möglich
Arbeitsblatt speichern	Arbeitsblatt als E-Mail versenden
Arbeitsblattname in Zelle anzeigen	Arbeitsblatt in neuer Arbeitsmappe speichern
Einfügen v. Werten in ein anderes Arbeitsblatt	Namen von Arbeitsblatt in Zelle übernehmen
Arbeitsblatt schützen	Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank	Dateneingabe u. Arbeitsblatt kopieren
Hyperlink auf Bereich in Arbeitsblatt	Ereignis Arbeitsblatt sperren abfangen
Zugriff auf ein Arbeitsblatt per Kennwort	VBA-Code von einem Arbeitsblatt ins nächste ausfüh
Arbeitsblatt ohne Select speichern	wenn arbeitsblatt vorhanden makro ausführen
wenn arbeitsblatt vorhanden makro ausführen	"Seite einrichten" eines Arbeitsblattes übern
Scrollen im Arbeitsblatt bei Formelbearbeitung	allgemein
Neue Daten in ein anderes Arbeitsblatt übertragen	Arbeitsblatt als rtf-Datei abspeichern - Wie?
Daten aus anderem Arbeitsblatt suchen und einfügen	bestehendes Problem Arbeitsblatt erstellen
Arbeitsblattname in ein Feld schreiben	Arbeitsblattwechsel durch Formular unterbinden
Neues Arbeitsblatt erstellen, falls nicht vorhande	Arbeitsmappe öffnen, Arbeitsblatt suchen, Text ein
Ansicht nach Arbeitsblatt wechsel	Combobox abhängig von offenem Arbeitsblatt
combobox rowsource aus anderem arbeitsblatt	Automatisches Speichern einer Arbeitsblatt-Kopie
Checkbox in Arbeitsblatt	Zellen in neues Arbeitsblatt kopieren
allgemein: VBA lernen?	Indirekt - Funktion für anderes Arbeitsblatt
Hide-Methode-Allgemeine Frage	Übergabe eines Arbeitsblattes VBA
Arbeitsblattliste-Hyperlinks erstellen-Formatieren	Formelassistent allgemein
Arbeitsblatt-Menüleiste ausgeblendet	Macro nur auf jeweiligem Arbeitsblatt
Archivieren externer Dateien in Arbeitsblatt	allgemeingültig Blattschutz aufheben
Arbeitsblatt	activesheet.name im arbeitsblatt
Arbeitsblatt kopieren mit Namensbezügen