gesucht: spez. Tastenkombis für Zellnavigation ...

Hallo @all,
seit einiger Zeit helfe ich einem erst im Erwachsenenalter Erblindeten bei der Handhabung einer Excelarbeitsmappe, die er für seine Tätigkeit benötigt. Hilfreich für ihn wäre eine möglichst einfache schnelle gezielte Navigation innerhalb eines Tabellenblattes und dies natürlich ausschließlich nur mit Tastaturkombination(en).
Als Sehender nutze ich dazu - mit Hilfe der Maus - das Eingabefeld links neben der Eingabezeile, wo auch die jeweils aktuell aktivierte Zelladresse angezeigt wird (wie nennt man denn diese korrekt?) Doch wie kann sich ein Blinder helfen? In der MSO-Hilfe unter "Tastenkombination" habe ich bisher nichts derartiges gefunden. Muss aber nicht heißen, dass es solche nicht gibt.
Aber da ich schon nicht die korrekte Bezeichnung des bezeichneten Information-/Eingabefeldes für Zelladressen kenne, stocherte ich bisher auch im Internet etwas ziellos und damit auch erfolglos herum.
Hilfreich für (m)einen Erblindeten Bekannten wäre es, er könnte mit einer Tastenkombination zu einer (ihm jeweils bekannten) Zelladresse springen, sich dessen Inhalt anzeigen lassen und ideal wäre es, er käme danach mit einer weiteren Tastaturkombination schnell zurück zur unmittelbar vorher aktiven Zelle.
Gibt es so etwas? Wer kennt sich da aus? Wer kann helfen?
Gruß Werner
.. , - ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(0, 0) "C17" Then 'C17 ist die Zelle, zu der mit F5 + Zelladresse _ gesprungen wird strOld = Target.Address(0, 0) End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const STR_ALL As String = ",C17,F13,I10," If InStr(STR_ALL, "," & Target.Address(0, 0) & ",") = 0 Then strOld = Target.Address(0, 0) End If End Sub

Hallo Werner,
Die Funktionalität zur vorherigen (zeitlich) Zelle zurückzuspringen gibt es nirgends als Standard. Darum geht eine solche Anforderung über die Standard-Navigations-Möglichkeiten von Excel hinaus.
Auch als nicht Sehbehinderter weiss ich oft nicht mehr, woher ich auf eine Zelle 'gesprungen' bin und muss mich u.U. wieder 'Home' begeben und von neu anfangen zu navigieren.
Probier es mal so:
Code in DieseArbeitsmappe:

Option Explicit
Private Sub Workbook_Open()
Set PrevCell = ActiveCell
Set thisCell = ActiveCell
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Set PrevCell = thisCell
Set thisCell = Target
End Sub

Code in ein allgemeines Modul (und z.B. Strg-q als Kontrolltaste, s.oben)

Option Explicit
Public thisCell As Range
Public PrevCell As Range
Sub back2PrevCell()
If Not PrevCell Is Nothing Then
Application.Goto PrevCell
Set PrevCell = thisCell
End If
End Sub

Mappe als xlsm sichern und neu öffnen, ab dann sollte es (einigermassen) klappen.
Diese Codes müssten in jede Mappe kopiert werden, für die dieses Verhalten gewünscht ist.
Das hat den grossen Nachteil, dass all diese Mappen als Makromappen gesichert werden müssen.
Oder man könnte ein AddIn schreiben, dass mit Excel geladen wird und für alle zu öffnenden Mappen gilt.
Gruess Hansueli

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim objSpeaker As Object Set objSpeaker = CreateObject("SAPI.SpVoice") objSpeaker.Volume = 100 objSpeaker.Speak ActiveCell.Address(0, 0) End Sub

Beliebteste Forumthreads (12 Monate)

gesucht: spez. Tastenkombis für Zellnavigation ...

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

gesucht: spez. Tastenkombis für Zellnavigation ...

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread