AW: Gefahr im Verzug ;-)
15.04.2006 00:02:14
Mark
Hallo Tassos und Helpers,
vielen Dank für Euren Beitrag. Meine Frage ist eigentlich nicht mehr offen, habe allerdings eine darauf aufbauende Frage.
Bin leider in VBA nicht so bewandert und habe Schwierigkeiten die Speicherpfade anzupassen. Grundsätzlich sollte die Speicherabfrage wie zuvor ablaufen.
Hier mein Ansatz mit Deinem Code. Klappt aber nicht richtig.
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 = Workbooks("Startseite.xls").Worksheets("Startseite").Range("a60")
wbname = Application.GetSaveAsFilename(wbpath & "\Projekte\", "Excel-Arbeitsmappe (*.xls),*.xls", , "Datei speichern")
If wbname = False Then Exit
Sub 'Abbruch des Menüpunktes "Speichern unter"
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
Vielleicht kannst Du ja nochmal rüberschauen.
Ihr seht sowas ja immer sofort.
Ich werde`s weiter probieren.
Aber bis hierhin nochmal vielen Dank und FROHE OSTERN!
Gruß
-Mark-