Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Laufzeitfehler 7; nicht genügend Speicher
zurück: Nicht an ein Dokument gebund. Code (wirklich globaler Code) weiter: Hilfe! Erzeugen von Sheets und Zeilen per Knopfdruck Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Range
Gast


Verfasst am:
30. Sep 2010, 17:09
Rufname:


Laufzeitfehler 7; nicht genügend Speicher - Laufzeitfehler 7; nicht genügend Speicher

Nach oben
       Version: Office 2007

Hallo zusammen,
ich dachte eigentlich schon ich hätte es, dann das...

Ich habe folgenden Code:

Code:

Sub HLinkListe()

For i = 2 To 1705
    Dim altsv As String, neusv As String
    altsv = Workbooks("XXX").Sheets("XXX").Range("A" & i).Value 'Einlesen alter Pfad
    neusv = Workbooks("XXX").Sheets("XXX)").Range("B" & i).Value 'Einlesen neuer Pfad
    Dim hlk As Hyperlink
   
Application.ScreenUpdating = False

    For Each hlk In ActiveSheet.Hyperlinks 'Tabelle anpassen !
        hlk.Address = Replace(hlk.Address, altsv, neusv, , , vbTextCompare)
        If Left(hlk.Address, 25) = "Verzeichnis wird gelöscht" Or Left(hlk.Address, 16) = "Projektarchiv" Then
        hlk.Range.Interior.ColorIndex = 3
        Else: hlk.Range.Interior.ColorIndex = 10
        End If
    Next
    'Einfaches Search'n'Replace
    Cells.Replace What:=altsv, Replacement:= _
        neusv, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
        :=False, SearchFormat:=False, ReplaceFormat:=False
Next i
Application.ScreenUpdating = True
End Sub


Dabei Tritt der Fehler in dieser Zeile auf nachdem ich sie folgendermaßen geändert habe:

Code:

hlk.Address = Replace(hlk.Address, altsv, neusv)
-->
hlk.Address = Replace(hlk.Address, altsv, neusv, , , vbTextCompare)


Ich habe das gemacht, da die Server & Links in Groß- & Kleinschreibung nciht übereinstimmen...

Hat jemand ne Idee wie ich dem Fehler begegnen könnte?

VG,
M
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum