Sub Test()
Dim i As Integer
i = Application.InputBox("Zeilen eingeben", "Zeilen", Type:=1)
ActiveCell.Rows("1:i").EntireRow.Select
End Sub
Eigentlich sollten die Zeilen Anzahl i markiert werden. :-(Vielen Dank schon mal
Andreas
Sub Test()
Dim i As Integer
i = Application.InputBox("Zeilen eingeben", "Zeilen", Type:=1)
ActiveCell.Rows("1:i").EntireRow.Select
End Sub
Eigentlich sollten die Zeilen Anzahl i markiert werden. :-(ActiveCell.Rows("1:" & i).EntireRow.Select
Gruß WernerSub Test()
Dim i As Integer
i = Application.InputBox("Zeilen eingeben", "Zeilen", Type:=1)
ActiveSheet.Rows("1:" & i).EntireRow.Select
End Sub
Sub Test()
Dim i As Integer
i = Application.InputBox("Zeilen eingeben", "Zeilen", Type:=1)
ActiveCell.Resize(i).EntireRow.Select
End Sub
Viele Grüße