Webabfrage --> Ausgabe in UserForm
Peter
ich habe eine Webabfrage, die ich bisher in meinem Tabellenblatt ausgebe (ab Zelle F24, der Link steht in B20). Jetzt möchte ich, dass eine UserForm geöffnet wird und die Webabfrage dort ausgegeben wird. Ist dies überhaupt möglich?
Hier mein Versuch:
Sub Webabfrage()
Dim a As String
b = Range("Auswahl_Code!B20")
UserForm1.Show
With ActiveSheet.QueryTables.Add(Connection:="URL;" & b, Destination:=Range(UserForm1))
.Name = "verein"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Vorher hatte ich diese Zeile:
With ActiveSheet.QueryTables.Add(Connection:="URL;" & b, Destination:=Range("F24")
Habt ihr einen Tipp für mich?
Schon mal vielen Dank für eure Mühe!
Beste Grüße,
Peter
Anzeige