Re: Form. Zeilen mit Buttons auf + ab
17.04.2003 11:34:55
ChrisL
Hallo BeeuceyVersuchs mal hiermit...
Option Explicit
Sub Auf()
If ActiveCell.Row > 1 Then
With Range("A" & ActiveCell.Row - 1 & ":K" & ActiveCell.Row - 1)
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
.Font.Bold = True
End With
With Range("A" & ActiveCell.Row & ":K" & ActiveCell.Row)
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
.Font.Bold = False
End With
Cells(ActiveCell.Row - 1, ActiveCell.Column).Select
End If
End Sub
Sub Ab()
If ActiveCell.Row < 65536 Then
With Range("A" & ActiveCell.Row + 1 & ":K" & ActiveCell.Row + 1)
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
.Font.Bold = True
End With
With Range("A" & ActiveCell.Row & ":K" & ActiveCell.Row)
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
.Font.Bold = False
End With
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End If
End Sub
Gruss
Chris