nachdem ich nun das gesamte Archiv durchforstet habe (nichts gefunden)
bräuchte ich Eure Hilfe.
Aus einer Userform heraus soll ein Tabellenblatt einzeln gespeichert werden.
Private Sub CommandButton3_Click()
Dim RGNr As String
RGNr = UserForm1.TextBox9.Value
If Sheets("R1").Cells(4, 10) = "ungespeichert" Then
Sheets("R1").Cells(4, 10) = "gespeichert"
Sheets("Stamm").Cells(21, 1) = RGNr
End If
Call BlattSpeichern
End Sub
Sub BlattSpeichern()
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
Sheets("R1").Activate
Sheets("R1").Select
sPath = ThisWorkbook.Path & "\" & "Rechnung" & "\"
sFile = UserForm1.TextBox9.Value & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sPath & sFile
ActiveWorkbook.Close
Windows("Fakt2006.xls").Activate
Sheets("Auswahl").Activate
Unload Userform1
UserForm1.Show
Application.ScreenUpdating = True
End Sub
Das Problem liegt darin,. Das zwar eine Mappe erzeugt, die
Daten aus "R1" eingetragen werden, jedoch meine
Arbeitsmappe "Fakt2006" unter dem Name der Userform1.
Textbox1. Value gespeichert wird.