Makro erweitern
25.02.2005 13:25:17
Matthias
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, SB As Variant
If Target.Count > 1 Or Target = "" Then Exit Sub
SB = Target
On Error GoTo ENDE
Set c = Sheets("Teile").Cells.Find(what:=SB, lookat:=xlWhole)
If Not c Is Nothing Then
Application.Goto Sheets("Teile").Range(c.Address), True
End If
ENDE:
Cancel = True
End Sub
Nun möchte ich, dass wenn ich in Spalte A einen Doppelklick auf einer Zelle ausführe, der Zellinhalt in Tabelle 1 gesucht wird und in Spalte B auf dem Tabellenblatt 2.
Wer kann mir helfen?
Danke im voraus,
MFG MLB.
Anzeige