ich komme nicht mehr drauf wie ich folgenden Code umschreiben muss damit er ohne select funktioniert...
Wär super wenn mir da mal jmd. auf die Srünge helfen könnte!
For Each cell In Sheets("Tabelle1").Range(Cells(7, intStartColumn), Cells(LetzteZeile, _
intEndColumn))
If cell.Value = strFind Then
cell.Select
cell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Hilfe!Z1S1", ScreenTip:="Juppi", TextToDisplay:="Holladi"
End If
Next cell
Mit freundlichen Grüßen
Florian