Office: SQL Abfrage in Excel

Hallo zusammen

Ich lasse mir in Excel eine Tabelle mittels SQL ausgeben:

SELECT KHKVKBelege.Belegnummer, KHKVKBelegePositionen.BelID, KHKVKBelegePositionen.BelPosID, KHKVKBelegePositionen.Artikelnummer, KHKArtikel.Matchcode,
KHKArtikelVarianten.EANNummer, KHKVKBelege.Referenznummer, KHKVKBelege.A1Zusatz, KHKVKBelegePositionen.Menge, KHKVKBelege.Nettobetrag,
KHKVKBelege.Belegdatum, KHKVKBelege.Kundengruppe
FROM KHKVKBelegePositionen INNER JOIN
KHKVKBelege ON KHKVKBelegePositionen.BelID = KHKVKBelege.BelID AND KHKVKBelegePositionen.Mandant = KHKVKBelege.Mandant INNER JOIN
KHKVKBelegeVorgaenge ON KHKVKBelegePositionen.BelID = KHKVKBelegeVorgaenge.BelID AND
KHKVKBelege.Mandant = KHKVKBelegeVorgaenge.Mandant INNER JOIN
KHKArtikelVarianten ON KHKVKBelegePositionen.Artikelnummer = KHKArtikelVarianten.Artikelnummer AND
KHKVKBelegePositionen.Mandant = KHKArtikelVarianten.Mandant INNER JOIN
KHKArtikel ON KHKArtikelVarianten.Artikelnummer = KHKArtikel.Artikelnummer AND KHKArtikelVarianten.Mandant = KHKArtikel.Mandant
WHERE
(KHKVKBelege.Belegkennzeichen = 'VLR')
AND (KHKVKBelegePositionen.Artikelnummer = Platzhalter )
AND (KHKVKBelege.Belegdatum > '2012')
AND (KHKVKBelege.Kundengruppe='66' or KHKVKBelege.Kundengruppe='67')
AND (KHKVKBelegeVorgaenge.VorID NOT IN
(SELECT KHKVKBelegeVorgaenge_1.VorID
FROM KHKVKBelege AS KHKVKBelege_1 INNER JOIN
KHKVKBelegeVorgaenge AS KHKVKBelegeVorgaenge_1 ON KHKVKBelege_1.BelID = KHKVKBelegeVorgaenge_1.BelID AND
KHKVKBelege_1.Mandant = KHKVKBelegeVorgaenge_1.Mandant
WHERE (KHKVKBelege_1.Belegkennzeichen = 'VFS') AND (KHKVKBelege_1.Kundengruppe = KHKVKBelege.Kundengruppe) AND
(KHKVKBelege_1.Mandant = KHKVKBelege.Mandant)))
order by KHKVKBelege.Belegdatum

Statt dem Wort Platzhalter hätte ich an der Stelle gerne den Wert der Zelle N14 in Tabelle2. Wie stelle ich das an?
Habe schon alles möglich, auch an Tipps, ausprobiert, aber nichts funktioniert. Hilfe!

Danke schon mal vorab.

Gruß

 

Hallo,

das folgende Makro mittels Kopieren und Einfügen in das Code-Modul des Arbeitsblattes kopieren, in dem auch Deine zu modifizierende Abfragetabelle enthalten ist.
1) Das Makro ist so konzipiert, dass es auf Datenänderungen in dem Blatt reagiert, in dessen Codemodul es eingefügt wurde (Ereignis Datenänderung im aktiven Arbeitsblatt).
2) Daraufhin holt es sich den Inhalt der Zelle 'Tabelle2!N14' und speichert ihn zuerst in der Variablen Platzhalter$ und in weiterer Folge an der gewünschten Position der SQL-Abfrage-Variablen 'SqlAbfrage$'.
3) Diese letztere Variable wird als SQL-Kommando an die 1. Abfragetabelle (Me.QueryTables(1)) des aktiven Arbeitsblattes (in dessen Codemodul sich dieses Makro befindet) übergeben.
4) Damit Punkt 3) funktioniert, muss natürlich für diese Abfragetabelle eine gültige Datenverbindung zur Datenquelle existieren. Dies nehme ich an, da Du vermutlich für feste Werte von PLATZHALTER die SQL-Abfrage bereits ausgeführt haben wirst.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim SqlAbfrage$
  Dim Platzhalter$
  
  On Error GoTo Err_Ws_Change
  Application.EnableEvents = False
    
  Platzhalter$ = Worksheets("Tabelle2").Range("N14").Value
  
  'Falls KHKVKBelegePositionen.ARTIKELNUMMMER ein TEXT-Feld ist, muss der Inhalt von Platzhalter$ in "'" gesetzt werden:
  Platzhalter$ = "'" & Platzhalter$ & "'"
  
  SqlAbfrage$ = _
    "SELECT KHKVKBelege.Belegnummer, KHKVKBelegePositionen.BelID, KHKVKBelegePositionen.BelPosID, KHKVKBelegePositionen.Artikelnummer, KHKArtikel.Matchcode, " & _
    "KHKArtikelVarianten.EANNummer, KHKVKBelege.Referenznummer, KHKVKBelege.A1Zusatz, KHKVKBelegePositionen.Menge, KHKVKBelege.Nettobetrag, " & _
    "KHKVKBelege.Belegdatum , KHKVKBelege.Kundengruppe " & _
    "FROM KHKVKBelegePositionen INNER JOIN " & _
    "KHKVKBelege ON KHKVKBelegePositionen.BelID = KHKVKBelege.BelID AND KHKVKBelegePositionen.Mandant = KHKVKBelege.Mandant INNER JOIN " & _
    "KHKVKBelegeVorgaenge ON KHKVKBelegePositionen.BelID = KHKVKBelegeVorgaenge.BelID AND " & _
    "KHKVKBelege.Mandant = KHKVKBelegeVorgaenge.Mandant INNER JOIN " & _
    "KHKArtikelVarianten ON KHKVKBelegePositionen.Artikelnummer = KHKArtikelVarianten.Artikelnummer AND " & _
    "KHKVKBelegePositionen.Mandant = KHKArtikelVarianten.Mandant INNER JOIN " & _
    "KHKArtikel ON KHKArtikelVarianten.Artikelnummer = KHKArtikel.Artikelnummer AND KHKArtikelVarianten.Mandant = KHKArtikel.Mandant " & _
    "WHERE " & _
    "(KHKVKBelege.Belegkennzeichen = 'VLR') " & _
    "AND (KHKVKBelegePositionen.Artikelnummer = [COLOR="#FF0000"]" & Platzhalter$ & "[/COLOR] ) " & _
    "AND (KHKVKBelege.Belegdatum > '2012') " & _
    "AND (KHKVKBelege.Kundengruppe='66' or KHKVKBelege.Kundengruppe='67') " & _
    "AND (KHKVKBelegeVorgaenge.VorID NOT IN " & _
    "(SELECT KHKVKBelegeVorgaenge_1.VorID " & _
    "FROM KHKVKBelege AS KHKVKBelege_1 INNER JOIN " & _
    "KHKVKBelegeVorgaenge AS KHKVKBelegeVorgaenge_1 ON KHKVKBelege_1.BelID = KHKVKBelegeVorgaenge_1.BelID AND " & _
    "KHKVKBelege_1.Mandant = KHKVKBelegeVorgaenge_1.Mandant " & _
    "WHERE (KHKVKBelege_1.Belegkennzeichen = 'VFS') AND (KHKVKBelege_1.Kundengruppe = KHKVKBelege.Kundengruppe) AND " & _
    "(KHKVKBelege_1.Mandant = KHKVKBelege.Mandant))) " & _
    "ORDER BY KHKVKBelege.Belegdatum; "
  
  'Me: bezieht sich auf das aktive Arbeitsblatt: in diesem Fall ist es zB. 'Worksheets("Tabelle1")'.
  'Me.QueryTables(1): bezieht sich dann auf die 1. Abfragetabelle im Arbeitsblatt 'Tabelle1'.
  '   In dieser Abfragetabelle muss eine bereits bestehende, gültige Verbindung(szeichenfolge) zu einer SQL-Datenquelle existieren.
  '   Mit dieser Verbindung wird mit Hilfe der Variablen SQLABFRAGE$ im Folgenden eine SQL-Abfrage ausgeführt, indem
  '   a) der Eigenschaft ".CommandText" die SQL-Abfrage, die in der Variablen SQLABFRAGE$ enthalten ist, zugewiesen wird;
  '   b) die Methode ".Refresh" ausgeführt wird. Dadurch wird die Abfrage erneut ausgeführt. In diesem Fall wird festgelegt,
  '      dass die Abfrage nicht im Hintergrund ausgeführt werden soll, d.h. sie wird sofort ausgeführt.
  '
  With Me.QueryTables(1)
    .CommandText = SqlAbfrage$
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = False
    .RefreshStyle = 0 'Überschreiben aller Zellwerte im Resultatsbereich
    .SavePassword = True
    .SaveData = False
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
  End With
  
Err_Ws_Change:
  Application.EnableEvents = True
  
End Sub