Code umstellen, aber wie?
15.04.2006 14:02:27
Mark
ich möchte den folgenden Code einwenig umbauen.
Allgemeines zum Code. Er soll eine Art Kopie des Druckbereiches erstellen und speichern. Funktioniert schon wunderbar! Danke an Tassos!
Da ich nicht viel von VBA verstehe, bitte ich hier um eure Hilfe. Habe es jetzt mehrere Stunden probiert - ohne Erfolg.
Folgende Änderungen hätte ich gerne:
1. Klick auf CommandButton öffnet Speichern unter Dialog
2. Dann neuen Dateiname eingeben
3. Dateikopie speichern und schießen
Hier der Code:
Sub export()
On Error GoTo Ende
With Application
Dim sh As Worksheet, wb$, b$, wbpath$, wbname$
.ScreenUpdating = False
.EnableEvents = False
.Cursor = xlWait
Sheets(1).Copy After:=Sheets(1)
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Shapes("cmd_nachweis").Delete
Set sh = ActiveSheet
With ActiveWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.SheetsInNewWorkbook = 1
wb = Workbooks.Add.Name
.SheetsInNewWorkbook = 3
ThisWorkbook.Sheets(2).Copy Before:=Workbooks(wb).Sheets(1)
b = Range(ActiveSheet.PageSetup.PrintArea).Row - 1
Rows("1:" & b).Delete Shift:=xlUp
.DisplayAlerts = False
Sheets(2).Delete
.DisplayAlerts = True
Sheets(1).Name = ThisWorkbook.Sheets(1).Name
Range("A1").Select
wbpath = ThisWorkbook.Path
wbname = "Kopie von " & ThisWorkbook.Sheets(1).Range("AB1").Value
ChDir wbpath ' optional
ActiveWorkbook.SaveAs Filename:= _
wbpath & "\" & wbname & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Ende:
.DisplayAlerts = False
ThisWorkbook.Sheets(2).Delete
.DisplayAlerts = True
.Cursor = xlDefault
.EnableEvents = True
End With
End Sub
Oder das Beispiel unter
https://www.herber.de/bbs/user/32888.xls
Danke für jede Antwort
-Mark-
Anzeige