Activecell( , ).Activate Funktion
13.01.2006 13:54:51
Zergio
Private Sub CommandButtonDamage_Click()
Dim lonCol As Long, lonRow As Long
' Save Row
lonRow = Selection.Row
' open groups
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
' find unique identification
Cells.Find(What:="ItemName", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True).Activate
' save column number
lonCol = Selection.Column
ActiveCell(lonRow, lonCol).Activate
'ActiveWindow.SmallScroll ToRight:=6
End Sub
Warum springt man nicht mit dem Macro in die Zeile in der man die "active" Zelle hatte und in die Spalte wo "ItemName" steht ?
Zusätzlich: Falls es jemand zufällig auch noch weiss.
Gibt es einen Trick wie man dann nur die letztendlich aktivierte Zelle und die Zellen rechts davon auf dem Screen hat. (ohne activewindow.smallscroll aus dem recorder)