Hilfe
20.09.2013 12:58:40
Dennis
Private Sub CommandButton5_Click()
Range("C26").Select
Dim opendat As Variant
' speichert die erweiterte Datei unter anderem Namen
' erstellt von Joachim Cramm
' Mit der Möglichkeit, den Namen der Datei zu ändern
On Error GoTo bei_fehler
opendat = ActiveSheet.Range("C30").Value
' Laufwerk vorwählen (nicht immer notwendig!!)
ChDrive "c"
' Dateipfad vorwählen (nicht immer notwendig!!)
ChDir "C:"
' Im Speichern-Dialog einen Namen (hier titelvorgabe) vorgeben
titelvorgabe = opendat
tit = titelvorgabe
speichername = Application.GetSaveAsFilename(InitialFileName:=tit)
' Datei speichern
ActiveWorkbook.SaveAs Filename:=speichername, FileFormat:=xlWorkbookNormal
opendat = speichername
Exit Sub
bei_fehler:
Exit Sub
End Sub
so das ist mein fehler, folgende frage an euch, dieser befehl klappt wunderbar auf excel 2003, jetzt werden unsere rechner teilweise auf excel 2010 umgestellt und jetzt klappt diese funktion nicht mehr. ich weiß nicht woran das liegen kann, habe mich schon tot gegoogelt aber nicht wirklich etwas gefunden. ich möchte gerne, das ich ein zellbezug wie hier c30, also ein datei name speichert unter und das sich dann ein fenster öffnet, speichern unter. das wäre sehr schön. vielen dank für eure mithilfe.