Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

If Funktion - tricky ?
#1
Hallo Zusammen,

mein Projekt hat eine kleine Hürde die ich nicht überwinden kann.

Ich möchte die IF Funktion wie folgt einbauen:

Wenn mein Suchkriterium exakt in einer Spalte vorkommt, dann soll er den Hyperlink in der daneben stehenden Spalte öffnen.

Z.b. ich habe das Suchkriterium "Schuhe" und in Spalte B gibt es nur 1 x das Wort "Schuhe"

Wenn die beiden Parameter exakt übereinstimmen, dann öffne den dazugehörigen Link in der Spalte C (z.B. www.ichmagschuhe.de)

Wie bekomme ich das einfach realisiert, dass er zum einem der Vergleich anstellt und dann die richtige Range in C ansteuert?

Danke und Gruß
:)
Antworten Top
#2
Hi,

zeig mal bitte eine Beispieldatei. https://www.clever-excel-forum.de/Thread...ng-stellen
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#3
hier eine Beispieldatei.

bitte beachte, dass das Suchfeld eine variable länge haben kann.


Angehängte Dateien
.xlsm   Musterdatei.xlsm (Größe: 15,28 KB / Downloads: 3)
Antworten Top
#4
Hallo,

füge folgendes Makro in das schon bestehende VBA-Modul des Tabellenblatts ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
On Error Resume Next
Me.Cells(Application.Match(Target.Value, Columns(1), 0), 2).Hyperlinks(1).Follow
If Err.Number Then
MsgBox "Suchbegriff wurde nicht gefunden!", vbInformation
End If
Target.Activate
End If
End Sub
Gruß Uwe
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste