range wissen (VBA)

[mariannevanh]

Met
Sheets("Blad2").Cells.ClearContents
wis ik de inhoud van een heel blad

maar...

...hoe wis ik de inhoud van kolom A?
...hoe wis ik de inhoud van A1:A100?

 

[mooncrawler]

Dim wb as Workbook
Dim ws as Worksheet

Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")

ws.Range("A1:A100").Delete

 

[mariannevanh]

range bevat samengevoegde cellen

Omdat de opmaak niet veranderd mag worden, heb ik het commando veranderd:

ws.Range("D1:GT1").ClearContents

(dus geen Delete)
Echter: de cellen D1 en E1 zijn samengevoegd (en zo ook F1-G1, H1-I1, enz.).
Bij het uitvoeren van de macro krijg ik een foutmelding: "U kunt niet een deel van een samengevoegde cel wijzigen".

Hoe krijg ik de cellen in die reeks toch "leeg"?

 

[mooncrawler]

Probeer het dan eens zo:

Public Sub delRange()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("Blad1")
Dim r As Range, p
ws.Activate
Set r = ws.Range("D1:GT1")
For Each p In r
ws.Range(p.Address).ClearContents
Next
End Sub

 

[mariannevanh]

Geplaatst door mooncrawler
Probeer het dan eens zo:

Public Sub delRange()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("Blad1")
Dim r As Range, p
ws.Activate
Set r = ws.Range("D1:GT1")
For Each p In r
ws.Range(p.Address).ClearContents
Next
End Sub

Werkt ook niet.
Heb het nu als volgt opgelost:
For W = 4 To 208
Cells(1, W) = Cells(1, 210)
W = W + 1
Next