Forums Neueste Beiträge
 

Frage zu Row und Column

01/02/2013 - 10:18 von Peter Kraeft | Report spam
Hallo NG,

Set Bereich = Worksheets("Kopie").Range("B8:af28")
For Each C In Bereich
If C.Font.Color = 255 Then C.Font.ColorIndex = 0
If C = "~" Then Bereich.Cells(C.Row, C.Column) = ""
Next C

bei (C.row,C.Column) funktioniert es nicht. Könntet Ihr mir bitte einen Tipp geben

Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
01/02/2013 - 10:29 | Warnen spam
Hallo Peter,

Am Fri, 1 Feb 2013 01:18:11 -0800 (PST) schrieb Peter Kraeft:

Set Bereich = Worksheets("Kopie").Range("B8:af28")
For Each C In Bereich
If C.Font.Color = 255 Then C.Font.ColorIndex = 0
If C = "~" Then Bereich.Cells(C.Row, C.Column) = ""
Next C



beschreibe mal bitte was du machen möchtest.


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen