1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Word/Excel: Alle Hyperlinks entfernen

Discussion in 'Ihre Meinung zu Artikeln auf pcwelt.de' started by TBaer, May 13, 2004.

Thread Status:
Not open for further replies.
  1. GMS

    GMS ROM

    Hallo PC-Welt.
    Mich hat es genervt jeden Hyperlink in Excel 2002 einzeln zu entfernen, also hab ich in der Hilfe nachgesehen.

    >>klugscheiss ON<<
    Man muß in eine leere Zelle eine 1 eingeben, die Zelle kopieren,
    alle Hyperlinks markieren, -> Inhalte einfügen ->
    MULTIPLIZIEREN auswählen -> OK -- feddisch.
    >>klugscheiss OFF<<

    :kaffee: :jump: :auslach: :wink:

    schön'n Ahmd noch

    P.S. Ich find eure Smilies suuuuper !!!
     
    GMS, May 13, 2004
    #1
  2. TBaer

    TBaer ROM

    Das geht aber nur für markierte Zellen. Mit dieser Lösung kann man alle Hyperlinks löschen:

    Sub HyperlinkWeg()
    Dim cell As Object
    For Each cell In Selection.Cells
    With cell
    If .Hyperlinks.Count > 0 Then
    .Hyperlinks.Delete
    With .Font
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    End With
    End If
    End With
    Next
    End Sub

    :) :) :) :) :) :) Tbaer
     
    TBaer, May 13, 2004
    #2
  3. Wilder Bulle

    Wilder Bulle ROM

    Leider kann man nach Erstellen der Personl.xls im XLstart kein Excel ohne Startmappe Personl.xls mehr starten. Der Parameter /e scheint wirkungslos zu sein.
     
    Wilder Bulle, Jul 23, 2005
    #3
  4. Cheyenne61

    Cheyenne61 Byte

    Hallo,

    nach dem Text zu urteilen........
    stellen die Word- und Excel-Versionen 97 bis 2003 standardmäßig als aktiven Hyperlink dar​
    dachte ich es würde auch in Word2003 gehen.

    Ergebnis:

    "Dieses Makro läuft nur unter Word 97 oder 2000"

    Ich vermisse bei den Tipps des öfteren für welche Versionen sie gültig sind.

    Gruß
    Andrea
     
    Cheyenne61, Aug 8, 2005
    #4
  5. taurus7050

    taurus7050 Byte

    Die Info ist ja vorhanden: PCW behauptet, die Makros liefen auch unter Word XP und 2003 - aber genau das trifft leider nicht zu, und die Redaktion kümmert sich nicht drum, obwohl sie schon einige Male auf das Problem hingewiesen wurde.
     
    taurus7050, Aug 22, 2006
    #5
  6. taurus7050

    taurus7050 Byte

    Klappt zwar, aber leider bleibt Excel 2003 nach Ausführung des Makros hängen.
     
    taurus7050, Aug 22, 2006
    #6
  7. ebelix

    ebelix ROM

    Versucht es doch einfach mal so:

    1. Kopiere dir deine Werte
    2. Markiere die Stelle, an der du sie einfügen willst
    3. Bearbeiten --> Inhalte einfügen
    4. "Werte" auswählen.

    Noch ein Hinweis, weil auch öfter gebraucht: Hyperlinks aus dem Text ziehen in die andere Spalte:

    Function GetAddress(HyperlinkCell As Range)
    GetAddress = Replace _
    (HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
    End Function

    Alt+F11 und Einfügen>Module und Code einfügen. Alt+Q und sichern. Die Funktion ist zu finden unter "benutzerdefiniert" in der Dialogbox (Shift+F3). Die Funktion in jeder Zelle benutzen wie unten angegeben.
    =GetAddress(A1) Wo z.B. Zelle A1 einen Hyperlink hat.

    Wissen ist Macht, macht aber nichts.:ironie:
     
    ebelix, Mar 2, 2007
    #7
Thread Status:
Not open for further replies.

Share This Page