Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 14 van 14

Onderwerp: Compileerfout: Kan het project of de bibliotheek niet vinden.

  1. #1
    Vraag is niet opgelost

    Compileerfout: Kan het project of de bibliotheek niet vinden.

    Ik heb een tijdje geleden een pagina aangemaakt waarin ik wat info uit andere sheets verzamel.
    nu ik pas geleden het bestand opende en het weer wilde proberen kreeg ik het volgende:
    Compileerfout: Kan het project of de bibliotheek niet vinden.
    met als gearseerd
    Code:
    For Each c1 In .Range("A6").Resize(lMaxRegel)
    Weet iemand de oplossing? ik niet na lang zoeken en proberen.

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Voor welk object wordt de .Range gebruikt?
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    eigenlijk voor alle sheets om te kijken wat er staat en wat hij kan verzamelen.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zo'n enkele regel code zegt helemaal niets m.b.t. die foutmelding.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Dit staat er beschreven bij mijn macro als VBA code
    Code:
    Sub VoegSamen()
    
    Dim oWs As Worksheet
    Dim lMaxRegel As Long
    Blad1.[F7:F1000].WrapText = False
    Blad1.[A7:M1000].ClearContents
    For Each oWs In ActiveWorkbook.Worksheets           'Doorloop alle werkbladen
        If oWs.Name <> "Hoofdmenu" Or oWs.Name <> "Werkzaamheden" Or oWs.Name <> "Verzamelblad" Then                  'Behalve "Totaal"
            lMaxRegel = oWs.Range("A100000").End(xlUp).Row  'Bepaal nummer laatste regel
            With oWs
          
                For Each c1 In .Range("A6").Resize(lMaxRegel)       'Doorloop alle regels
                    If cl = Blad1.Range("D2").Value Then
                        sq = .Cells(cl.Row, "A").Resize(, 10).Value
                        Blad1.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(1, 10).Value = sq
                        Blad1.Cells(Rows.Count, "A").End(xlUp).Offset(, 12).Value = oWs.Name
                        
                        sq = ""
                    End If
                Next                                    'Ga naar volgende regel
            End With
        End If
    Next                                                'Ga naar volgende werkblad
    
    Blad1.[F7:F1000].WrapText = True
    End Sub

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Doe het eens zo:
    Code:
    Sub VoegSamen()
        Dim oWs As Worksheet
        Dim lMaxRegel As Long
        
        Blad1.[F7:F1000].WrapText = False
        Blad1.[A7:M1000].ClearContents
        
        For Each oWs In ActiveWorkbook.Worksheets                                                           'Doorloop alle werkbladen
            If oWs.Name <> "Hoofdmenu" Or oWs.Name <> "Werkzaamheden" Or oWs.Name <> "Verzamelblad" Then    'Behalve "Totaal"
                lMaxRegel = oWs.Range("A100000").End(xlUp).Row                                              'Bepaal nummer laatste regel
                With oWs
                    For Each cl In .Range("A6").Resize(lMaxRegel)                                           'Doorloop alle regels
                        If cl = Blad1.Range("D2").Value Then
                            sq = .Cells(cl.Row, "A").Resize(, 10).Value
                            Blad1.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(1, 10).Value = sq
                            Blad1.Cells(Rows.Count, "A").End(xlUp).Offset(, 12).Value = oWs.Name
                            
                            sq = ""
                        End If
                    Next cl                                                                                 'Ga naar volgende regel
                End With
            End If
        Next oWs                                                                                            'Ga naar volgende werkblad
        
        Blad1.[F7:F1000].WrapText = True
    End Sub
    Laatst aangepast door edmoor : 15 september 2020 om 20:25
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    nope, geprobeerd maar geeft dezelfe foutcode.
    verder heb ik niets verandert vanaf het begin want hij deed het eerst wel.

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Doet het hier prima terwijl die van jou hier ook fout gaat.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    jammer genoeg kan ik het bestand niet uploaden, het bestand is blijkbaar te groot naar mijn doen want hij wilt hem niet uploaden.

  10. #10
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    wijzig
    Code:
     For Each c1 In .Range("A6").Resize(lMaxRegel)       'Doorloop alle regels
    eens in
    Code:
     For Each cl In .Range("A6").Resize(lMaxRegel)       'Doorloop alle regels
    maw verander de 1 (één) eens in een l (kleine letter L)
    Haije
    ___________________________________________________

  11. #11
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zoals in mijn voorbeeld
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  12. #12
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Quote Origineel gepost door edmoor Bekijk Bericht
    Zoals in mijn voorbeeld
    Inderdaad, maar ik vermoed dat TS het verschil niet heeft opgemerkt
    Haije
    ___________________________________________________

  13. #13
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Kijk in de VBEditor bij Extra /references.
    Dan zie je welke bibliotheek ontbreekt.
    De VBA-code doet er niet toe.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  14. #14
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Een beetje sneller

    Code:
    Sub VenA()
      With Blad1
        With .Range("A7:M" & .Cells(Rows.Count, 1).End(xlUp).Row)
          .ClearContents
          .WrapText = False
        End With
        c00 = .Range("D2").Value
        Set d = CreateObject("Scripting.Dictionary")
        For Each sh In Sheets
          If IsError(Application.Match(sh.Name, Split("Hoofdmenu Werkzaamheden Verzamelblad"), 0)) Then
            ar = sh.Range("A6:M" & sh.Cells(Rows.Count, 1).End(xlUp).Row)
            For j = 1 To UBound(ar)
              If ar(j, 1) = c00 Then
                ar(j, 13) = sh.Name
                d(d.Count + 1) = Application.Index(ar, j)
              End If
            Next j
          End If
        Next sh
        .Cells(7, 1).Resize(d.Count, 13) = Application.Index(d.items, 0, 0)
        .Cells(7, 6).Resize(d.Count).WrapText = True
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren