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