Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
Dim
id, strSuchtext
As
String
Dim
Bereich
As
Range
id = ActiveCell
strSuche = InputBox(
"Bitte geben Sie den Suchtext ein:"
)
If
ActiveCell.Row = 8
And
ActiveCell.Column = 4
Then
Set
Bereich = Tabelle1.Range(
"D:D"
).Find(strSuche)
If
Not
Bereich
Is
Nothing
Then
Tabelle1.Activate
Bereich.
Select
End
If
End
If
End
Sub
Private
Sub
Worksheet_BeforeDoubleClick_1(
ByVal
Target
As
Range, Cancel
As
Boolean
)
Dim
id, strSuchtext
As
String
Dim
Bereich
As
Range
id = ActiveCell
strSuche = InputBox(
"Bitte geben Sie den Suchtext ein:"
)
If
ActiveCell.Row = 8
And
ActiveCell.Column = 2
Then
Set
Bereich = Tabelle1.Range(
"B:B"
).Find(strSuche)
If
Not
Bereich
Is
Nothing
Then
Tabelle1.Activate
Bereich.
Select
End
If
End
If
End
Sub