Slette 6 celler i start af en macro

Range("p4,p19,s4,s19,v4,v19").ClearContents

Hej Store-Morten  igen....TAK

Den skriver jeg ikke kan slette de nævnte celler da de er flettet ??

Range("P4:Q4").Select
    Selection.ClearContents

Flettede celler burde ikke findes ;-)

Ved det....

Jeg har stadig lidt problemer
Jeg kan se den makere de valgte celler men den sletter den ikke som ønsket ??

Sub IndsaetBilleder()


Range("a1:j10").Select
    Selection.ClearContents


On Error Resume Next
For Each c In Range("p4,p19,s4,s19,v4,v19").Cells

c.Offset(0, -13).Select
ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value & ".jpg").Select


Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
Selection.ShapeRange.Height = 120 'justeres så billedet får den rigtige størrelse


Next c

End Sub

Det er 6 billeder den skal slette...kan det være derfor ??

Ja, det er det helt sikkert

Er der flere en 6 billeder?

Max 6 billeder der er samme sted hver gang

Sletter alle billeder:Test i en kopi ;-)

Hej igen

Syntes ikke det virker...der sker ikke rigtig noget

Håber måske dette kan hjælpe på en løsing

Hvis jeg køre dette gør den det rigtige men det er ikke samme billede hver gang så der skal stå noget andet ????

Sub Makro2()
'
' Makro2 Makro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 111")).Select
    Selection.Delete
End Sub

Tak for hjælpen......Lukker her da jeg ikke har fået en brugbar løsning og prøvet en andet sted..

TAK

Kan denne "om døbe"  dine billeder:

Sub Rename_Picture()
On Error GoTo Err:
For i = 1 To 9999
If ActiveSheet.Shapes(i).Type = msoPicture Then
    ActiveSheet.Shapes(i).Name = "Picture " & i
End If
Next i
Err:
End Sub

Er der andre objekter i arket, knapper eller tegninger pile osv....?

Hej igen

Ja det virker fint med omdøb.

Det kan godt være andre ting / billeder på Arket som ikke må slettes.
kan det hjælpe hvis jeg med sikkerhed kan sige at de billeder der skal skiftes har nummere mellem 1 og 250.
Er der andre ting på arket der skal blive kan jeg kalder det noget anddet fx blomst.jpg

Tror ikke billede navn og Picture xx hænger sammen.
Excel giver Picture fortløbene nr. så den er svær.

Sub Rename_Picture() tager det mindste Picture xx og omdøber til Picture 1.. og op efter, og da du har flere billeder, så dur det ikke.

Måske hvis du ved at det er de sidste indsætte billeder der skal slettes?

Det kan jeg ikke sige med sikkerhed da jeg kan indsætte et nyt logo eller stemings billede.

Jeg kan sige med sikkehed at det er fra nummer 1 til 250 ( elevnummer) eller det er fra celle A1:J10

Kan du sende arket på mail?

Når jeg leger med billederne ligger de "flydene" på arket, ikke i celler.

Vil lige her sige 1000 tak for alt det Morten har hjulpet mig med her.....
Problemet er løst til UG..

Tak Morten