Leere Zellen ignorieren
11.06.2016 12:02:17
Markus
wie müsste ich folgenden Code anpassen, damit bei einer leeren Zelle, diese auch leer bleibt und sich nur dann ein Hyperlinkpfad einfügt, sobald die Zelle einen Inhalt zum jeweiligen Zielordner besitzt?
Sub Hyperlink()
Dim Zelle As Range
Dim rngSpalte As Range
Set rngSpalte = Range("A3:A10")
For each Zelle In rngSpalte
If Zelle = "" Then Exit For ' genau hier liegt mein Problem
ActiveSheet.hyperlinks.Add Anchor:=Zelle, Address:="C:\Dokumente\...\" & Zelle.Value
Next
End Sub
Anzeige