bestehende datei überschreiben
15.04.2013 08:46:54
Michael
bitte um eure hilfe!
abhängig vom zelleninhalt A3 (gesperrt oder freigabe) soll das makro unterfolgenden namen gespeichert werden.
zelleninhalt A3 "geperrt" : gesperrt Log TB16+17.xlsm
zelleninhalt A3 "freigabe": Log TB16+17.xlsm
Der alte Dateiname soll überschrieben werden, wie funkt das nur?
mein makro sieht wie folgt aus:
Dim Zelleninhalt_A As String
Dim Log As String
Dim TB As String
Zelleninhalt_A = Range("A3")
Log = Left(Range("A1"), 3)
TB = Left(Range("C3"), 8)
'Testversion auf meinem Desktop
If Zelleninhalt_A = "GESPERRT" Then
ActiveWorkbook.SaveAs Filename:="C:\Desktop\" & Zelleninhalt_A & Log & " " & TB, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:="C:\Desktop\" & Log & " " & TB, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If