Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige