Ich habe mit dem Makrorecorder eine Webabfrage aufgezeichnet und versucht, die festeingestellte URL durch eine Variable aus dem Tabellenblatt2, ZelleA1 zu ersetzen.
Leider bleibt das Makro immer in der vorletzten Zeile bei:
.Refresh BackgroundQuery:=False
hängen-
Wer kann helfen?
jensB
Sub Makro1()
' Makro1 Makro
' Makro am 20.06.2005 von Buckje aufgezeichnet
Dim a As String
a = Range("Tabelle2!a1")
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; a " _
, Destination:=Range("A1"))
.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 = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub