Code auf 64bit aktualisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub machHyperlinksNurEingeblendete() Dim lZeile As Long, lLetzteZeile As Long Dim strWurzel As String, strVerzeichnis As String 'Wurzelverzeichnis festlegen strWurzel = ActiveWorkbook.Path & "\" '"C:\Users\papa\Desktop\" 'Verweis auf Tabellenblatt (evtl. anzupassen) With ActiveSheet 'Letzte benutzte Zeile ermitteln lLetzteZeile = .Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row 'Schleife über alle Zeilen (unabhängig, ob ausgeblendet, oder nicht) For lZeile = 7 To lLetzteZeile 'Nur eingeblendete Zeilen If Not .Rows(lZeile).Hidden Then 'Verzeichnis, das angelegt werden soll strVerzeichnis = CStr(.Cells(lZeile, 1).Value) 'Pfad anlegen If MakePath(strWurzel & strVerzeichnis & "\") Then 'Hyperlink anlegen ActiveSheet.Hyperlinks.Add Anchor:=.Cells(lZeile, 1), _ Address:=strWurzel & strVerzeichnis, _ ScreenTip:="Öffne " & strVerzeichnis, _ TextToDisplay:=strVerzeichnis End If End If Next End With End Sub

habe ich irgendeine chance diesen Code zum laufen zu bekommen?


Option Explicit
Declare PtrSafe Function apiCreateFullPath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long
Sub machHyperlinksNurEingeblendete()
Dim lZeile As Long, lLetzteZeile As Long
Dim strWurzel As String, strVerzeichnis As String
'Wurzelverzeichnis festlegen
strWurzel = ActiveWorkbook.Path & "\"  '"C:\Users\papa\Desktop\"
'Verweis auf Tabellenblatt (evtl. anzupassen)
With ActiveSheet
'Letzte benutzte Zeile ermitteln
lLetzteZeile = .Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row
'Schleife über alle Zeilen (unabhängig, ob ausgeblendet, oder nicht)
For lZeile = 7 To lLetzteZeile
'Nur eingeblendete Zeilen
If Not .Rows(lZeile).Hidden Then
'Verzeichnis, das angelegt werden soll
strVerzeichnis = CStr(.Cells(lZeile, 1).Value)
'Pfad anlegen
If MakePath(strWurzel & strVerzeichnis & "\") Then
'Hyperlink anlegen
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(lZeile, 1), _
Address:=strWurzel & strVerzeichnis, _
ScreenTip:="Öffne " & strVerzeichnis, _
TextToDisplay:=strVerzeichnis
End If
End If
Next
End With
End Sub

jetzt mault er noch bei der Zeile if makepath usw. selbst wenn ich die durch MakeSureDirectoryPathExists ersetze:
kommt die Meldung fehler beim komilieren - sub oder function nicht definiert

Hallo Markus,
teste mal:

Option Explicit

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal lpPath As String) As Long

Sub machHyperlinksNurEingeblendete()
    Dim lZeile As Long, lLetzteZeile As Long
    Dim strWurzel As String, strVerzeichnis As String

    'Wurzelverzeichnis festlegen
    strWurzel = ActiveWorkbook.Path & "\" '"C:\Users\papa\Desktop\"

    'Verweis auf Tabellenblatt (evtl. anzupassen)
    With ActiveSheet

        'Letzte benutzte Zeile ermitteln
        lLetzteZeile = .Columns(1).Find("*", , , , xlByRows, xlPrevious).Row

        'Schleife über alle Zeilen (unabhängig, ob ausgeblendet, oder nicht)
        For lZeile = 7 To lLetzteZeile

            'Nur eingeblendete Zeilen
            If Not .Rows(lZeile).Hidden Then

                'Verzeichnis, das angelegt werden soll
                strVerzeichnis = CStr(.Cells(lZeile, 1).Value)

                'Pfad anlegen
                If MakeSureDirectoryPathExists(strWurzel & strVerzeichnis & "\") Then

                    'Hyperlink anlegen
                    .Hyperlinks.Add Anchor:=.Cells(lZeile, 1), _
                        Address:=strWurzel & strVerzeichnis, _
                        ScreenTip:="Öffne " & strVerzeichnis, _
                        TextToDisplay:=strVerzeichnis
                End If
            End If
        Next

    End With
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

89 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code auf 64bit aktualisieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

89 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread