Lieber XlKing
Ich muss jetzt doch nochmals nachhaken.
Habe alles so umgesetzt wie du gesagt hast aber es funktioniert dennoch nicht.
Bei deinem Code kommt folgende Fehlermeldung:
Objektvariable oder With-Blockvariable nicht festgelegt, der Debugger springt auf wbkZiel = ActiveWorkbook
Aber oben habe ich die mit Dim doch deklariert?
Sub Tabellen()
Dim strPfad As String
Dim wksBlatt As Worksheet
Dim wkbZiel As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = "\\MeinPfad\EgalOrdner" & Year(Date) & "\"
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad
End If
Set wksBlatt = ThisWorkbook.Worksheets("Test1")
ThisWorkbook.Worksheets("Test1").Copy
wkbZiel = ActiveWorkbook
wkbZiel.SaveAs strPfad & Environ("Username") & "" & Now
wkbZiel.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Bei Ralfs Code kommt ebenfalls ein Fehler:
Dort kommt die Methode SaveAs für das Objekt_Workbook ist fehlgeschlagen.
Sub TabellenAlsDateienSpeichern()
Dim strPfad As String
Const ORDNER = "\\MeinPfad\Testordner Makros\2021" 'anpassen"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = ORDNER
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad
End If
ThisWorkbook.Worksheets("Test1").Copy
ActiveWorkbook.SaveAs strPfad & Environ("Username") & "" & Now
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Ich verstehe das einfach nicht ;-(
|