Office: (Office 2013) keine Eingabe in Zelle möglich

mr.delitzsch · 2. Dezember 2015

Hallo,
ich habe ein Dienstplanungstool für unsere Firma erstellt. Die Datei hat 18 Tabellenblätter. Auf dem Dritten werden die Zeiten der Arbeitszeitnachweise eingetragen um die Berechnung der Stunden 'Folgemonat' zu korrigieren. Auf dieses Tabellenblatt komme ich per VBA vom Deckblatt aus [WSh(3).Visible=-1; WSh(3).Activate]. Um wieder zurück zu kommen, habe ich auf dem Tabellenblatt 3 ein ActiveX-Button [WSh(1).Activate] und im 'Deactivate'-Event von Tabellenblatt 3 [WSh(3).Visible=0].

Wenn ich diesen Button benutze und danach wieder auf dieses Tabellenblatt 3 gehe, kann ich keine Eingaben mehr machen. Die Steuerung über die Tastatur und Tastenkombinationen funktionieren noch. Über VBA kann ich Werte in die Zellen eintragen. Benutze ich die Reiter im Battregister um zum Deckblatt zu kommen, gibt es auch keine Probleme.
Um die Eingabe wieder zu ermöglichen, muss ich über die Blattregister das TabBla wechseln oder den FullScreen-Modus verlassen [Application.DisplayFullScreen = False] UND die Bearbeitungsleiste sichtbar machen [Application.DisplayFormulaBar = True].

Das TabBla3 hat einen Blattschutz, der Eingabebereich ist aber nicht geschützt, der Bereich liegt innerhalb der ScrollArea, die Berechnung ist xlCalculationAutomatic, SreenUpdating=true, getestet auf WIN7, WIN10 mit Office2007, Office2010 und Office 2013.

hier der Code vom Tabellenblatt 3:
Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Private Sub Worksheet_Deactivate()
Worksheets(3).Visible = 0
End Sub

Private Sub cmb_personal_beginn_Click()
ThisWorkbook.Worksheets(1).Activate
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bemerkung:
Das Problem betrifft alle Tabellenblätter, die mit der Methode [ThisWorkbook.Worksheets(1).Activate] verlassen werden egal ob sie danach Sichtbar bleiben oder nicht. Auch das namendliche ansprechen [Beginn.Activate] erzeugt den Fehler.

Ich stelle auch gerne die Datei zur Verfügung.
Vielen Dank im Voraus für eure Mühe.

:)

xlph · 3. Dezember 2015

Ich stelle auch gerne die Datei zur Verfügung.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tu das.

mr.delitzsch · 3. Dezember 2015

ich nochmal
ich habe die Datei schemenhaft nachgestellt um das Problem darzustellen

Ist der FullScreen-Modus eingeschaltet UND wechsel ich das Tabellenblatt per VBA ist die Eingabe von Werten in Zellen gesperrt.
Wird der FullScreen-Modus wieder ausgeschaltet, ist die Eingabe wieder freigegeben.
Wechsel ich die Tabellenblätte mehrfach über die Reiter, kann ich auch wieder Werte eingeben.

Hat jemand dafür eine Erklärung?

xlph · 7. Dezember 2015

Hallo,

das Verhalten kann ich nicht bestätigen.

Klicke ich auf 'Fullscreen ein' (Ribbon-Leiste wird versteckt) kann ich Daten eingeben.

Office: (Office 2013) keine Eingabe in Zelle möglich

keine Eingabe in Zelle möglich

keine Eingabe in Zelle möglich

keine Eingabe in Zelle möglich

keine Eingabe in Zelle möglich - Similar Threads - Eingabe Zelle

Über Eingabefelder bestimmte Zellen füllen, wohl VBA

Datum nach Eingabe automatisch in Zelle einfügen

Cursor springt immer in eine Zelle darüber

Eingabe der Zellen Position

Datum nach Eingabe automatisch in Zelle einfügen

Automatisches Sperren von Zellen nach eingabe.

Zellen einfügen auf Basis einer Eingabe