Guten Abend,
nach längerer Recherche ohne das gewünschte Ergebnis, bin ich auf dieses Forum gestoßen.
Ich hatte mir vorgenommen Duplikate in einer Spalte beim Eintragen sichtbar zu machen. Das hat auch super geklappt und erfüllt genau das was ich mir vorgestellt habe.
Nun aber zu meiner Frage: Ich möchte sofern dies in Excel möglich ist, sobald ein doppelter Eintrag vorgenommen wird, automatisch einen Bezug bzw. eine Verlinkung zu dem Eintrag, welcher bereits in
der Spalte existiert, herstellen. Beispielsweise existiert der Name Uwe in Zeile 5. Gebe ich in Zeile 30 ebenfalls den Namen Uwe ein, dann soll hier eine Verlinkung bzw. ein Sprung in die Zeile vorgenommen werden, in welcher der
Name bereits existiert.
Über Antworten würde ich mich sehr freuen :)
Hallo,
folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
lngZ = Application.Match(Target.Value, Target.EntireColumn, 0)
If lngZ < Target.Row Then
On Error Resume Next
Application.EnableEvents = False
Target.Formula = "=" & Cells(lngZ, Target.Column).Address(0, 0)
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
Gruß Uwe
Hallo Uwe,
vielen Dank für die schnelle Antwort! Ich habe die Spalte über "Bedingte Formatierung" auf Duplikate gefiltert. Ist das mit dem von dir gezeigten Makro kompatibel?
Den Code verstehe ich, allerdings stellt sich mir die Frage mit welchem der Elemente ich das implementieren soll. Es gibt Formularsteuerelemente und die ActiveX-Steuerelemente, die Unterschiede sind mir nicht bekannt.
Damit hatte ich leider noch nicht zu tun
LG
Hallo,
(19.01.2021, 20:37)Münzenminister schrieb: [ -> ]... stellt sich mir die Frage mit welchem der Elemente ich das implementieren soll.
mit gar keinem, weil das automatisch bei jeder Änderung irgendeiner Zelle gestartet wird.
Gruß Uwe
Hm ok ich habe einiges ausprobiert, leider hat es nicht geklappt. Ich werde nochmal eine neue Tabelle erstellen und es erneut probieren.
Hallöchen,
Zitat: leider hat es nicht geklappt.
ist nicht so ganz die Aussage, mit der man weiter arbeiten kann
eventuell meinst Du es so?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
'Suche in der Spalte die erste gefundene Zeile mit dem Begriff
lngZ = Application.Match(Target.Value, Target.EntireColumn, 0)
If lngZ < Target.Row Then
On Error Resume Next
Application.EnableEvents = False
' Target.Formula = "=" & Cells(lngZ, Target.Column).Address(0, 0)
'Erzeugt einen Link nach Spalte A zur ersten gefundenen Zeile mit dem Begriff
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
"Tabelle1!A" & lngZ, TextToDisplay:=Target.Value
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
Könnte man auch statt nach Ax in die Target-Spalte verlinken...
Hallo,
für alle, die das noch nicht wussten:
Wenn man unter Optionen - Erweitert - Bearbeitungsoptionen den Haken bei
Direkte Zellbearbeitung zulassen enfernt, gelangt man per Doppelklick auch auf die in der Formel stehende direkte Vorgängerzelle.
Gruß Uwe
Hallo Münzenminister,
hier ein Vorschlag mit einer Formellösung mit einer Hilfsspalte und der Funktion HYPERLINK()
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B |
| 1 | Namen | |
| 2 | Otto | |
| 3 | Karl | |
| 4 | Hugo | |
| 5 | Kurt | |
| 6 | Wilhelm | |
| 7 | Otto | gibt’s schon |
| 8 | Hugo | gibt’s schon |
| 9 | Max | |
| 10 | Paul | |
| 11 | Ernst | |
| 12 | Ernst | gibt’s schon |
| 13 | | |
| 14 | | |
| Zelle | Formel |
| B2 | =WENN(ZÄHLENWENN($A$2:A2;A2)>1;HYPERLINK("#"&"A"&VERGLEICH(A2;A:A;0);"gibt’s schon");"") |
| Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010 |
| Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Gruß
Fred
Danke für die vielen hilfreichen Beiträge!
@Fred11
Eventuell habe ich etwas übersehen, aber die Formel scheint bei mir nicht das erwünschte Ergebnis zu bringen :(
Habe es mal im Anhang verlinkt. Denke aber mit einem Makro komme ich eher weiter, da ich die von dir gezeigte Formel in etwa als "Doppelte Werte" anzeigen implementiert habe.
Oder enthält die Formel eine Verlinkung der doppelten Einträge? Konnte es leider nicht ausprobieren.
@schauan & @Kuwer
Ich habe es eben erneut getestet und hatte bereits einen längeren Bericht geschrieben mit Anhängen wieso es denn nicht klappt :)
Mir ist dann aufgefallen, dass die Duplikate unterstrichen sind. Es funktioniert genauso wie gewünscht. Danke!!!
Leider referenziert er nur den ersten Eintrag. Wie müsste ich das Makro abändern um immer zu dem Eintrag zu springen der als letztes eingetragen wird? Also wie die Funktion "suchen" mit Strg-F?
LG
PS: Ein super-Forum! Wäre mir in meiner Uni-Zeit sehr gelegen gekommen.
Hallöchen,
dann mit dem Link in etwa so:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
On Error Resume Next
'Suche in der Spalte die letzte gefundene Zeile mit dem Begriff
'ab Zeile 1 und vor der Eingabezelle
lngZ = Application.Match(Target.Value, _
Cells(1, Target.Column).Resize(Target.Row - 1, 1))
If lngZ > 0 And lngZ < Target.Row Then
Application.EnableEvents = False
'Erzeugt einen Link nach Spalte A zur letzten gefundenen Zeile mit dem Begriff
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
"Tabelle1!A" & lngZ, TextToDisplay:=Target.Value
Application.EnableEvents = True
End If
End Sub