Code Snippet "VBA Excel"

Springt von ausgefüllter Zelle in Zeile nach rechts

Springt in die letzte ausgefüllte Zelle der Zeile vor der nächsten leeren Zelle, sofern die aktive Zelle und die Zelle rechts davon ausgefüllt sind

  If Not IsEmpty(ActiveCell) And Not IsEmpty(ActiveCell.Offset(0, 1)) Then
    ActiveCell.End(xlToRight).Select
  End If