|
Hallo,
ich versuche durch mein Programm aus einer Datei in eine andere Datei zu kopieren.
Die neue Datei soll durch den Code erstellt werden, daher frage ich, über ein Formular, nach dem Dateinamen.
Damit ich mit diesen Worksheets arbeiten kann, will ich deren Dateinamen in eine Variable speichern, denn mein Code soll ja für alle Mappen funktionieren.
Ich habe versucht die Datentypen in Object und String und alles mögliche zu ändern..
Option Explicit
Public old_file_path As Object
Public old_file As String
Public new_file As Worksheet
Private destination_file As String
Public Sub formatierung()
' Set old_file_path = ThisWorkbook.path
old_file = ThisWorkbook.Name
Dateinamenabfrage.Show
'Falls ANDERE ZIELDATEI zum kopieren genutzt wird:
'HIER ÄNDERN!!!
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=old_file_path & "\" & new_file & ".xlsx"
destination_file = (new_file & ".xlsx")
In der UserForm sollte das in etwa so aufgerufen werden:
Private Sub CommandButton1_Click()
With new_file
Modul1.new_file = TextBox1.Value
Unload Me
End With
End Sub
Private Sub UserForm_Click()
End Sub
Ich habe da versucht ein "With" hinzuzufügen, weil das in der Fehlermeldung kam. Ich weiß aber nicht wie ich da weiter machen soll
Es kommt immer diese Fehlermeldung egal ob mit oder ohne With:
Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.
|