ich benötige mal wieder Hilfe. Da ich nur Recorder-Kenntnisse habe, stehe ich mal wieder wie der Ochs vorm Berg.
Ich möchte auf einem Tabellenblatt bestimmte Tabellenblattnamen einer anderen Arbeitsmappe im Bereich A1-A30 hinterlegen. Durch Doppelklick auf den jeweiligen Namen, soll in der anderen Arbeitsmappe - die immer den gleichen Titel hat (im Beispiel "Sandhaufen") - das entsprechende Tabellenblatt geöffnet werden.
Ich habe zu diesem Thema in der Recherche folgendes Makro gefunden, ins Tabellenblatt "Hauser" gesetzt und leider funktioniert es nicht.
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Excel.Range, Cancel As Boolean)
Dim rngZelle As Range
Dim wb As Workbook
If Target.Cells.Count = 1 Then
If Not IsEmpty(Target) Then
Cancel = False
Workbooks.Open "C:\Dokumente und Einstellungen\Gisela\Desktop\Sandhaufen.xls"
Set wb = ActiveWorkbook
Set rngZelle = wb.Sheets("Hauser").Range("A1:A30").Find _
(Target.Value, wb.Sheets("Hauser").Range("A30"), xlValues)
If rngZelle Is Nothing Then
wb.Close False
MsgBox "Nichts gefunden"
Else
rngZelle.Select
End If
End If
End If
End Sub
Weiss jemand Rat oder kann mir helfen?
Vielen Dank und Grüße
Gisela