Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim varRow
With Sheets("Tabelle1")
varRow = Application.Match(ListBox1.List(, 0), .Columns(1), 0)
If IsNumeric(varRow) Then
Application.Goto .Cells(varRow, 1), True
End If
End With
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.CountIf(Columns(1), ListBox1.Value) > 0 Then
Cells(Application.Match(ListBox1.Value, Columns(1), 0), 1).Select
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.CountIf(Columns(1), ListBox1.Value) > 0 Then
Cells(Application.Match(ListBox1.Value, Columns(1), 0), 1).Select
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim varRow
With Sheets("Tabelle2")
varRow = Application.Match(ListBox1.List(, 0), .Columns(1), 0)
If IsNumeric(varRow) Then
Application.Goto .Cells(varRow, 1), True
End If
End With
End Sub