Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Form. Zeilen mit Buttons auf + ab

Forumthread: Form. Zeilen mit Buttons auf + ab

Form. Zeilen mit Buttons auf + ab
17.04.2003 10:54:01
Beeucey
Hallo XL Freaks

Ich würde gerne eine Zeile ( A-K ) farbig machen, mit fetter, weisser Schrift. Alles kein Problem.
Jetzt möchte ich aber, diese Zeile mit zwei Buttons ( auf/ab)
runter und hinaufbewegen können und imme nur diese eine Zeile
ist so formatiert. ( Aktive Zeile ).

Kann mir bitte jemand helfen?

Ich bedanke mich im voraus für Eure Hilfe.

Gruss Beeucey

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Form. Zeilen mit Buttons auf + ab
17.04.2003 11:34:55
ChrisL

Hallo Beeucey

Versuchs 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

Anzeige
Re: Form. Zeilen mit Buttons auf + ab
17.04.2003 13:01:22
Beeucey

He Chris

Ist ja genial, Danke es ist perfekt.

Happy Easter

Beeucey

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige