1) die Vorlage soll eine Word Datei sein, die nach dem gleichen Prinzip irgendwo abgespeichert ist und unter neuem Pfad abgespeichert werden soll.
2) Die Vorlage soll sich eigentlich gar nicht öffnen (weder in der Excel noch Word Variante), sondern der Prozess soll sich im Hintergrund abspielen.
3) Besteht bereits eine Datei in dem neuen Pfad, so soll der trotzdem eine neue Datei angelegt werden und den Namen Nr.2 hinten dran bekommen.
Hoffentlich habe ich mich verständlich ausgedrückt ;-)
Grüße
Euer Andi
Function Neuspeichern()
Dim wks As Worksheet
Dim wkbNeu As Workbook
Dim PfadNeu As String
Dim ReportNeu As String
Dim Vorlage As String
Dim Test As String
Dim Test2 As String
Dim Pfad As String
Dim Zeile As Integer
Dim i
Set wsk = ActiveSheet
Vorlage = "[hier steht Pfad drin, aktuell zu einer Excel Datei]"
Zeile = ActiveCell.Row 'Abfrage, in welcher Zeile die aktuell angewählte Zelle ist
i = Zeile
Test = Worksheets("Tabelle1").Cells(i, 6).Value & "\" 'Ziehen der entsprechenden Werte
Test2 = Worksheets("Tabelle1").Cells(i, 5).Value 'Ziehen der entsprechenden Werte
PfadNeu = "[erster fixer Teil des Pfades]"
PfadNeu = PfadNeu & Test & Test2
With wks
If Worksheets("Tabelle1").Cells(i, 18).Value = "ja" Or Worksheets("Tabelle1").Cells(i, 18) _
_
= _
_
"eventuell" Then
Set wkbNeu = Application.Workbooks.Open(Filename:=Vorlage, ReadOnly:=True)
If Right(PfadNeu, 200) "\" Then PfadNeu = PfadNeu & "\"
ReportNeu = PfadNeu & wkbNeu.Name
wkbNeu.SaveAs Filename:=ReportNeu, FileFormat:=51 '51= Exceldatei ohne Makros'
End If
End With
'Workbooks.Open Filename:= _
' "ReportNeu"
End Function