modul activesheet
Karel
wie kan ich unterstehende Code in ein modul packen sodass ich immer die aktive TABELLE ansprechen kan
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim BrowseDir As Object
If Target.Address "$B$1" And Target.Value = "" Then
Set BrowseDir = CreateObject("Shell.Application").BrowseForFolder(0, "Ordner auswählen", &H0, _
17)
If Not BrowseDir Is Nothing Then
Range("B1").Value = BrowseDir.self.Path & "\"
End If
Set BrowseDir = Nothing
End If
End Sub
GrüsseKAREL