Ist es möglich ohne selct, einen Hyperlink direkt in die Zelle zu schreiben
Beispiel mit Select
Markierbereich = "AI" & AktuelleZeile Range(Markierbereich).Select Range(Markierbereich) = pfad2 & name1 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ pfad2 & name1
Danke
Gruss
Martin
Sorry das ist die aktuelle Version die funktioniert aber ohne Select wäre der Core etwas schneller. Cells(AktuelleZeile, AktuelleSpalte).Select Selection = pfad2 & name1 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ pfad2 & name1
Gruss
Martin