Aus WEB kopieren Walter Hallo Freunde, ich benötige wieder einmal Hilfe in VBA Ich habe ein Liste der Länder der Erde in die die Hauptstädte eingetragen werden sollen. https://www.herber.de/bbs/user/77649.xls Danke für die Hilfe Gruß Walter
Aus WEB kopieren 24.11.2011 18:14:14 Anton Hallo Walter, probier sowas: Code: Sub Laender() Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True With Tabelle2 For i = 2 To .UsedRange.Rows.Count IEApp.Navigate .Cells(i, 1).Hyperlinks(1).Address Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Set IEDocument = IEApp.Document Do: Loop Until IEDocument.ReadyState = "complete" For Each all In IEDocument.all If LCase(all.nodename) = "table" Then If all.Rows.Length > 15 Then .Cells(i, 2) = all.Rows(0).Cells(1, 1).innertext .Cells(i, 3) = all.Rows(1).Cells(1, 1).innertext .Cells(i, 4) = all.Rows(4).Cells(1, 1).innertext .Cells(i, 5) = all.Rows(7).Cells(1, 1).innertext End If End If Next Set IEDocument = Nothing Next End With End Sub mfg Anton Anzeige
AW: Aus WEB kopieren 24.11.2011 18:25:47 Walter Hallo Anton, Ich erhalte: Fehler, Variable nicht definiert! Liegt der Fehler bei mir? Gruß Walter
Option Explicit 24.11.2011 18:37:32 Anton Hallo Walter, entweder du löschst die Zeile Option Explicit, oder du definierst alle Variablen im Code. Etwa so:Dim IEApp As Object usw. mfg Anton
AW: Option Explicit 24.11.2011 18:56:36 Walter Hallo Anton, Danke für den Hinweis, leider habe ich von VBA null Ahnung. Würde mich freuen wenn Du es einbauen könntest. Danke Walter
AW: Option Explicit 24.11.2011 20:35:07 Anton Hallo Walter, https://www.herber.de/bbs/user/77657.xls mfg Anton
AW: Option Explicit 24.11.2011 22:44:54 Walter Danke Anton, Mein Enkel und ich werden Dich in unserem Nachtgebet mit einschließen Danke Rentner Walter Anzeige