Zellensteuerung mit Macken
23.03.2005 14:22:15
Johannes
folgender Code soll das Anspringen der einzelnen Zellen mit Name input[Nr] in einer festgelegten Reihenfolge und nur auf dem Blatt "Eingabe" tun - klappt auch fast immer. Immer dann nicht, wenn Excel neu gestartet wurde und die Datei das erstemal geöffnet worden ist.
Wenn ich nach dem Öffnen nur per VBA zwischen einzelne Blättern hin und herwechsele und dann wieder auf Blatt Eingabe gehe klappt es wieder - was habe ich hier übersehen ?
Option Explicit
Option Private Module
Public iSel As Integer
Sub TastenForw()
'Tastatursteuerung zur Eingabe in der Maske "Eingabe"
'in festgelegter Reihenfolge,
'zum vorwärts bewegen nur für Tabelle [Eingabe]
If ActiveSheet.Name <> "Eingabe" Then
Exit Sub
End If
On Error GoTo ErrHand
iSel = iSel + 1
Range("input" & iSel).Select
Exit Sub
ErrHand:
'Springt beim Erreichen des letzten Eingabefeldes
'zum ersten Feld zurück.
Range("input1").Select
iSel = 1
End Sub
Sub TastenBack()
'zum rückwärts-bewegen nur für Tabelle [Eingabe]
If ActiveSheet.Name <> "Eingabe" Then
Exit Sub
End If
On Error GoTo ErrHand
Dim iName As Integer
iSel = iSel - 1
Range("input" & iSel).Select
Exit Sub
ErrHand:
Range("input1").Select
End Sub
Könnte mir jemand vieleicht einen Tipp zur Problemlösung behilflich sein?
Herzlichen Dank für Eure Hilfe.
Johannes