Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
Application.Dialogs(xlDialogSaveAs).Show Range("c30") ' speichern _
unter
End If
End Sub
das funktioniert wunderbar aber ich hätte aber gerne noch das er die datei speichern unter zbs. auf laufwerk C, als standart speicherort definiert.lg
dennis