Query - Daten unvollständig
17.03.2020 09:11:21
Dennis
Ich lasse mir über eine Query in VBA Daten aus einem Quell-Sheet in ein neues Sheet einfügen.
Hierbei handelt es sich um Seriennummern und Wartungsterminen von Geräten. Die meisten Geräte
haben nur Zahlen als Seriennummer, manche haben aber Buchstaben mit davor oder mittendrin.
Die Werte mit den Zahlen werden komplett übernommen, die mit Buchstaben allerdings nicht - was mache ich falsch? Die Formatierung im Quell-Sheet steht auf "Standard", auf dem neuen habe ich bereits Standard und auch "Text" probiert, ich bekomme aber einfach nicht die korrekten Werte.
Im Anhang 2 Bilder zur Veranschaulichung und hier mein Code für die Verbindung:
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & df_app & ";DefaultDir=" & d_app & "" _
), Array(";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
Range("$B$3")).QueryTable
If wartungstermine_lagerort = "200" Then
.CommandText = "SELECT `source$`.Bezeichnung, `source$`.`Serien-Nr#`, `source$`. _
Wartungstermin, `source$`.Name1, `source$`.Name2, `source$`.Strasse, `source$`.PLZ, `source$`. _
_
Ort FROM `source$` WHERE `source$`.HCM=" & admquery & " ORDER BY `source$`.Name1"
End If
If wartungstermine_lagerort = "1" Then
.CommandText = "SELECT `source$`.HCM, `source$`.Bezeichnung, `source$`.`Serien-Nr#`, ` _
_
_
source$`.Wartungstermin FROM `source$` `source$` WHERE (`source$`.HCM=" & admquery & ") ORDER _
_
BY `source$`.Wartungstermin"
End If
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = tablename
.Refresh BackgroundQuery:=False
End With