title image


Smiley Geschützte Tabelle - Enter statt Tab
Hallo Profis!



Ich möchte gerne in einer geschützten Tabelle meine nicht gesperrten Zellen (A6:B130) mit Enter anspringen, anstatt mit der normalen Tabfunktion. Habe auch jede Menge Beiträge im Archiv dazu gefunden, aber egal was ich mache, es funktioniert nicht. Hier mal eine kleine Auswahl meiner Funde, die ich immer meiner Tabelle zugeordnet habe:



'Private Sub Worksheet_Change(ByVal Target As Range)

' Select Case Target.Column

' Case 1: Target.Offset(0, 1).Select

' Case 2: Target.Offset(1, -1).Select

' End Select

'End Sub



'Private Sub Worksheet_Change(ByVal Target As Range)



' Target.Offset(0, 1).Select



'End Sub



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Row = 1 Or Target.Count < 5 Then Exit Sub

If Target.Column = 1 Then Target.Offset(0, 1).Select

' If Target.Column = 5 Then Target.Offset(0, 3).Select

If Target.Column = 2 Then Target.Offset(1, -1).Select

End Sub



Nix will funktionieren!Ich werde hier bald wahnsinnig!!!!!

Kann mir vielleicht jemand von euch sagen, was ich falsch mache?

Hab leider keine große Ahnung von VBA.



Ciao

Kiki

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: