|
Nun ja, ein bisschen musst du die Helfer schon auch verstehen. Sie opfern Ihre Freizeit, um Menschen wie dir bei solchen Problemen zu helfen. Wenn sich dann herausstellt, dass sie umsonst gearbeitet haben, weil es anderswo längst eine Lösung gibt, sind sie nicht grad amused.
Also ich zähle bislang 4 Leute in zwei Foren, die bisher hilfreiche Tipps gegeben haben. Wenn du von 100 sprichst, bist du sicher in mindestens 5 Foren mit deiner Frage aktiv. Da brauchst du dich dann auch nicht wundern, wenn dich 90 davon über Crossposting "belehren". Zugegebnermaßen vergreifen sich da oft auch Viele im Ton, aber nur deshalb, weil sie es immer und immer wieder machen müssen und der Fragesteller leider oft lernresistent ist.
Ich bin jedenfalls froh, dass es auch Helfer wie Gast 2559 gibt, die Crossposting aufdecken. Sonst würde man nie erfahren, ob nun eine Lösung gefunden wurde oder nicht. Du hast dich ja hier auch 6 Tage lange nicht gemeldet. Deshalb: Danke @Gast 2559 für die Info!
Und dass du (also David) meinen hier gezeigten Code in einem anderen Forum als deinen Eigenen ausgibst, find ich auch nicht grade lustig. Hättest wenigstens dazuschreiben können, dass er von woanders stammt. 
Du siehst, je mehr Leute du fragst, desto mehr Antworten bekommst du. Ob dir das beim VBA-Lernprozess hilft ist fraglich. Die vielen Möglichkeiten das Problem anzugehen, können dich als Anfänger schnell verwirren. Hättest du dein Problem auch hier gleich richtig beschrieben, könntest du dich längst entspannt zurücklehnen.
Da GerdL einen etwas Anderen Ansatz hat und über GeheZu geht (auch nicht schlecht!) hier nun nochmal meine Variante über Wert Suchen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range
Set cl = Worksheets("RDB").Cells.Find(Target)
If Not cl Is Nothing Then
Worksheets("RDB").Activate
cl.Select
Else
MsgBox "Dieser Wert existiert im Blatt ""RDB"" nicht", vbInformation
End If
Cancel = True
End Sub
Sollte sich das Blatt "RDB" in einem anderen Workbook befinden, musst du das Blatt so ansprechen: Workbooks("Dateiname").Worksheets("RDB")
Gruß Mr. K.
|