VBA Hyperlink
17.06.2017 17:01:50
Adem
bin auf der Suche nach einer Lösung für folgendes Problem:
irgendwie bekomme ich mein code in Spalte B nicht in hyperlink rein hoffe ihr könnt mir da weiter helfen. Mein vba sieht wie folgt aus:
------------------------------------
Sub Bdt_Artikel_Suchen()
Range("B1").Select
Sheets("Bdt_Alle").Columns("A:C").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B2:D3"), CopyToRange:=Range("B4:D150000"), Unique:=False
Range("C1").Select
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]="""","""",""http://sapnet/fabric/material/""&RC[-4])"
Range("F5").Select
Selection.AutoFill Destination:=Range("F5:F30"), Type:=xlFillDefault
Range("F5:F30").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("d4").Select
Range("d5").Select
Dim z As Long
For z = 5 To 20 'Hier die Anzahl Zeilen angeben
With ActiveSheet
On Error Resume Next
'.Cells(z, 5) = .Cells("http://sapnet/fabric/material/""&,2).value
.Hyperlinks.Add .Cells(z, 5), .Cells(z, 5).Value
End With
Next
End Sub