Thema Datum  Von Nutzer Rating
Antwort
Rot Übergabe einer Objektvariable
07.02.2018 08:40:09 ChriizZy
NotSolved
07.02.2018 09:26:07 Gast12135
Solved

Ansicht des Beitrags:
Von:
ChriizZy
Datum:
07.02.2018 08:40:09
Views:
47
Rating: Antwort:
  Ja
Thema:
Übergabe einer Objektvariable

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Übergabe einer Objektvariable
07.02.2018 08:40:09 ChriizZy
NotSolved
07.02.2018 09:26:07 Gast12135
Solved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar