Umwandlung einer Eingabe in Excel in einen Hyperlink

Hallo Claus,

dürfte ich dich noch einmal um deine Hilfe bitten? Das Klassenmakro zur Umwandlung der neunstelligen Projektnummer in einen Hyperlink funktioniert sehr gut und ich habe es seit einiger Zeit in Verwendung.

Wenn ich nun eine neue Zeile im Tabellenblatt einfüge, dann verursacht mir das Makro leider immer den folgenden Fehler:





Wenn ich den Debugger aufrufe, dann markiert er mir die nachstehende Zeile:





Ich vermute, dass das Makro in dieser Zeile nicht damit klarkommt, dass beim Einfügen einer leeren Tabellenblattzeile ein leeres Feld in der Spalte "I" entsteht, also ein NULL-Wert oder ein =BLANK()...

Gibt es eine Möglichkeit, das Makro so abzuwandeln, dass der Laufzeitfehler nicht mehr auftritt?

Viele Grüße,

Wolfgang

Hallo Wolfgang,

ich habe das Makro getestet. Es funktioniert korrekt für Spalte I, wenn dort die 9-stellige Nummer eingegeben wird. Der Hyperlink ist anklickbar und öffnet den entsprechenden Ordner.

Willst du auch wo anders einfügen?

Claus

Hallo Claus,

klasse, vielen herzlichen Dank, auch das hat geklappt! Wenn sich ein Leerstring in der Zelle befindet, dann versucht er nicht mehr, einen Hyperlink zu erzeugen.

Nun hat sich leider folgendes Problem ergeben: wenn ich die Arbeitsmappe für mehrere Benutzer zur Bearbeitung freigebe, dann funktioniert das Makro nicht mehr, sondern Excel wirft einen Laufzeitfehler. (siehe Screenshots unten)









Woran liegt das und wie könnte man es beheben?

Viele Grüße,

Wolfgang

Hallo Wolfgang,

Du müsstest ihn nur in das Worksheet_Change-Ereignis einfügen und bräuchtest keine Schleife über die Zellen.

Probiere mal:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("I:I")) Is Nothing Or _

Target.Count > 1 Then Exit Sub
Dim myStr As String, myPath As String

Dim objFSO As Object

Dim objOrdner As Object

Dim objSubordner As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")
myPath = "X:\IBS Vertrieb\Projekte\" & Left(Target, 4) & "\"

Set objOrdner = objFSO.GetFolder(myPath)

For Each objSubordner In objOrdner.SubFolders

If objSubordner.Name Like Target & "*" Then

myStr = myPath & objSubordner.Name

Exit For

End If

Next

ActiveSheet.Hyperlinks.Add _

anchor:=Target, _

Address:=myStr, _

TextToDisplay:=Target.Text

End Sub

Claus

Hallo Claus,

super, das hat funktioniert, vielen Dank! Hier ist der einmal der endgültige Code:

Sub Hyp()

Dim LRow As Long, i As Long

Dim myStr As String, myPath As String

Dim objFSO As Object

Dim objOrdner As Object

Dim objSubordner As Object

Dim Spalte As String

Set objFSO = CreateObject("Scripting.FileSystemObject")

Spalte = "I"

With ActiveSheet

'Hier Spalte anpassen

LRow = .Cells(.Rows.Count, Spalte).End(xlUp).Row

For i = 3 To LRow

myPath = "X:\IBS Vertrieb\Projekte\" & Left(.Cells(i, Spalte), 4) & "\"

Set objOrdner = objFSO.GetFolder(myPath)

For Each objSubordner In objOrdner.SubFolders

If objSubordner.Name Like Cells(i, Spalte) & "*" Then

myStr = myPath & objSubordner.Name

Exit For

End If

Next

.Hyperlinks.Add _

anchor:=Range(Spalte & i), _

Address:=myStr, _

TextToDisplay:=Cells(i, Spalte).Text

Next

End With

End Sub

Damit konnte ich alle Einträge in Spalte I erfolgreich in die richtigen Hyperlinks umwandeln.

Nun noch eine Frage, bitte: Wie würde ein Code aussehen, der eine neue Eingabe in einer Zelle der Spalte I direkt in einen solchen Hyperlink umwandelt? Geht das?

Viele Grüße,

Wolfgang