Makro spalte hyperlink
18.04.2021 22:00:26
rm
Sub addHypers()
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell "" Then
ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
End If
Next cell
End Sub
Anzeige