Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  VBasic / vb.net / vbs / wsh
  Hyperlinks ersetzen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Hyperlinks ersetzen (482 mal gelesen)
nebuCADnezzar
Mitglied



Sehen Sie sich das Profil von nebuCADnezzar an!   Senden Sie eine Private Message an nebuCADnezzar  Schreiben Sie einen Gästebucheintrag für nebuCADnezzar

Beiträge: 262
Registriert: 17.10.2007

AutoCAD 2021
Inventor 2021
64 bit Win 10
Intel I7 2.8 GHz
Nvidia T500 4(15)GB
32 GB Ram

erstellt am: 08. Mrz. 2019 15:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen

Ich versuche gerade ne ganze Reihe Hyperlinks zu "suchen/ersetzen"
Dass hat eigentlich erstmal gut funktioniert. Nun hat sich die Zahl der links erhöht und nun hab ich das Problem "nicht genug Speicher"

Lustigerweise, hab ich zwei Codes um Pfade hin und her zu wechslen
der einte funktioniert der andere nicht mehr...

Wie Ihr seht hab ich mit meinen bescheidenen VBA Kenntnissen bereits versucht die Anzahl Zellen zu verkleinern in dem ich die Spalten anwähle, aber es hatte keine Wirkung...

Code:
Dim altsv As String, neusv As String
altsv = "\\chafg1.ads\dateneka" 'Groß / klei beachten  !!
neusv = "\\fs2009"
Dim hlk As Hyperlink
'For Each hlk In Sheets("Tabelle1").Hyperlinks 'Tabelle anpassen !
  For Each hlk In Sheets("Tabelle1").Range("F:F,G:G,H:H,I:I").Hyperlinks
    hlk.Address = Replace(hlk.Address, altsv, neusv)
Next
       
End Sub

Ich habe auch noch komplett andere Codes ausprobiert, da hat ich dann diverse laufzeitfehler oder sonstiges...

Kann man das in ne Schleife klemmen, mach Zeile für Zeile? Oder Spalte für Spalte?

Gruss und Schönes Wochenende
Robin

PS: Ich schreib auch den Text der Zelle um, hab versucht das Ding auf
Hyperlink.Replace umzubeuen, aber das klappte auch nicht...

Code:
    Cells.Replace What:="\\chafg1.ads\dateneka", Replacement:="\\fs2009", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False


------------------
"Wissenschaft ist entweder Physik oder Briefmarkensammeln"

Ernest Rutherford 1871-1937

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz