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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen