Zoek en gij zult vinden

[Jarodxxx]

Hallo excel vrienden,

Mijn vorige post heb ik maar op niet opgelost gezet, 2e blad kwam in zicht en niemand leest die 2e pagina had ik het idee.

Ik heb onderstaand testbestand
Test2.xls moet in (c:\test2.xls)
Testbestand3.xls maakt niet uit waar het staat

Op blad "home" staan de targets en de query staat op blad "blad2"
Ik krijg de foutmelding Objectvariabele of blokvariabele with is niet ingesteld

Wat zie ik over het hoofd?
Ik krijg de query niet op "blad2" met de targets op "Home"

de code is:

Private Sub Worksheet_Change(ByVal target As Range)
 Dim SHTEST3 As Object
    
    SHTEST3 = Sheets("Blad2").Activate
    
    SHTEST3.Range("A32").Select
     If target.Address = "$B$5" And Not IsEmpty(target.Value) Then
        With Selection.QueryTable
            .Connection = _
            "ODBC;DSN=Excel Files;DBQ=C:\Test2.xls;DefaultDir=C:\;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
            .CommandText = Array( _
            "SELECT `test2$`.`Branch plant`, `test2$`.Vestiging, `test2$`.Vestiging1, `test2$`.F4, `test2$`.`Cursistnr# Preventief`, `test2$`.Naam, `test2$`.`Geb# datum`, `test2$`.`Laatste herhaling`, `test2$`.`In" _
            , _
            "delen Z/N`, `test2$`.`Adres Prive`, `test2$`.`Postcode +Woonplaats`, `test2$`.Bijzonderheden" & Chr(13) & "" & Chr(10) & "FROM `C:\Test2`.`test2$` `test2$`" & Chr(13) & "" & Chr(10) & "WHERE (`test2$`.`Branch plant`=" & target.Value & ")" & Chr(13) & "" & Chr(10) & "ORDER BY `test2$`.`Branch plant`" _
            )
            .Refresh BackgroundQuery:=False
        End With
    ElseIf target.Address = "$B$7" And Not IsEmpty(target.Value) Then
        With Selection.QueryTable
            .Connection = _
            "ODBC;DSN=Excel Files;DBQ=C:\Test2.xls;DefaultDir=C:\;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
            .CommandText = Array( _
            "SELECT `test2$`.`Branch plant`, `test2$`.Vestiging, `test2$`.Vestiging1, `test2$`.F4, `test2$`.`Cursistnr# Preventief`, `test2$`.Naam, `test2$`.`Geb# datum`, `test2$`.`Laatste herhaling`, `test2$`.`In" _
            , _
            "delen Z/N`, `test2$`.`Adres Prive`, `test2$`.`Postcode +Woonplaats`, `test2$`.Bijzonderheden" & Chr(13) & "" & Chr(10) & "FROM `C:\Test2`.`test2$` `test2$`" & Chr(13) & "" & Chr(10) & "WHERE (`test2$`.Vestiging='" & target.Value & "')" & Chr(13) & "" & Chr(10) & "ORDER BY `test2$`.`Branch plant`" _
            )
            .Refresh BackgroundQuery:=False
        End With
    End If
    target.Select
End Sub

Jarod

 

[Hans123]

Jarod,

Toevallig was ik net aan het kijken of ik iets kon verzinnen voor je vraag. Aangezien ik zo nu en dan ook iets anders doe dan op dit forum kijken (zoals de meeste anderen) duurt het wel eens even voor er gereageerd wordt. In plaats van 'Zoek en gij zult vinden' kun je beter zeggen 'geduld is een schone zaak.' Het is niet handig om voor een bestaande vraag een nieuw topic te beginnen.

Op dit moment heb ik even wat ruzie met mijn PC, misschien lukt het om vanavond hier nog op terug te komen in de originele vraag !