Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

IP-Adresse

IP-Adresse
04.03.2007 14:10:00
Timo
Hallo Zusammen,
Gibt es eine Möglichkeit die öffentliche IP-Adresse also nicht die des Rechners in eine Excel Tabelle schreiben zu lassen? Ich meine die IP-Adresse, die man z.B auch unter http://www.wie-ist-meine-ip.net/ angezeigt bekommt.
Gruß Timbo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IP-Adresse
04.03.2007 15:18:19
Anton
Hallo Timo,
versuch's damit:

Sub ip_adresse()
  On Error Resume Next    
  Dim Start As Date  
  Dim IEApp As Object  
  Dim IEDocument As Object    
  Dim strURL As String  
  Set IEApp = CreateObject("InternetExplorer.Application")  
  IEApp.Visible = False
  IEApp.Navigate "http://www.wie-ist-meine-ip.net/&quot ;
  Start = Now
  Do: Loop Until IEApp.Busy = False    
  Do: Loop Until IEApp.Busy = False    
  Set IEDocument = IEApp.Document  
 
  strTeile = Split(IEDocument.Body.innerText, vbCrLf)
  For i = LBound(strTeile) To UBound(strTeile)  
    If InStr(1, strTeile(i), "Deine aktuelle IP:", vbTextCompare) > 0 Then  
     'öffentliche IP-Adresse
      Cells(1, 1).Value = Mid(strTeile(i), 19, 15)
    End If  
  Next
  IEApp.Quit
  Set IEDocument = Nothing  
  Set IEApp = Nothing  
End Sub  

mfg Anton
Anzeige
AW: IP-Adresse
04.03.2007 15:28:01
Timo
Super Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige