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"