Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Als XLSM speichern / Textbox

Als XLSM speichern / Textbox
16.03.2020 10:14:39
Uwe
Guten Morgen in die Runde und ich hoffe das ihr alle gesund seit.
Kann mir jemand bei der beigefuegten Beispielmappe helfen ?
https://www.herber.de/bbs/user/135885.xlsm
Beim betaetigen des Commandbutton geht das UserForm auf. Der Button soll zum Speichern des Excelsheet dienen.
In dem Userform soll beim aufrufen in dem unteren Textfeld Textbox2 der Eintrag aus der Zelle E4 angezeigt werden und nicht zu bearbeiten sein.
Im oberen Textfeld Textbox1 soll von dem Benutzer etwas eingetragen werden koennen ( z.B. ein Projektname )
Beim betaetigen des Button "Okay" im Userform soll der Windows Dialog zum "Save AS" aufgehen und den Speicherpfad C:/Eigene Dateien anzeigen / vorschlagen.
Als Speichername der Datei soll wie folgt vorgeschlagen werden:
( Projektname aus Textbox1 im Userform ) ( Die Nummer aus E4 / Textbox2 im Userform).xlsm
Vielen Dank fuer eure Hilfen und Unterstuetzung und einen schoenen Tag
Uwe
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Als XLSM speichern / Textbox
17.03.2020 15:57:45
volti
Hallo Uwe,
hier mal ein Vorschlag, wie Du das realisieren könntest.
"Eigene Dateien" habe ich nicht mehr, kann ich daher nicht testen.....
Datei.xlsm
Und hier noch der Code aus der Userform zur Vorabansicht...
Private Sub CommandButton1_Click()
  Dim sPath As String, sFile As String
  If Me.TextBox1.Value = "" Then
    MsgBox "Du hast keinen Kundennamen in die Textbox eingetragen!", vbCritical, "Kundennamen eingeben"
    Me.TextBox1.SetFocus
    Exit Sub
  End If
  sPath = "C:\Eigene Dateien\"
'  sPath = Environ$("USERPROFILE") & "\"
'  sPath = CreateObject("wscript.shell").SpecialFolders(16) & "\"
  sFile = Me.TextBox1.Text & "_" & Me.TextBox2.Text & ".xlsm"
  If Application.Dialogs(xlDialogSaveAs).Show(Arg1:=sPath & sFile) = False Then
    MsgBox "Die Datei wurde nicht gespeichert!", vbCritical, "Datei speichern"
  End If
  Unload Me
End Sub
Private Sub Userform_Activate()
 With Me.TextBox2
   .Locked = False
   .Value = ActiveSheet.Range("$E$4").Value
   .Locked = True
 End With
End Sub


viele Grüße
Karl-Heinz

Anzeige
AW: Als XLSM speichern / Textbox
18.03.2020 10:24:49
Uwe
Hallo Karl-Heinz,
das ist super und funktioniert einwandfrei. Vielen Dank und einen schoenen Tag Uwe
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige