Doppelklick soll andere Mappe öffnen
27.06.2017 19:26:07
Silke
ist es möglich, in einer geöffneten xlsm Mappe- beim Doppelklick in eine bestimmte Zelle- z.B. im Blatt "Druckmenü Y35" , mit diesem Doppelklick eine andere Mappe- z.B. "Protokoll_Nr" zu öffnen und aktiv zu setzen?
Der Speicherort dieser Datei ist auf "D-Dokumente"
Wie könnte das mit VBA realisierbar sein?
Diesen Code habe ich bereits in "Diese Arbeitsmappe" stehen.
>Code
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Dim x&, strClick_Eins$
If Target.Column = 3 Then
If ActiveCell.Address = strClick_Eins Then
Cancel = True
'hier code für mach was schönes beim 2.Click in die selbe Zelle
Application.CutCopyMode = False
Unload UserForm1
Application.CutCopyMode = False
ActiveCell.Select
UserForm1.Show vbModeless
strClick_Eins = ""
Unload UserForm1
ActiveCell.Select
UserForm1.Show vbModeless
Exit Sub
End If
If UserForm1.Visible Then
strClick_Eins = ActiveCell.Address
UserForm1.Hide 'Userform ausblenden
Else
Application.CutCopyMode = False
ActiveCell.Select
UserForm1.Show vbModeless 'Userform anzeigen
Unload UserForm1
ActiveCell.Select
UserForm1.Show vbModeless
End If
Cancel = True
End If
End Sub
Müsste der neue Code dann auch dort rein- oder lieber in die Tabelle "Druckmenü" ?
Kann jemand helfen?
LG Silke D.
Anzeige