Ich habe nachstehende Funktion geschrieben, um Typklassen von Fahrzeugen anhand ihrer Hersteller und Schlüsselnummer abzufragen. Es funktioniert auch alles, bis auf die Tatsache, dass der Befehl Range("A14:D22").Delete nicht ausgeführt wird. Dies wäre mir aber sehr wichtig!
Private Function typklassen(hersteller, typ) As Variant
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://services.gdv-dl.de/GDVDL_Portal/typklassenverzeichnis/einfache_suche_out. _
php?table=typ_2013&hsn=" & Format(hersteller, "0000") & "&tsn=" & Format(typ, "000") & "&submit=Suche+starten" _
, Destination:=Range("A14"))
.Name = _
"einfache_suche_out.php?table=typ_2013&hsn=" & Format(hersteller, "0000") & "&tsn=" & _
Format(typ, "000") & "&submit=Suche+starten_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """subTable"",""liabilityTable"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
tkh = Cells(20, 2)
tvk = Right(Cells(21, 3), 2)
ttk = Right(Cells(22, 3), 2)
Range("A14:D22").Delete
Columns(1).AutoFit
Columns(2).AutoFit
typklassen = Format(tkh & tvk & ttk, "00|00|00")
End Function
Der Code für die Webabfrage wurde mit dem Makrorecorder aufgezeichnet und angepasst.
Ich hoffe mich Verständlich ausgedrückt zu haben und freue mich auf eure Vorschläge.
Gruß Peter