Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 339
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von t-w-j vom 10.08.2017, 08:19 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


wie kann ich eine Wort in einer Reihe von Hyperlinks ersetzen - normales suchen und ersetzen geht nicht

 (106 Hits)

Ich habe in einer Tabelle im Lauf der Zeit rd. 500 Hyperlinks auf Tabellen in einer anderen Datei angelegt. Jetzt habe ich den Namen der Grunddatei geändert. Kann ich die Hyperlinks wie mit suchen und ersetzten ändern (das direkt geht nicht)


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von Busmaster vom 10.08.2017, 08:27 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ich nutze dieses Makro:



Sub HyperlinkAdressChange()
    ' source http://www.ms-office-forum.net/forum/showthread.php?t=286276
    ' 2014-01-30 Stefan Baunack:
    ' Change analyse all hyperlinks in Workbook, Keyword: Roaming
    ' Input new string
    
    Dim hl As Hyperlink
    Dim ws As Worksheet
    Dim nNumFound As Long
    Dim sWSName, sRoamingString, sNewString, sMessage, sTitle As String
    
    sRoamingString = "AppData\Roaming\Microsoft\Excel"
    sNewString = "Documents\Buero"
    sTitle = "Enter new string for hyperlinks"      ' Set title
    sMessage = "Hyperlinks containing >Roaming< found." & vbCrLf & "Please enter new string for" & vbCrLf & sRoamingString     ' Set prompt.
    
    For Each ws In ActiveWorkbook.Worksheets        ' test: Roaming
        nNumFound = 0
        For Each hl In ws.Hyperlinks
            If InStr(hl.Address, "Roaming") > 0 Then nNumFound = nNumFound + 1
        Next
        If nNumFound = 0 Then
            MsgBox "No link  containing >Roaming< found.", vbOKOnly, "Worksheet >" & sWSName & "< checked"
            Exit Sub
        Else
            sNewString = InputBox(sMessage, sTitle)
            If Len(sNewString) = 0 Then Exit Sub
        End If
    Next

    For Each ws In ActiveWorkbook.Worksheets
        nNumFound = 0
        sWSName = ws.Name
        For Each hl In ws.Hyperlinks
            If InStr(hl.Address, "Roaming") > 0 Then
                nNumFound = nNumFound + 1
                hl.Address = Replace(hl.Address, sNewString, sRoamingString)
                ' Change text to diaplay also
                hl.TextToDisplay = Replace(hl.TextToDisplay, sNewString, sRoamingString)
            End If
        Next
        If nNumFound = 0 Then
            MsgBox "No link containing >Roaming< found.", vbOKOnly, "Worksheet >" & sWSName & "< checked"
        Else
            MsgBox nNumFound & "Link containing >Roaming< found.", vbOKOnly, "Worksheet >" & sWSName & "< checked"
        End If
    Next
End Sub


Antwort noch nicht bewertet




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Tue Oct 17 18:17:53 2017