Mit Doppelklick auf Zelle in anderes WS
26.07.2022 13:12:49
Davinator
ich habe so gut wie keine VBA Erfahrung und brauche dringend Hilfe.
Folgendes,
ich habe ein Workbook "Vorbereitungstabelle" in dem im ich verschiendene Sheets habe.Ein Sheet heißt "Vorbereitung" und ein Sheet ist "RDB" benannt. Nun möchte ich das sobald man im Sheet "Vorbereitung" mit einem Doppelklick auf eine Nummer drückt, dann in das Sheet "RDB" springt und diese Nummer dann selektiert bzw makiert wird. Die Nummer ist sowohl im "RDB" als auch in "Vorbereitung" enthalten. Ich habe schon etwas rumprobiert und bin soweit gekommen: (Bringt mir nur nicht viel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range, sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Not sh Is Target.Parent Then
Set cl = sh.Cells.Find(Target.Value)
If Not cl Is Nothing Then
cl.Parent.Activate
cl.Select
Exit For
End If
End If
Next sh
If cl Is Nothing Then MsgBox "Der Wert " & Target.Value & " wurde in keinem anderen Tabellenblatt gefunden.", vbInformation
Cancel = True
End Sub