Cursor sprigt nach Eintrag ungewollt weiter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
du hast den Blattschutz aktiviert mit der Option, dass nur nichtgesperrte Zellen ausgewählt werden dürfen
Desweiteren hast du wahrscheinlich in den Erweiterten Optionen angegeben, dass nach einer Eingabe die Markierung nach unten in die nächste Zeile verschoben werden soll.
Wenn du jetzt in F42 einen Wert eingibst, gibt es unterhalb dieser Zelle keine weitere ungesperrte Zelle die angesprungen werden kann, also geht die Markierung in die erste ungesperrte Zelle der nächsten Spalten und das ist G9.
wenn du möchtest, dass die Markierung nach F42 auf I42 springt, musst du in den Optionen-Erweitert-Bearbeitungsoptionen als Richtung für die Markierungsverschiebung Rechts auswählen
Gruß Daniel

Sub Schutz() Dim intBlatt As Integer Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten. For intBlatt = 1 To Sheets.Count 'Schleife für alle Tabellenblätter: If Sheets(intBlatt).ProtectContents = False Then Schutz_Herstellen intBlatt 'Wenn _ ungeschützt dann Schutz wieder herstellen. Sheets(intBlatt).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Sheets(intBlatt).EnableSelection = xlNoRestrictions Next Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten. End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E9:H39")) Is Nothing Then Cancel = True If Target = "" Then Select Case Target.Column Case 5: Target = "09:00" Case 6: Target = "12:00" Case 7: Target = "" Case 8: Target = "" End Select Else Target = "" End If End If End Sub

Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E9:H39")) Is Nothing Then Cancel = True If Target = "" Then Select Case Target.Column Case 5: Target = "09:00" Case 6: Target = "12:00" Case 7: Target = "" Case 8: Target = "" End Select Else Target = "" End If End If If Not Intersect(Target, Range("F42")) Is Nothing Then Target = "0" End If End Sub

Hallo
Das liegt nicht an der Codeerweiterung,
sondern an den Einstellungen in den Excel-Optionen der Datei.
Siehe Eweitert

Direkte Zellbearbeitung zulassen (ist bei Dir aktiviert?)

In Zellen mit Nullwert eine Null anzeigen (ist bei Dir deaktiviert?)

Probiers so:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E9:H39")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 5: Target = "09:00"
Case 6: Target = "12:00"
Case 7: Target = ""
Case 8: Target = ""
End Select
Else
Target = ""
End If
End If
If Not Intersect(Target, Range("F42")) Is Nothing Then
Cancel = True
Target = "0"
End If
End Sub

Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Cursor sprigt nach Eintrag ungewollt weiter

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread