Bei Makro: Abfrage über Range und Const
22.05.2017 08:36:50
Marcel
ich habe u.s. Makro und möchte statt dem fest definierten Bereich "B4:BZ4" und der Konstanten "https://www.amazon.de/dp/", dass sich bei Ausführen des Makros ein Fenster öffnet, in dem ich den Bereich und die Konstante jedes Mal eingeben/neu definieren kann.
Könnte mir hier bitte jemand weiterhelfen, wie man solch eine Abfrage einfügt?
Danke und Grüße
Marcel
Sub a()
Const PRE$ = "https://www.amazon.de/dp/"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = ActiveSheet
Dim r As Range: Set r = Ws.Range("B4:BZ4")
Dim c As Range
Application.ScreenUpdating = False
For Each c In r
If Not IsEmpty(c) Then
c.Hyperlinks.Add anchor:=c, Address:=PRE & c.Text
End If
Next c
End Sub