|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2006 23:46:16 |
Spindoctor |
|
|
|
13.06.2006 09:03:48 |
Rasta |
|
|
|
13.06.2006 10:50:46 |
Spindoctor |
|
|
|
13.06.2006 15:08:49 |
Rasta |
|
|
 Aw:Aw:Aw:Aw:google hits - Webabfrage |
13.06.2006 16:46:42 |
Spindoctor |
|
|
|
14.06.2006 08:54:18 |
Rasta |
|
|
|
14.06.2006 13:18:14 |
Spindoctor |
|
|
|
15.06.2006 07:13:18 |
Rasta |
|
|
Von:
Spindoctor |
Datum:
13.06.2006 16:46:42 |
Views:
1138 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:google hits - Webabfrage |
Hallo Rasta!
Hab einen Tipp bekommen, und den Code jetzt so verändert:
On Error GoTo QryTableError
With ActiveSheet.QueryTables.Add(Connection:=Range("B1").Value, Destination:=Range("C1"))
.Name = "search?hl=de&q=haus&meta="
.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 = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
' .WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Exit Sub
Jetzt funktioniert es.
Mein nächstes Problem ist, dass ich jetzt eine Schleife brauche, damit dieser Code in allen Zeilen A bis XY ausgeführt wird, und erst stoppt, wenn kein Wert mehr in der Zelle XY1 steht.
Kannst Du mir dabei helfen? |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2006 23:46:16 |
Spindoctor |
|
|
|
13.06.2006 09:03:48 |
Rasta |
|
|
|
13.06.2006 10:50:46 |
Spindoctor |
|
|
|
13.06.2006 15:08:49 |
Rasta |
|
|
Aw:Aw:Aw:Aw:google hits - Webabfrage |
13.06.2006 16:46:42 |
Spindoctor |
|
|
|
14.06.2006 08:54:18 |
Rasta |
|
|
|
14.06.2006 13:18:14 |
Spindoctor |
|
|
|
15.06.2006 07:13:18 |
Rasta |
|
|