da gibts noch ganz andere Kaliber ;)
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).
Ne. Der Arbeitsblattname muss genau so angegeben werden, wie dieser in der Excelmappe zu lesen ist.
Wenn Dein Arbeitsblatt "QSheet" heisst, schaut die From-clause so aus:
FROM `QSheet$`
Wichtig sind hier ausserdem die backticks (rückwärtsgeneigte Hochkommata) vor und nach der Zeichenkette, sowie das $-Zeichen nach dem Arbeitsblattnamen.
(Die backticks findest auf deutschen Tastaturen neben der Backspace-Taste (oder linke ALT-Taste+96 drücken). Die Zahlen müssen allerdings über den Nummernblock eingegeben werden.)
'*** leicht manipuliert
Dim v As Variant ' Enthält das Abfrageergebnis/die Fundorte als zweidimensionales Array (Rückgabewert des SQL Codes/der Datenbankabfrage und wird im letzten Schritt in vRet zur weiteren Bearbeitung umgewandelt
Dim vRet As Variant ' Enthält das Abfrageergebnis/die Fundorte als eindimensionales Array zur weiteren Bearbeitung in VBA
Dim sSQL As String ' Enthält die Datenbankabfrage
' 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.
Hier mal zusammengefasst:
sSQL = "SELECT [SpalteA] " & _
"From `QSheet$` " & _
"Where [SpalteB] Like '%.AI'" & _
"Or [SpalteB] Like '%.BI'" & _
"Or [SpalteB] Like '%.AV'" & _
"Or [SpalteB] Like '%.BV'"
|