|
@Mase
Danke für diese Antwort.
ich bin begeistert über deine Kentnisse in VBA.
Du bist der Wahnsinn.
Ich habe den Code von oben in mein VBA Projekt eingefügt.
Ich gehe davon aus das in From bereits das aktuelle Sheet angesprochen wird. Wenn nicht müsste ich dort die Variable für den Sheetnamen (bei mir QSheet, wie Quellsheet) einbauen (Keine Ahnung wie).
Des weiteren gehe ich davon aus, soweit ich den Code verstanden habe, das vRet die Variable mit allen Fundorten ist.
Da ich die Werte mehrfach in der Spalte habe, dürfen sie auch mehrfach ausgegeben werden.
Ist das so jetzt erst einmal Richtig?
' Filtern nach AI, BI, AV und BV (Analog, Digital input und Virtuelle Analog, Digitale Werte)
Dim v As Variant ' Enthält die Werte für die Fundorte innerhalb des SQL Codes und wird im letzten Schritt in vRet zur weiteren Bearbeitung umgewandelt
Dim vRet As Variant ' Enthält die Fundorte zur weiteren Bearbeitung in VBA
Dim SSQL As String ' Enthält die Werte für die Suche
' hier fehlt mir bei From das Wissen wie ich den Namen des Quellsheets (Variable = QSheet) einfüge, oder ob dein String bereits das aktive Sheet ist.
SSQL = "SELECT [SpalteA] " & _
"From 'Arbeistblattnahme$' " & _
"Where [SpalteB] Like '%.AI'" & _
"Or [SpalteB] Like '%.BI'" & _
"Or [SpalteB] Like '%.AV'" & _
"Or [SpalteB] Like '%.BV'"
With CreateObjekt("ADODB.Recordset")
.Open SSQL, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0Xml"""
v = Application.Transponse(.GetRows)
.Close
End With
'Aus 2D mach ID
vRet = Aplication.Transponse(v)
|