ich hätte hier eine kleine Frage:
ich will, dass bei Knopfdruck ein Worksheet als neue eigene Datei gespeichert wird (mit Werte).
Ich hab es geschafft, dass sich das Worksheet kopiert und auf ein neues Arbeitsblatt kopiert (Werte) und in den Ordner speichert in dem ich es haben will.
Problem ist dass die Datei "FALSE" heißt statt dass was ich codiert habe.
Könnt ihr da schnell drüberschauen? :)
Sub Schaltfläche31_Klicken()
Dim i As Long, strPfad As String, strOrdner As String
strOrdner = Range("K6").Value & " " & Range("K7").Value & " " & Range("K8").Value & " " & Range("K11").Value
strPfad = "Pfad\ & strOrdner &\.. "
Worksheets("X").Copy
ActiveWorkbook.Sheets("X").Columns("A:AM").Copy
ActiveWorkbook.Sheets("X").Columns("A:AM").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.SaveAs strPfad = "Name der neuen Datei"
ActiveWindow.Close
End Sub
Danke! :)