Zeilenwechsel am Zeilenende
11.06.2004 22:10:59
Headhunter
ich möchte gern am ende einer zeile ( zelle aa 2 ) automatisch
in die nächste zeile wechseln ( spalte A )
den code den ich dafür habe, veranlaßt jedoch schon einen zeilen-
wechsel, so bald in der zelle kein wert eingetragen ist. ich möchte
aber erst am zeilenende in die nächste zeile !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ls As Integer, z As Long
z = ActiveCell.Row
ls = Cells(z, 256).End(xlToLeft).Column
If ActiveCell.Column > ls Then
Application.EnableEvents = False
Cells(z + 1, 1).Select
Application.EnableEvents = True
End If
End Sub
vielen dank
HANS