Gruppe
Allgemein
Problem
Wie kann ich in einem Tabellenblattformular nur von Eingabe- zu Eingabefeld springen, ohne die übrigen Zellen zu berühren?
StandardModule: Modul1
Sub SecondRows()
Dim rng As Range
Dim lRow As Long
Dim bln As Boolean
For lRow = Selection.Row To Selection.Row + _
Selection.Rows.Count - 1
bln = Not bln
If bln Then
If Not rng Is Nothing Then
Set rng = Application.Union(rng, Rows(lRow))
Else
Set rng = Rows(lRow)
End If
End If
Next lRow
rng.Select
End Sub