dim oExcel as object
dim i as integer
dim sHost as string
dim nIP as long
 
set oexcel = CreateObject("Excel.Application")
 
'Noch deine Datei öffnen
 
i = 1
 
do while not oexcel.range("I" & i) = ""
 
        shost = oexcel.range("I" & i)
        nIP = GetHostByName(shost)
        if nIP > 0 And cstr(nIP) = oexcel.range("H" & i)  then
                       oexcel.range("L" & I) = X
       else
                      oexcel.range("L" & I) = X
       end if
 
loop

Private Declare Function gethostbyname Lib "WSOCK32.DLL" _
        (ByVal HostName As String) As Long