Goedemiddag allen,

Eerst en vooral sorry moest er hiervoor een andere topic zijn en ik een nieuwe heb geopend.


Ik heb een heel vervelende vraag.

Ik heb een excel-document met een hele hoop macro's er in. Hier zijn enkele macro's die ik heb gekopieerd, maar bij 1 ben ik vergeten de titel er van te veranderen met gevolg dat ik dus met 2 macro's zit met dezelfde naam en dus niet gaat werken. Probleem is dat ik het document per ongeluk volledig heb afgesloten en nu krijg ik het document niet meer geopend. Hoe kan ik dit oplossen?

Misschien een heel domme vraag en zeker een heel domme stoot van mij, maar dit moet toch ergens te omzeilen zijn?

Alvast hartelijk bedankt,

Beste RedHead,

Heb ik helaas geprobeerd, maar dan veranderen al mijn instellingen en zijn al mijn macro's verdwenen. Ik heb de hoop op herstel opgegeven en ben ondertussen helemaal opnieuw begonnen. Dit keer met voldoende keren alle opslaan en reservekopie te nemen.

Jullie zijn toch allemaal heel hartelijk bedankt om jullie tijd in een oplossing te zoen te willen steken.

Met vriendelijke groeten.

Dag RedHead,

Ja helaas was het toch zo, maar het is nu zo en ik ga er mijn slaap niet meer over laten.

Een volgende vraag die ik heb.

Even korte schets.

Ik heb 3 werkbladeren, Blad1, Blad2 en Blad3. Telkens in samengevoegde cel A78:BE169 kan is een afbeelding plaatsen. Dit is bv een routeplan naar mijn onderaannemers.
Tot zover nog geen probleem, gewoon Afbeelding invoegen en ze staat er. 
Maar nu zou ik graag een macro (startpagina) willen maken en als ik hier op druk, dan moeten de foto's van de 3 werkbladen in cel A78:BE169 allemaal gewist worden.
Ik had onderstaande formule al gevonden, maar dit werkt maar bij 1 werkblad. Hoe kan ik deze formule aanpassen zodat ook op de andere werkbladen deze foto's gewist worden.

Sheets("Blad1").Select
    Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
    If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
    If Sh.Type = msoPicture Then Sh.Delete
    End If
    Next Sh

Ik dacht aan deze formule, maar dan geeft hij een foutmelding.

Sheets("Blad1").Select
    Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
    If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
    If Sh.Type = msoPicture Then Sh.Delete
    End If
    Next Sh
Sheet("Blad3").Select
 Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
    If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
    If Sh.Type = msoPicture Then Sh.Delete
    End If
    Next Sh
Sheet("Blad2").Select
 Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
    If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
    If Sh.Type = msoPicture Then Sh.Delete
    End If
    Next Sh
End Sub

Wat doe ik hier fout?


Met vriendelijke groeten.

Net even getest en helaas het werkt nog niet.

Fout 438 geeft hij aan. In rood aangeduid waar deze fout op slaat.


For Each Shp In Sheets(array("Blad1", "Blad2", "Blad3")).Shapes
       If Not Application.Intersect(Shp.TopLeftCell, Range("A78:BE169")) Is Nothing Then
            If Shp.Type = msoPicture Then Shp.Delete
       End If
    Next Shp

Beste RedHead,

Sorry dat ik nu pas reageer, maar had enkel drukke dagen. Ik heb voor zekerheid en vooral voor makkelijkheid een documentje in de bijlage gestoken en hieronder wat meer uitleg. Zo is het voor jullie ook wat makkelijker werken.

Je zal zien dat ik bladen "Startpagina" -  "Adres1"   -  "Adres2"  -  "Adres3" heb gemaakt. Op de startpagina heb ik knoppen met macro's staan die het makkelijker maken om naar de gewenste Adrespagina te gaan. Dat werkt perfect. Op de Adresbladen zie je dan weer een knop Startpagina staan.
De bedoeling is dat ik op de verschillende Adresbladeren in van A3:H33 een foto kan invoegen. Tot daar nog een probleem.
Nu zou ik willen dat wanneer je op 1 van de Startpaginaknoppen drukt, de foto op blad "Adres1 + Adres2 en Adres3" wist en terugkeert naar de Startpagina. Ik krijg het klaar dat ik enkel 1 foto op het desbetreffende blad wil wissen, maar niet dat ik ze alle 3 wil wissen op verschillende bladen.

Succes met jullie zoektocht en hartelijk dank al.

Goedemorgen SoftAid,

Ik ga hem straks even testen. Vereenvoudigen moet voor mij niet hoor.  Mijn macro's zijn meestal ook veel te lang, maar zolang het allemaal maar werkt heb ik hier geen probleem mee.

In ieder geval super bedankt.

Met vriendelijke groeten.

Nog Misschien een domme vraag. Stel dat mijn bladen bv Adres 1, Route 2 en Gegevens 3 zouden noemen. Hoe vul ik dit dan in bij het met rood gemarkeerde deel?


Sub Startpagina()
   
      For blad = 1 To 3
   
 
    Sheets("Adres" & blad).Select
    Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
    If Not Application.Intersect(Sh.TopLeftCell, Range("A3:H33")) Is Nothing Then
    If Sh.Type = msoPicture Then Sh.Delete
    End If
    Next Sh
    Next blad
    Sheets("Startpagina").Select
   
End Sub

Hallo Jamnesia,

als je wilt, geef dan even de code door die je gebruikt hebt, of de aanpassingen. Ik leer ook graag bij 

Als het aantal Sheets varieert gedurende de tijd, of de namen van de sheets veranderen, dan kan je beter gebruik maken van:

WS_Count = ActiveWorkbook.Worksheets.Count
waarmee je dan het aantal Sheets bekomt (=WS_Count) en dus een teller kan maken:

For I = 1 To WS_Count
Dat geeft dan ongeveer deze code:

Sub Startpagina()

    Dim WS_Count As Integer, I As Integer, Sh As Shape
    WS_Count = ActiveWorkbook.Worksheets.Count
         
        For I = 1 To WS_Count
            For Each Sh In ActiveWorkbook.Worksheets(I).Shapes
                'If Not Application.Intersect(Sh.TopLeftCell, Range("A3:H33")) Is Nothing Then
                If Sh.Type = msoPicture Then Sh.Delete
                'End If
            Next Sh
        Next I
    Sheets("Startpagina").Select
 End Sub

Groeten,

SoftAid