Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige