Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Hyperlink-Auslösung mit Return-Taste
Normale Version: Hyperlink-Auslösung mit Return-Taste
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

snb

01.06.2021, 14:14
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Count = 1 Then
    Target.Offset(, 4) = Date
  ElseIf Target.Address = "$D$1" And Target <> "" Then
    Columns(2).Find(Target).Offset(, -1).Select
  End If
End Sub

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("G3:H120")) Is Nothing Then
    Target = IIf(Target = "", "ü", "")
    Cancel = True
  End If
End Sub

Beltason

01.06.2021, 15:50
Hallo SNB,
danke für deine schnelle Hilfe. Es will einfach nicht funktionieren!
Ich habe ein Modul erstellt und deine 2 Codes dort eingefügt. Es kommen Fehlermeldungen "Mehrdeutiger Name"
Ich kann nur versuchen zu experemtieren, da ich auf diesem Gebiet absouter Anfänger bin. Ich mache was falsch, aber weiß nicht was.
Wärst du so nett und baust mir den code bitte in meiner Beispieltabelle ein?

Vielen vielen Dank!!

Case

03.06.2021, 10:04
Hallo, 19

falls du den alten Code weiter nutzen möchtest, dann musst du nur eine Codezeile ändern: 21

Aus...
Code:
lngTMP = Tabelle1.Evaluate("=MAX(ISNUMBER(FIND(D1,B3:D999))*ROW(3:999))")

... wird:
Code:
lngTMP = Tabelle1.Evaluate("=MAX(ISNUMBER(SEARCH(D1,B3:D999))*ROW(3:999))")

Also "FIND" wird durch "SEARCH" ausgetauscht, denn es ist in Excel genau andersrum - war mein Fehler. SUCHEN unterscheidet nicht zwischen Groß- Kleinschreibung, FINDEN schon.

Beltason

03.06.2021, 11:11
Hallo Case, das wars schon, vielen Dank 19  Die Tabelle sucht nun wie gewünscht und springt auch zu dem passen Ergebnis hin!

Einen kleinen Schönheitsfehler gibt es aber trotzdem noch. Nur jede zweite Suchzeile wird dann farbig in Rot markiert. Das hat wohl nichts mit deinem Code zu tun, sondern mit meiner bedingten Formatierung. Da habe ich einen Fehler drin!! Ich hänge mal 2 Bilder an, vieleicht siehst du da meinen Fehler!!

Vielel, vielen vielen Dank für deine Hilfe!![attachment=39010][attachment=39011]

Fred11

03.06.2021, 14:33
Hallo Beltason,

du musst die Reihenfolge der Regeln ändern.
(Die Regel, die oben steht, hat Priorität)

[attachment=39014]

Gruß
Fred

Beltason

03.06.2021, 16:47
Danke Fred, da wäre ich nie drauf gekommen. Kleine Dinge mit großer wirkung. DANKE SEHR 18 100
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > Hyperlink-Auslösung mit Return-Taste