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