Export eines einzelnen Blattes
25.02.2016 13:37:38
Maurice
ich habe gerade ein Problem mit einer automatischen Exportfunktion.
Ich soll für meine Abteilung ein kleines Tool schreiben, das mir Flächen berechnet. Soweit funktioniert alles. Doch nun soll man die Berechnung abspeichern können, sprich das Tabellenblatt soll exportiert werden. Format und Werte, die Formeln nicht. Zudem soll der Speicherort und der Name frei wählbar sein...
Leider habe ich zu wenig Erfahrung mit Excel VBA und es reicht für eine kleine automatisierte Schleife für die Berechnung. Bei der Export Geschichte bin ich aber leider raus.
Aktuell sieht mein Code (wenn man das so nennen darf) so aus:
Sub Export_Test()
' Export_Test Makro
Sheets("01_MASTER FLAECHENPLANUNG").Select
Dim letztezeile As String
letztezeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("01_MASTER FLAECHENPLANUNG").Select
Range(Cells(2, 23), Cells(letztezeile, 115)).Select
Selection.Copy
Sheets(Sheets.Count).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Sheets(Sheets.Count).Select
Application.CutCopyMode = False
Sheets(Sheets.Count).Move
'Application.WindowState = xlMinimized
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(fileFilter:="xlsx Datei (*. _
xls), *.xls"), FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = False
End Sub
Ich habe aber so langsam den Mut verloren, da es mehr und mehr zu einem blinden Rumstochern ausartet, und nichts mehr mit fundierter Arbeit zu tun hat.
Kann mir dabei jemand helfen, oder kennt jemand eine Lösung die bereits in den weiten des Netzes existiert?
Gruß Maurice