ich schreibe mit einem Userform Daten in das Tabellenblatt Tabelle1.
Nach der Übergabe soll der Inhalt aus der Tabelle1 in einer neuen Arbeitsmappe
mit einem Zufallsnamen abgespeichert werden.
Hat jemand eine Idee wie man das lösen könnte?
LG
Sascha
Sub SpeichernMitZufallsnamen()
Dim DateiName As String
Dim i As Long
'--- Zufallsnamen erstellen
For i = 1 To WorksheetFunction.RandBetween(3, 10)
DateiName = DateiName & Chr(WorksheetFunction.RandBetween(Asc("a"), Asc("z")))
Next
'--- Tabelle1 in neue Datei kopieren
Sheets("Tabelle1").Copy
'--- neue Datei unter Zufallsnamen speichern
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & DateiName, FileFormat:=51
.Close
End With
End Sub