Datenbank - nur best. Datum einlesen ?
29.07.2008 07:22:32
Stefan
So - ich hab da mal ein Problem ...
Ich lese per Makro aus einer Datenbank Werte ein. Nun ist es so, dass hier die Werte eigentlich immer komplett für den ganzen Monat eingelesen werden - je nachdem bis zu welchem Datum sie eben bereits vorhanden sind. Beim nächsten einlesen ist dann immer wieder ein Tag mehr mit dabei.
Soweit so gut - funktioniert auch - bis jetzt - wie ich es brauche.
ABER: wie kriege ich es denn nun hin, das ich nur ein bestimmtes Datum einlesen kann - wenn ich nur den 10ten, 11ten usw. brauche ? Das weiß ich wirklich nicht.
Könnt ihr mir hier weiterhelfen ? Das Makro habe ich einmal mit reinkopiert.
Sub Einlesen ()
' Einlesen_ Makro
Range("A6:H37").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=DATENBANK.1;Password= Password;User ID=USER;Data Source=Source" _
, Destination:=Range("A6"))
.CommandType = xlCmdTable
.CommandText = Array("""DATENBANK"".""WERTE_MONAT""")
.Name = " WERTE_MONAT "
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
filePath = Range("A2").Text
.Refresh BackgroundQuery:=False
End With
Range("A6:H37").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A7:A37").Select
Selection.NumberFormat = "dd/mm/yy;@"
Range("C7:B33").Select
Selection.NumberFormat = "0"
Range("E7:E33").Select
Selection.NumberFormat = "0"
Range("G7:G33").Select
Selection.NumberFormat = "0"
Range("D7:D37").Select
Selection.NumberFormat = "0.000"
Range("F7:F37").Select
Selection.NumberFormat = "0.000"
Range("H7:H37").Select
Selection.NumberFormat = "0.000"
Range("A1").Select
End Sub
So - vielen Dank schon einma, im Voraus für Eure Hilfe & schöne Grüße
Stefan