Office: Speichern unter Inhalt Textfeld Userform

Hallo und einen schönen guten Morgen!

Ich habe eine Userform, bei der hinter CommandButton1 ein Makro steht, welches meine Excel mit einem Dateinamen speichert, den sich das Makro aus einer bestimmten Zelle (f7) holt. Funktioniert ohne Probleme.
Nun habe ich in die Userform ein Textfeld eingebracht, in das der Benutzer den Dateinamen eingeben soll. Da Makro soll den Namen also nicht mehr aus Zelle Q4, sondern aus dem Textfeld der Userform holen.

Kann mir das bitte jemand entsprechend umschreiben?

Private Sub CommandButton1_Click()

Sheets("Allgemeines").activate
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("q4").Value
If Right(lw_pfad, 1) "\" Then lw_pfad = lw_pfad & "\"
'Hier den Laufwerkspfad angeben, wohin gespeichert werden soll
ActiveSheet.Range("q4").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("f7").Value & ".xlsm"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("f7").Value & ".xlsm gespeichert.", , "tk"
Sheets("Allgemeines").select
range("a1").select



Application.Wait Now + TimeSerial(0, 0, 1)

Unload Me

End Sub


Herzlichen Dank!

Gruss Nukleus

:)

 

Hallo

das hier wäre ein Weg (ungetestet)
Code:

MfG Tom

 

Hallo Crazy Tom,

Danke für deine Antwort.

Das Makro bleibt an folgender Stelle hängen:

ActiveWorkbook.SaveAs lw_pfad & strName & ".xlsm"

 

Hallo

nun habe ich es gestestet
in Zelle Q4 steht bei mir

C:\Users\Tom\Documents\

wenn ich in die TextBox den Namen eingebe speichert das Makro die Mappe unter dem Namen in dem Ordner
heißt deine TextBox denn auch Textbox1?
und welche Fehlermeldung wird denn ausgegeben?

MfG Tom

 

Hallo Tom,

war mein Fehler:

Ich benutze die Excel im Betrieb, deshalb war der Laufwerkspfad falsch. Nachdem ich einen Pfad meines privaten Rechners eingegeben habe, läuft dein Umbau perfekt.

Herzlichen Dank!