As Range Variable , Farbe formatieren

Bild

Betrifft: As Range Variable , Farbe formatieren von: Sergej
Geschrieben am: 08.03.2005 11:58:27

Hallo Forum!!!!!


Dim A As Integer '#####Zähler Variable
A = ThisWorkbook.Sheets("Dummy").Range("B1").Value
ThisWorkbook.Sheets("Protokol").Cells(A + 1, 6).Value="Hallo"


jezt wollte ich Zeile :
ThisWorkbook.Sheets("Protokol").Cells(A + 1, 6).Value="Hallo"
farblich formatieren

Wollte folgendes machen

Sub farbeAndern()
Dim S As Range
S=ThisWorkbook.Sheets("Protokol").Cells(A + 1, 6)
With S
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
End With
End Sub


und das geht leider nicht....:(

Wer kann mir behilflich sein???
Danke
gruß Sergej
Bild


Betrifft: AW: As Range Variable , Farbe formatieren von: ruds
Geschrieben am: 08.03.2005 12:22:08

hi probier mal:

Sub farbeAndern(c as Range)
  with c
    .Interior.ColorIndex = 6
    .Font.ColorIndex = 3
  End With
End Sub


aufruf:
farbeAndern(ThisWorkbook.Sheets("Protokol").Cells(A + 1, 6))

greets
ruds


Bild


Betrifft: AW: As Range Variable , Farbe formatieren von: Sergej
Geschrieben am: 08.03.2005 12:32:25

Meinen besten Dank Ruds!!!!!! Funz..prima!!!!!!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "As Range Variable , Farbe formatieren"