VBA Verlinkung auf Inhalt der Ziel-Zelle

[Tom2020]

Hallo nochmal,

ich hätte gerne gewusst, ob man von ActiveCell (A20) mit dem Wert 45698 auf einer Ziel-Zelle mit dem Text 65 (A25) verlinken kann.

Application.InputBox ziegt dem user dialog-box an und gibt die Zahl 65, anstatt A25
 
Viele VBA macros im Internet versuchen 45698 auf A200 zu verlinken und nicht auf dem Text in der Ziel-Zelle, hier 65.

Ist es überhaupt möglich?

danke für die Hilfe

t

[schauan]

Hallöchen,

kannst Du mal ungefähr angeben, wie viele Makros im Internet versuchen 45698 auf A200 zu verlinken?
Eventuell kannst Du auch mal einen Link zu so einem Makro posten.

[Tom2020]

Hi

Die Antwort auf meine Frage ist höchstwahrscheinlich Nein:

Hier zwei sehr gute VBA codes die auch leicht anpassbar wären.

https://stackoverflow.com/questions/6322...ected-cell

https://www.automateexcel.com/vba/hyperlinks/

thx

t

[Kuwer]

Hallo Tom,

die Antwort 1 des ersten Links passt doch (den Default-Abschnitt kannst Du auch weglassen):

Code:

Sub test1()

Dim myValue As Range

    Set myValue = Application.InputBox("Input the cell that you want to link to!", Title:="Please input", Default:="H2", Type:=8)
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=myValue.Address

End Sub

[Tom2020]

Hi kuwer

Um zu verstehen, was ich meine:

Gib in der Taget-Zelle (A25) folgende Test: Das ist ein Test ein.

Versuche von ActiveCell (A20) wo die Zahl 45698 beinhaltet auf NUR das Wort Test zu verlinken
Du würdest feststellen dass es nicht geht.

t

[Kuwer]

Hallo t,

da muss ich passen.

Gruß Uwe

[schauan]

Hallöchen,

Du würdest feststellen dass es nicht geht.

Was willst Du damit eigentlich erreichen?
Willst Du ein Wort eines Textes direkt in einer Zelle wie für eine Änderung markieren?
Falls ja, was willst Du dann tun?
Oder willst Du ein Wort in einer Zelle wie bei einer Suche z.B. in einer pdf oder auf einer Website farbig markieren?

Letzteres ginge z.B. so, Einschränkung siehe Kommentare. Lege dazu zwei Buttons auf dem Blatt an.

Code:

Option Explicit
Private Sub CommandButton1_Click()
'Variablendeklarationen
Dim rngCell As Range, rngCol As Range, strSearch As String
'Suchtext eingeben, ohne Text Makro verlassen
strSearch = InputBox("Suchtext"): If strSearch = "" Then Exit Sub
'Suchbereich alle Zellen mit fixen Inhalten
Set rngCol = Cells.SpecialCells(xlCellTypeConstants)
'Schleife ueber Suchbereichzellen
For Each rngCell In rngCol
  'Wenn Begriff gefunden, dann
  If InStr(1, rngCell.Value, strSearch) > 0 Then
   'Einfaerben - nur erster Treffer in Zelle
   rngCell.Characters(Start:=InStr(1, rngCell.Value, strSearch), Length:=Len(strSearch)).Font.ColorIndex = 3 ' rot
  'Ende Wenn Begriff gefunden, dann
  End If
'Ende Schleife ueber Suchbereichzellen
Next
End Sub
Private Sub CommandButton2_Click()
Columns("A").Font.ColorIndex = xlAutomatic
End Sub