Gruß aus'm Pott
Udo
das muß in dem Tabellen-Blatt stehen, aus dem das Makro gestartet werden soll:
Gruß
Christian
Dim Spalte As Variant
Dim Zeile As Long
Dim Zelle As Variant
Spalte = Chr(ActiveCell.Column + 64)
Zeile = ActiveCell.Row
Zelle = Spalte & Zeile
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.amazon.com/exec/obidos/search-handle-url/index%3Dmusic%26field-keywords%3D" & Range("F" & Zeile).Value & "%26url%3Dindex%3Dmusic%26store-name%3Dmusic/102-8340082-3384909"
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
Selection.Hyperlinks(1).Delete
ActiveCell.FormulaR1C1 = "Hörprobe"
End Sub
weil mir das mehr nach modul aussieht...
gruß Martin
Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column <> 11 Then Exit Sub
Call Search
Cancel = True
End Sub
dann sollte das so aussehen:
Wenn die Makros nicht "Makro1" und "Makro2" heißen, dann mußt Du die Namen im Code austauschen.
Gruß
Christian
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen