Excle 2010 : Leere Zelle in Spalte bei Spaltenwechsel automatisch anspringen

Moin Moin,

tja, was soll ich sagen, Neuling in der Makroerstellung bei Excel braucht bitte einen Tipp.

a.)
Ich brauche ein Makro, welches in dem Bereich einer Arbeitsmappe ( z.B. B11:K30 ) immer in die nächste freie Zelle von oben in einer Spalte springt, wenn ich die Spalte wechsle.

Hier sollen dann Zahlen eingegeben werden.

b
Vertippt man sich bei der Eingabe, müsste dann eine eine einfache Korrekturmöglichkeit her. Grundsätzlich wäre das ja über die Rückgängig Schaltfläche möglich. Bei späteren Korrekturen jedoch nicht. Ich stelle mir eine Zelle oberhalb des Bereiches vor, die als Schaltfläche dient; aktiviert Korrekturen wieder zulässt und deaktiviert das Makro unter a normal ablaufen läßt.


Im Netz finde ich vieles, aber nicht dieses Problem.

Hat jemand hierzu eine Idee ?

LG Frank

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Application.EnableEvents = False
    If Target.Cells.Count > 1 Then GoTo ende 'wenn mehr als 1 Zelle markiert, beenden  
    If Intersect(Target, Range("B11:K30")) Is Nothing Then GoTo ende  
        MsgBox " ich bin im Bereich, und mache deshalb was", vbOKOnly  
        Cells(1048576, Target.Column).End(xlUp).Offset(1, 0).Select
ende:
    Application.EnableEvents = True
End Sub

Dim oldColumn As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rngChange As Range
    Set rngChange = Range("B11:K30")  
    If Not Application.Intersect(rngChange, Target) Is Nothing Then
        If oldColumn <> Target.Column Then
            Application.EnableEvents = False
            With rngChange
                If Cells(.Row, Target.Column) <> "" Then  
                    Cells(.Row + .Rows.Count - 1, Target.Column).End(xlUp).Offset(1, 0).Select
                Else
                    Cells(.Row, Target.Column).Select
                End If
            End With
            Application.EnableEvents = True
            oldColumn = Target.Column
        End If
    End If
End Sub