Makro CurDir
18.08.2003 15:29:47
Wang
Ich habe ein Problem mit meinem Makro:
Private Sub CommandButton3_Click()
Dim Eingabewert, datname As String
Pfad1 = CurDir
ActiveSheet.DrawingObjects("Chart 3").Select
ActiveSheet.ChartObjects("Chart 3").Activate
Eingabewert = InputBox("New Name:", "Export Diagram as *.Gif File")
If Eingabewert = "" Then Exit Sub
datname = Eingabewert
ActiveChart.Export _
FileName:=CurDir & "\" & datname & ".gif", FilterName:="GIF"
MsgBox "The exported Diagram " & datname & ".gif saved in" & CurDir
End Sub
In der MsgBox soll anzeigen wo diese Datei gespeicher ist, aber bei mir funktioniert es nicht. Ich glaube ich habe da was falsches geschrieben oder so.
Wer kann mir weiterhelfen?
Gruß
Wang