Office: (Office 2013) ausgelesene Pfadnamen in Hyperlinks wandeln

Helfe beim Thema ausgelesene Pfadnamen in Hyperlinks wandeln in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, Ich nutze folgenden Code um ausgelesene Pfadnamen in Hyperlinks umzuwandeln. Leider bricht das Makro genau nach 32767 Zeilen ab. Fehlermeldung... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von frisys, 26. Februar 2020.

  1. ausgelesene Pfadnamen in Hyperlinks wandeln


    Hallo,

    Ich nutze folgenden Code um ausgelesene Pfadnamen in Hyperlinks umzuwandeln. Leider bricht das Makro genau nach 32767 Zeilen ab. Fehlermeldung 1004. Die Liste der Pfadnamen meinem Tabellenblatt hat allerdings ca. 70.000 Zeilen. Ich nutze folgenden Code:

    Sub DateienInHyperlinksWandeln()
    Dim Bereich As Range
    Dim Zelle As Range
    Range("A2").Select
    Set Bereich = ActiveCell.CurrentRegion
    For Each Zelle In Bereich
    Zelle.Hyperlinks.Add Zelle, Zelle.Value
    Next Zelle
    End Sub

    Habt ihr einen Tipp für mich wie ich das Range Object anpassen muss?

    Danke und Gruß
    Marcus

    :)
     
  2. Hallo,

    da gibt es dann irgendwo eine Integer-Variable in deinem Quelltext, ändere die auf Long, dann geht es.
     
    Klaus-Dieter, 28. Februar 2020
    #2
  3. Hi Marcus.
    ist das der gesamte Code? Die Zahl 32767 hört sich verdächtig nach einer Variablen an, die als Integer deklariert ist und eigentlich ein Long sein müsste.

    Wenn das der ganze Code ist, lade doch mal eine Beispieldatei hoch, damit man sich das mal ansehen kann.
     
    ReginaR, 28. Februar 2020
    #3
  4. ausgelesene Pfadnamen in Hyperlinks wandeln

  5. Dann teile den Bereich doch in 2*32767 Zeilen.
    (und 996)
    Für die restlichen 3.450 Hyperlinks musst Du Dir was ausdenken …
     
    Zuletzt von einem Moderator bearbeitet: 9. Februar 2021
  6. 'Start der Routine: Call MWDateienMitUnterordnernAuslesen

    Public Sub MWDateienMitUnterordnernAuslesen()
    Set oSheet = Sheets.Add
    oSheet.Activate
    oSheet.Cells(1, 1).Select
    Call CreateHeadLinesAndFormat
    lRowCounter = 2
    Call MWReadSubFolder(sRootPath)
    Call DateienInHyperlinksWandeln
    Set oSheet = Nothing
    End Sub

    Private Sub CreateHeadLinesAndFormat()
    Dim i As Long

    oSheet.Cells(1, 1) = "Pfad"
    oSheet.Cells(1, 2) = "Dateiname"
    oSheet.Columns(1).ColumnWidth = 40
    oSheet.Columns(2).ColumnWidth = 20

    For i = 1 To 2
    With oSheet
    .Cells(1, i).Interior.ColorIndex = 11
    .Cells(1, i).Font.Color = vbWhite
    .Cells(1, i).Font.Bold = True
    End With
    Next i
    End Sub

    Private Sub MWReadSubFolder(ByVal sPath As String)
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oSubFolder As Object
    Dim oFile As Object
    Dim Zelle As Range

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.getfolder(sPath)

    With oSheet

    For Each oSubFolder In oFolder.SubFolders

    'Alle Dateien auflisten
    For Each oFile In oSubFolder.Files
    .Cells(lRowCounter, 1) = oSubFolder.Path
    .Cells(lRowCounter, 1).Hyperlinks.Add .Cells(lRowCounter, 1), oSubFolder.Path
    .Cells(lRowCounter, 2) = oFile.Name
    .Cells(lRowCounter, 2).Hyperlinks.Add .Cells(lRowCounter, 2), oSubFolder.Path & "" & oFile.Name
    lRowCounter = lRowCounter + 1
    Next oFile

    'Alle Unterverzeichnisse verarbeiten (rekursiv)
    Call MWReadSubFolder(oSubFolder.Path)

    Next oSubFolder

    End With

    Set oFSO = Nothing
    Set oFile = Nothing
    Set oFolder = Nothing
    Set oSubFolder = Nothing

    End Sub

    Sub DateienInHyperlinksWandeln()
    Dim Bereich As Range
    Dim Zelle As Range
    Range("A2").Select
    Set Bereich = ActiveCell.CurrentRegion
    For Each Zelle In Bereich
    Zelle.Hyperlinks.Add Zelle, Zelle.Value
    Next Zelle
    End Sub


    Danke für die Unterstützung!!
     
  7. ... kann da so auch nichts entdecken, was den Fehler auslösen könnte.
    hast Du mal im Direktfenster eingegeben:

    ActiveCell.CurrentRegion.Select

    Vielleicht "erkennt" der Code aus welchem Grund auch immer nicht alles als "CurrentRegion"
     
    ReginaR, 28. Februar 2020
    #7
  8. ausgelesene Pfadnamen in Hyperlinks wandeln

    Hallo Regina,

    habe in der SUB Hyperlink umwandeln ActiveCell.CurrentRegion.Select gesetzt.

    Hat leider nichts genützt, stürzt immernoch bei 32767 ab.

    Grüße,
    Marcus
     
  9. ... in der Sub habe ich nicht gemeint, sondern einmal im Direktfenster (Menü "Ansicht", "Direktfenster).
    Dort einmal Range("A1").CurrentRegion.Select eingeben und mit Enter bestätigen.
    Was wird markiert?
     
    ReginaR, 28. Februar 2020
    #9
  10. Hallo,

    der Hyperlink hat noch ein zweites Limit !!!

    Es können nur 255 Zeichen verarbeitet werden ... vielleicht ist ja der Pfad länger ... soll ja vorkommen ... *Smilie

    Sabina
     
    Flotter Feger, 28. Februar 2020
    #10
  11. Dezent auf analytics hingewiesen ?
     
  12. Hallo Regina,

    Ich habe Englisch als Systemsprache an. Ich denke Du meinst das Direktfenster ctlr+ G? Wenn ich da Range("A1").CurrentRegion.Select eingebe und mit Enter bestätige tut sich nichts.

    Bin ich da falsch?

    Grüße
    Marcus
     
  13. ausgelesene Pfadnamen in Hyperlinks wandeln

    Hi Marcus,
    im Direktfenster kannst Du Befehle absetzen, die sich dann auf die Excel-Ebene auswirken. D.h.:
    Aktiviere das Tabellenblatt auf dem Deine Werte stehen
    Gib im direktfenster den Code ein und bestätige mit Enter
    Wechsel zurück zu Excel: Was ist dort jetzt markiert?
     
  14. Hi Regina,

    Es werden die Spalten A & B bis zur Zeile 32767 markiert
     
  15. ok, dann wird der Rest nicht als CurrentRegion erkannt. Was mich irritiert ist der Laufzeitfehler ...
    Kannst Du die Datei mit den Pfadangaben mal hochladen?
     
Thema:

ausgelesene Pfadnamen in Hyperlinks wandeln

Die Seite wird geladen...
  1. ausgelesene Pfadnamen in Hyperlinks wandeln - Similar Threads - ausgelesene Pfadnamen Hyperlinks

  2. Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

    in Microsoft Access Hilfe
    Inhalt eines Hyperlink Feldes in ein Textfeld kopieren: Hallo, kurz vorweg, GRUNDkenntnisse sind ein paar vorhanden, VBA-Kenntnisse sind nicht vorhanden. Ich habe eine DB zum verwalten meiner Dokumente. In einem Endlosformular erzeuge ich mit Hilfe...
  3. Word Hyperlinks (nicht unterstrichen) in der Fusszeile

    in Microsoft Word Hilfe
    Word Hyperlinks (nicht unterstrichen) in der Fusszeile: Hallo Forum! Ich habe ein Problem mit Erstellen von Hyperlinks in einer Adresszeile in der Fussleiste. Das Problem ist, der Kunde will, dass die Links (Telefon, Mail, Domain) nicht unterstrichen...
  4. Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.

    in Microsoft Word Hilfe
    Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.: Hallo zusammen Ich stehe vor einem Problem in Microsoft Word. Wenn ich auf einen Hyperlink klicke, wird mir die korrekte Freigabe im Google Drive nicht angezeigt. Jedoch, wenn ich den Hyperlink...
  5. Variabler Pfadname bei pdf-Erstellung mit free pdf in excel2010

    in Microsoft Excel Hilfe
    Variabler Pfadname bei pdf-Erstellung mit free pdf in excel2010: Hallo, ich habe ein Problem bei der Erstellung von pdf-Dateien aus Excel heraus mit free pdf. Prinzipiell funktionert alles, wenn ich die Laufwerkspfade explizit benenne. Mit relativen...
  6. Wo kann ich den Pfadnamen ändern

    in Microsoft Excel Hilfe
    Wo kann ich den Pfadnamen ändern: Hallo, ich habe folgende Problem: bin umgestiegen von Excel 2010 auf 2019. Habe die alte "PERSONL-Datei" in den neuen XLSTART kopiert. Leider gibt das Programm mir den alten Pfadnamen an der nicht...
  7. Outlook 2010 - Kontakte werden falsch ausgelesen

    in Microsoft Outlook Hilfe
    Outlook 2010 - Kontakte werden falsch ausgelesen: Nach einem Trojaner-Problem habe ich mein System WIN7/Office2010 neu ausgesetzt. Ich arbeite im Outlook mit drei pst-Dateien - zwei für Emailkonten und eine pst aus alten Zeiten (97-2002) mit den...
  8. Leerzeichen im Pfadnamen beim speichern

    in Microsoft Excel Hilfe
    Leerzeichen im Pfadnamen beim speichern: Ich habe ein Problem beim speichern einer Datei da sich im Pfadnamen leerzeichen befinden ich habe versucht aber immer wieder bekomme ich ein " zuviel oder der String wird falsch kann mir da...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden