HERBERS Excel-Forum - die Beispiele

Thema: Internet-Prüfung, ob Domaines noch verfügbar sind

Home

Gruppe

Extern

Problem

Es soll geprüft werden, ob die in Spalte A gelisteten Domaines noch verfügbar sind.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub AdressePruefen()
   Dim iRow As Integer
   Dim sTxt As String
   For iRow = 1 To 6
      sTxt = MessageLaden("http://www.ripe.net/perl/whois?query=" _
         & Cells(iRow, 1) & "&.submit=Anfrage+senden")
      If InStr(sTxt, "descr:       ") Then
         sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, "descr:       ") - 12)
         sTxt = Left(sTxt, InStr(sTxt, "descr:       ") - 1)
         sTxt = WorksheetFunction.Clean(sTxt)
      Else
         sTxt = "Noch frei"
      End If
      If sTxt = "" Then sTxt = "Noch frei"
      Cells(iRow, 2) = sTxt
   Next iRow
   MsgBox "Bin fertig!"
End Sub

Function MessageLaden(URL As String) As String
   Dim IEApp As Object
   Dim IEDocument As Object
   Dim i As Long
   Set IEApp = CreateObject("InternetExplorer.Application")
   IEApp.Visible = False
   IEApp.Navigate URL
   Do: Loop Until IEApp.Busy = False
   Do: Loop Until IEApp.Busy = False
   Set IEDocument = IEApp.Document
   MessageLaden = IEDocument.Body.innerText
   IEApp.Quit
   Set IEDocument = Nothing
   Set IEApp = Nothing
End Function

Beiträge aus dem Excel-Forum zu den Themen Extern und Internet

Text aus Zelle in Internet Seite Dateiname externer Datei ändern
internet explorer per handle in Objekt umwandeln Tabellenblatt aus externer Exceldatei kopieren
InternetExplorer Object ConboBox mit externe Daten füllen
Einfügen aus Internet-Seite Absturz Excel bei Internet-Absturz
Wert in externer Datei suchen Aufruf externer Programme
Internetdienst mit Makro ausführen Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Pivot mit Externer DB am Limit?
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen Download aus dem Internet Teil2
Externe Datenquelle via VBA Einfügen aus Internet 10²
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
Datei aus dem Internet runterladen XLB Auswirkung auf Internet Explorer
Excel standard Symbolleiste im Internet Explorer *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen internet frage zum RFC
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Externe Verknüpfung finden
Datei im Internet bearbeiten externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Internetseite Markieren u. in Tabellenb. kopieren Zeitanzeige auf USF wenn ein externes Progr. läut