• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kleur terug zetten

Status
Niet open voor verdere reacties.
B

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
Ik gebruik diverse kleuren in een rij.
Als ik alles wis met
Code: 
Sheets("Blad2").Range("A16:H200").ClearContents
Dan blijft het die kleuren.
Hoe kan ik wissen en de kleuren terug zetten naar witte achtergrond en zwarte tekst?
 
Ik loop nu tegen een volgende probleem aan.
De kleuren zijn nu wel gewist maar mijn cel eigenschappen zoals valuta is ook weg.
Kan ik iets doen dat H16 - H200 valuta is?
 
Probeer deze eens.
Code: 
Range("H16:H200").Interior.Color = xlNone
 
Zou dit het doen?
Code: 
Sheets("Blad2").Range("A16:H200").Interior.ColorIndex = xlNone
 
Of dit:
Code: 
With Sheets("Blad2").Range("A16:H200")
    .Interior.Color = xlNone
    .Font.Color = 0
    .ClearContents
End With
 
Code: 
With Sheets("Blad2").Range("A16:H200")
     c00=.numberformat
    .clear
    .numberformat=c00
End With
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan