Sepp
Erich
Du hast mir letzte Woche ein Makro geschickt, das ich nicht ganz verstehe.
Es sind die Zellen K6:N300 gefüllt. Dazwischen gibt es auch Leerzellen.
Wenn ich nun die letzte Leerzelle mit einem Wert versehen habe, sollte der Cursor auf K301 stehen.
Tut er aber nicht. Er steht auf K6 !?!
Private Sub Worksheet_Activate()
Dim rng As Range
On Error Resume Next
Set rng = Range("K6:K309").SpecialCells(xlCellTypeBlanks).Cells(1, 1)
On Error GoTo 0
If Not rng Is Nothing Then Application.Goto rng
Set rng = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, lngC As Long
If Not Intersect(Target, Range("K6:N309")) Is Nothing Then
On Error Resume Next
lngC = Target(1, 1).Column - 10
If lngC > 3 Then lngC = 0
Set rng = Range("K6:K309").Offset(0, lngC).SpecialCells(xlCellTypeBlanks).Cells(1, 1)
On Error GoTo 0
If Not rng Is Nothing Then
Application.Goto rng
Else
Application.Goto Range("K6:K309").Offset(0, lngC).Cells(1, 1)
End If
End If
Set rng = Nothing
End Sub
Über Deine Antwort würde ich mich freuen.Gruß EM