Makro bei zellanwahl ausführen
10.03.2007 10:01:17
Peter
währe jemand so nett und erklärt mir wie ich es hinbekomme, dass nach einem Klick auf zB "B4" ein Makro aufgerufen wird.
Das Makro ist hier aus dem Forum und sieht so aus.
Sub Verzeichnissuchen()
Dim Ordner As FileDialog, Pfad As String
Dim Zielzelle
Zielzelle = "B4" 'Anpassen
Set Ordner = Application.FileDialog(4)
If Ordner.Show = -1 Then
Pfad = Ordner.SelectedItems(1)
Range(Zielzelle).Cells.Value = Pfad
End If
Set Ordner = Nothing
End Sub
Dies möchte ich bei Klick auf "B4" aktivieren.
Der angewählte Pfad/Ordner soll dann in "B4" hinein geschrieben werden.
Gruß Dieter
Anzeige