Schriftfarbe automatisch nach Makroausführung?
22.11.2006 15:38:50
Andrea
bräuchte mal Eure Hilfe.
Ich hab eine Excel-Datei, in der ich auf einem Tabellenblatt die Eingaben mache und dann nach Klick auf eine Schaltfläche diese Eingaben auf einem anderen Tabellenblatt sortiert werden, also so eine Art Rangliste.
Das Makro dazu steht unten. Hier möchte ich nun jedoch noch einen Zusatz einbauen, daß die Zeilen 1-10 automatisch in einer Schriftfarbe erscheinen, Zeilen 11-32 in einer anderen usw.... also bestimmte Zeilen immer in einer Schriftfarbe und evtl. noch Fettdruck.
Könnt Ihr mir kurz Hilfe geben, wie ich das machen kann?
Vielen Dank schon mal!
Grüße
Andrea
Hier noch das Makro:
Option Explicit
Sub Schaltfläche4_BeiKlick()
Application.Goto Reference:="Auswertung"
Selection.Clear
Range("Name").Copy Sheets("Rangliste_Druck").Range("C21")
Range("Punkte").Copy Sheets("Rangliste_Druck").Range("D21")
Range("Teilnahmen").Copy Sheets("Rangliste_Druck").Range("E21")
Range(Cells(21, "B"), Cells(ActiveSheet.Cells(Cells(Rows.Count, "C").End(xlUp).Row, 1).Row, "C")).Select
Dim x As Long, y As Integer
x = ActiveSheet.UsedRange.Rows.Count
y = ActiveCell.Column
ActiveCell.FormulaR1C1 = "=RANK(RC[2],RangPunkte,0)"
' Nach unten auffüllen
Range(ActiveCell, Cells(ActiveCell.Offset(0, 1).End(xlDown).Row, ActiveCell.Column)).FillDown
'nach unten markieren
x = ActiveSheet.UsedRange.Rows.Count
y = ActiveCell.Column
Range(Cells(ActiveCell.Row, y), Cells(x, y)).Select
' Wandelt alle selektierten Zellen in Zahlen
Range("Rang").Value = Sheets("Rangliste_Druck").Range("Rang").Value
'sortieren nach Rang
Range("Auswertung").Sort Key1:=Range("B21"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B21").Select
Worksheets("Rangliste_Druck").Range("A:F").HorizontalAlignment = xlHAlignCenter
End Sub