mit einem Menü _ Button möchte ich ein
einzelnes Tabellenblatt ("RG") abspeichern
Hierzu rufe ich eine UF auf welche den Namen
für dies zu speichernde TB beinhaltet.
Nun ist es jedoch so, dass zwar die Tabelle ("RG")
kopiert, jedoch meine Arbeitsmappe ("Rechnung")
unter den Namen von txt4 & txt1 gespeichert wird
Nummer = frmspeichern.TextBox4.Value 'RGNr wird höher gezählt
Sheets("Data").Activate
Sheets("Data").Cells(1, 7) = Nummer + 1
Sheets("RG").Select 'Blatt das neu gespeichert werden soll
ActiveSheet.Copy
ActiveSheet.Activate
sPath = ThisWorkbook.Path & "\" & "Rechnungen" & "\"
sFile = frmspeichern.TextBox4.Value & " " & _
frmspeichern.TextBox1.Value & ".xls"
Range("B1").Select
ActiveWorkbook.SaveAs sPath & sFile
Unload frmspeichern
MsgBox "Die" _
& Chr(13) & "Rechnung wurde unter" _
& Chr(13) & sPath _
& Chr(13) & sFile _
& Chr(13) & "gespeichert!"
ActiveWindow.WindowState = xlMinimized
Workbooks("Rechnung.xls").Worksheets("Tabelle1").Select
ActiveWindow.WindowState = xlMaximized
Call Löschen' Einträge in Vorlage löschen
Danke für Eure Hilfe
Gruß
crissi