ich versuche einen Ordner umzubenennen, jedoch kommt immer die Fehlermeldung 75
Das ganze funktioniert eigentlich mit einer Userform.
1.) Dateiopen() =Tabelle aus Verzeichnis in diese Arbeitsmappe importieren
2.) Sub Speichern()
Tabellenblatt Namen ändern
Tabellenblatt in Verzeichnis ablegen
Nun soll der Ordner umbenannt werden und hier kommt der Laufzeitfehler75
Warum ist mir ein Rätzel?
Danke!
Gruß
Sigi
Option Explicit
Dim sOrdAlt As String, sOrdNeu As String
Dim sDateiAlt As String, sDateiNeu As String
Dim vOAlt, vONeu
Dim oTab As Object
Sub Datei_open()sOrdAlt = "Musterfrau Helga"
sDateiAlt = "AB_Musterfrau Helga"
Tab_ImpAB sOrdAlt, sDateiAlt 'Tab öffnen
End Sub
Sub Speichern()sOrdNeu = "Musterfrau Maria"
sDateiNeu = "Musterfrau Maria"
If sOrdAlt = sOrdNeu Then
Tab_ExpABEinz sOrdAlt, sDateiAlt 'keine Änderung dann alten Namen speichern
Else
For Each oTab In ThisWorkbook.Sheets 'vorhandenen Namen ändern
If oTab.Name = sDateiAlt Then
oTab.Name = "AB_" & sDateiNeu
Exit For
End If
Next
Tab_ExpABEinz sOrdAlt, "AB_" & sDateiNeu
vOAlt = ThisWorkbook.Path & "\Kunden\" & sOrdAlt
vONeu = ThisWorkbook.Path & "\Kunden\" & sDateiNeu
Name vOAlt As vONeu
End If
End Sub
Sub Tab_ExpABEinz(sO As String, sD As String)On Error GoTo zE
App_aus
ThisWorkbook.Worksheets(sD).Move
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Kunden\" & sO & "\Abrechnungen\" & sD & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close savechanges:=True
Exit Sub
zE:
App_ein
MsgBox "etwas stimmt nicht"
End Sub
Sub Tab_ImpAB(sO As String, sD As String)Dim wkb As Workbook
On Error GoTo zE
App_aus
Set wkb = Workbooks.Open(ThisWorkbook.Path & "\Kunden\" & sO & "\Abrechnungen\" & sD & ".xlsx", False)
With ThisWorkbook
Worksheets(1).Copy After:=.Worksheets(.Worksheets.Count)
End With
wkb.Close savechanges:=False
Exit Sub
zE:
App_ein
MsgBox "etwas stimmt nicht"
End Sub
Public Sub App_aus()With Application
.Calculation = xlCalculationManual
.DisplayStatusBar = False
.DisplayAlerts = False
.EnableEvents = False
.ScreenUpdating = False
End With
End Sub
Public Sub App_ein()With Application
.Calculation = xlCalculationAutomatic
.DisplayStatusBar = True
.DisplayAlerts = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub