Tastenkomb Strg+S mit Makro belegt-geht nicht imme
28.07.2016 14:50:54
Höller
Hallo zusammen,
habe ein kleines Problem und komme nicht dahinter...
Ich habe ein Makro geschrieben zur Speicherung einer Excel-Datei (unter DiesesArbeitsmappe), damit mir ein bestimmter Ort und von gewissen Zellinhalten abhängig ein Dateiname vorgeschlagen wird. Diesem Makro habe ich die Tastenkombination Strg+S zugewiesen, damit die übliche Routine ersetzt wird. Das funktioniert in 75% aller Fälle auch, aber zeitweise greift offenbar doch wieder die Speicherroutine von Excel und mir werden teils vorhandene Dateien überschrieben... woran kann das liegen?
Public Sub speichern_auto()
On Error GoTo fehler
Dim strpfad, strpfad2 As String
Dim msg
strpfad = "n:\38...liste\" & Worksheets("Tabelle1").Range("H3").Value
If Dir("n:\38...liste\" & Worksheets("Tabelle1").Range("H3").Value, vbDirectory) = "" Then
msg = MsgBox("Ordner nicht vorhanden, soll er angelegt werden?", vbYesNoCancel)
If msg = vbCancel Then Exit Sub
If msg = vbYes Then
MkDir strpfad
Else: strpfad = "n:\38...liste\"
End If
End If
strpfad2 = Application.GetSaveAsFilename(InitialFileName:=strpfad & "\" & Worksheets("Tabelle1") _
_
.Range("U3").Value & " " & Worksheets("Tabelle1").Range("h3").Value & " " & Worksheets(" _
Tabelle1").Range("y21").Value & ".xlsm", FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsm), *.xlsm")
Select Case strpfad2
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strpfad2, FileFormat:=52
End Select
fehler:
End Sub
Es würde mir sehr helfen, wenn jamand eine Idee hätte, woran es liegt, bzw. was ich falsch mache... Danke im Voraus!