Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

 If bolOn Then

  Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

  Application.OnKey "~", "NaechsteZeileEinblenden"    'EINGABETASTE

 Else

  Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

  Application.OnKey "~"    'EINGABETASTE

 End If

End Sub

Private Sub NaechsteZeileEinblenden()

 With ActiveCell.Offset(1).EntireRow

  .Hidden = False

  .Cells(1).Activate

 End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 With Target.Cells(1)

  EnterOnOff .Column = 10 And .Row > 9

 End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris