Ich habe ein Makro, das aus einer Spalte die Adresse von Hyperlinks in eine andere Spalte kopiert.
Quellcode:
Sub CommandButton1_Click()
Dim LR%, i%
Dim HLink As Range, ZBer As Range
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
Set HLink = Range("A1:A" & LR)
Set ZBer = Range("E1:E" & LR)
ZBer.Clear
For i = 1 To HLink.Hyperlinks.Count
Cells(HLink.Hyperlinks(i).Parent.Row, 5) = HLink.Hyperlinks(i).Address
Next i
End Sub
Nun würde ich gerne dafür einen Button erstellen, der oben in der Symbolleiste auftaucht (anstatt wie bisher im Excel-Dokument unter der Tabelle erscheint).
Hat irgendjemand eine Idee wie das funktioniert?
Vielen Dank im Voraus!
Karo