Live-Forum - Die aktuellen Beiträge
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
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige