Excel - hinterlegte IP auslesen

Norman Bates

Hallo zusammen,

ich weiss die Titelbeschreibung ist sehr verwirrend. Ich hoffe ihr könnt mir trotzdem helfen.

Was ich vorhabe:

Ich kopiere von einer Intranet Seite IP Adressen inkl Link.

Den kopierten Text füge ich in Excel ein um diesen später gegen andere IP Adressen zu vergleichen.

Mein Problem:

hinter dem kopierten Text ist nicht die IP sondern folgender Code: http:// ...... ...... ..... /cgi-bin/status.cgi?host=Beschreibung&style=detail.

Die IP ist erst sichbart wenn ich mit der Maus drauf gehe, nicht klicke.

So sieht das dann in Excel aus.

Vielen Dank für eure Hilfe

Gruß

Norman

**BugFix**

Zitat von Norman Bates

Ich kopiere von einer Intranet Seite IP Adressen inkl Link.

Das ist der falsche Weg. So, wie du es beschreibst, fügst du einen Hyperlink mit Quickinfo ein. Quickinfo ist dann die IP.

WAS markierst du denn zum kopieren? kannst du da die IP im Text (oder auch nur als Quickinfo) sehen?

Probiere doch mal unformatiertes Einfügen (Strg+Shift+V).

Norman Bates

Zitat von BugFix

WAS markierst du denn zum kopieren?

So wie es in Excel einfüge, markiere ich es und kopiere es.

Schade ich dachte es gibt vielleicht eine Möglichkeit.

**BugFix**

WAS markierst du??

Steht dort: 17.100.140.172 oder http:// ...... ...... ..... /cgi-bin/status.cgi?host=Beschreibung&style=detail ?

**Andy**

Hi,

Zitat von Norman Bates

So wie es in Excel einfüge,

Excel bietet mindestens 2-3 Handvoll Möglichkeiten, etwas "Einzufügen".

https://support.office.com/de-de/article/kopieren-und-einfügen-spezifischer-zellinhalte-a956b1c3-cd5a-4245-852c-42e8f83ffe71

Rechtsklick auf die Zelle und "Einfügen" dann "Werte" fügt idR. den reinen kopierten Text in die Zelle/Bereich ein .

**BugFix**

Mit folgendem Makro kannst du auf einen Rutsch alle Einträge mit deren Quick-Infos (IP's) ersetzen.

C++

Sub replTxtWithQuick()
    Dim count As Integer
    Dim quick As String
        
    ' count hyperlinks
    count = 0
    For Each Link In ActiveSheet.Hyperlinks
        count = count + 1
    Next
    
    ' replace text with quick info
    For i = 1 To count
        quick = ActiveSheet.Hyperlinks(i).ScreenTip
        If quick <> "" Then
            ActiveSheet.Hyperlinks(i).TextToDisplay = quick
        End If
    Next
End Sub

Alles anzeigen

Norman Bates

Zitat von BugFix

WAS markierst du??
Steht dort: 17.100.140.172 oder http:// ...... ...... ..... /cgi-bin/status.cgi?host=Beschreibung&style=detail ?

Da steht nur „Beschreibung „ als Link.

Wenn auch da mit der Maus drauf gehe steht dann als Quickinfo die IP.

In den Eigenschaften von Beschreibung steht dann die URL http://....

Norman Bates

Zitat von Andy

Hi,
Excel bietet mindestens 2-3 Handvoll Möglichkeiten, etwas "Einzufügen".
https://support.office.com/de-de/article/kopieren-und-einfügen-spezifischer-zellinhalte-a956b1c3-cd5a-4245-852c-42e8f83ffe71
Rechtsklick auf die Zelle und "Einfügen" dann "Werte" fügt idR. den reinen kopierten Text in die Zelle/Bereich ein .

Alles schon probiert.

Das Problem ist, dass die iP nicht in der URL steht, sonst wäre das kein Problem.

**BugFix**

Hast du mein Makro getestet? Die IP erscheint in deinem Excel als QuickTip. Das Makro ersetzt den Text der Zelle mit dessen QuickTip - also der IP. - Das ist doch, was du wolltest.

Norman Bates

Zitat von BugFix

Hast du mein Makro getestet? Die IP erscheint in deinem Excel als QuickTip. Das Makro ersetzt den Text der Zelle mit dessen QuickTip - also der IP. - Das ist doch, was du wolltest.

Hab' es gerade getestet. Funktioniert 1A … Vielen Dank

Gruß

Norman