habe hier schon einen anderen Beitrag gefunden aber der hilft mir aufgrund meiner Unwissenheit nicht weiter
möchte diese Seite plus ff in Excel ziehen und am liebsten schon aufbereitet empfangen
http://www.brancheninfo.de/index.php?branche=ELEKTRO…
ich kann´s zwar Seite für Seite mit der Webabfrage aber wenn ich so lese gibt es ja auch simplerer Wege,
vielleicht?
ist das machbar?
Vielen Dank im Voraus
Hallo JohnWho,
damit habe ich mich noch nicht beschäftigt und kann leider keine sinnvollen Tipps gaben.
Gruß Hugo
Moin,
sorry keine Ahnung und auch gerade keine Zeit, ich hoffe, dass dir jemand anders helfen kann.
BTW was für einen Beitrag hast du denn gefunden?
Gruß
Patrick
Hallo JohnWho,
ich bin da nicht im Thema, weiß auch nicht, was du mit „Webabfrage“ meinst. Sorry!
Aber wenn du schon eine Möglichkeit für die erste Seite gefunden hast, brauchst du das ganze ja nur in eine For…Next- Schleife einbinden, die die letzte 0 raufzählt.
Gruß
Natator
Hi Patrick
trotzdem danke
www.wer-weiss-was.de/theme156/article6764940.html
hier hatte man eine wahrscheinich sogar schwierigere Aufgabe gelöst.
hab schon hin und her probiert aber aufgrund meiner Unwissenheit bekomm ich das nicht für meine Zwecke modifiziert
moin,
für die antwort werde ich zeit brauchen, denn das ist ein großes thema, aber macht sicher auch spaß. ich bitte noch um geduld.
vielleicht/hoffentlich ist jemand schneller als ich …
Hallo JohnWho,
mein Versuch hier irgendetwas zu automatisieren scheiterte. Die Seite ist verständlicher Weise auch so konfiguriert, das ein aufbereitetes auslesen nicht ohne weiteres möglich ist.
Bei mir kamen in Excel bei dem Versuch direkt die Seiten mit den Trefferlisten einzulesen jede Menge Skriptfehler.
Insoweit kann ich hier leider nicht weiter helfen.
Gruß
Franz
Sub webabfrage()
url = „URL;http://www.brancheninfo.de/index.php“
url = url + „?branche=ELEKTROtechnik&name=&strasse=&plz=&ort=“
url = url + „&branchen_id=&search=2&page=“
Set ziel = Worksheets(„Tabelle1“).Cells(1, 1)
On Error Resume Next
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Worksheets(„scratch“).Delete
Worksheets.Add.Name = „scratch“
With Worksheets(„scratch“)
With ActiveSheet.QueryTables.Add(Connection:=url + „0“, Destination:=.Range(„A1“))
.Name = „webabfrage“
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.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
For seite = 1 To 1000
Application.StatusBar = seite
.Find(„TOP“, MatchCase:=True).Value = „ELEKTROTECHNIK“
With .Cells
Set anfang = .Find(„ELEKTROTECHNIK“, MatchCase:=True)
For zeile = 1 To 20
Set ende = .FindNext(after:=anfang)
If ende.Row
unglaublich!!
super vielen Dank
über das lob habe ich mich sehr gefreut!
da habe ich gleich noch einen fehler beim error-handling gefunden, sodaß zeilen fehlen.
hier die korrektur:
Sub webabfrage()
url = „URL;http://www.brancheninfo.de/index.php“
url = url + „?branche=ELEKTROtechnik&name=&strasse=&plz=&ort=“
url = url + „&branchen_id=&search=2&page=“
Set ziel = Worksheets(„Tabelle1“).Cells(1, 1)
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
On Error Resume Next
Worksheets(„scratch“).Delete
On Error GoTo 0
Worksheets.Add.Name = „scratch“
With Worksheets(„scratch“)
With ActiveSheet.QueryTables.Add(Connection:=url + „0“, Destination:=.Range(„A1“))
.Name = „webabfrage“
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.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
For seite = 1 To 1000
Application.StatusBar = seite
With .Cells
On Error Resume Next
.Find(„TOP“, MatchCase:=True).Value = „ELEKTROTECHNIK“
If Err.Number = 91 Then .Find(„ANZEIGEN“).Value = „ELEKTROTECHNIK“
On Error GoTo 0
Set anfang = .Find(„ELEKTROTECHNIK“, MatchCase:=True)
For zeile = 1 To 20
Set ende = .FindNext(After:=anfang)
If ende.Row
Habe das leider bisher noch nicht gemacht
hallo
Mache doch einfachheitshalber, wenn Du nicht so draus kommst, einfach eine Linkliste, oder erstelle ein Dokument mit Text und dem jeweiligen Links. Grüsse Sebastian
Hallo,
das ist ja der Hammer. Genau sowas suche ich auch.
Bekomme das leider selber nicht hin.
Ist hier noch jemand, der sowas programmieren kann?
Ich brauche genau so eine Excel-Liste für folgende Webseite:
http://www.ortsdienst.de/Suche?Text=feuerwehr
Da sind ca. 11000 Adressen, die ausgelsen werden sollen.
Wäre sehr dankbar, wenn jemand das kann.
LG
Andi