Fehler beim speichern eines Workbooks aus Tabelle
12.04.2017 08:07:23
Jonas
gestern habe ich etwas an meinem Code geschraubt:
Sub Export()
Dim wks As Worksheet
Dim Sett As String
Dim Sett2 As String
Dim varDateiname As Variant
Dim ws As Worksheet
Dim wkb1 As Variant
Dim wkb2 As Variant
Set wkb1 = ActiveWorkbook
Sett = Application.Range("M2:M3").Address
Sett2 = Application.Range("M6:M10").Address
varDateiname = Application.GetSaveAsFilename("Einstellungen.xls", "Microsoft Excel-Dateien ( _
*.xls),*.xls")
'Worksheets("Temp").Delete
If TypeName(varDateiname) = "String" Then
Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets. _
Count))
ws.Name = "Temp"
Workbooks("wkb1").Sheets("Zeitrechnung").Range(Sett).Value = Workbooks("wkb1").Sheets(" _
Temp").Range(Sett).Value
Workbooks("wkb1").Sheets("Zeitrechnung").Range(Sett2).Value = Workbooks("wkb1").Sheets(" _
Temp").Range(Sett2).Value
ActiveWorkbook.Sheets("Temp").SaveAs varDateiname
Application.DisplayAlerts = False
Sheets("Temp").Delete
Application.DisplayAlerts = True
MsgBox "Dateiname :" & vbLf & vbLf & varDateiname, vbOKOnly + vbInformation, "Datei _
wurde gespeichert :"
End If
End Sub
Er soll folgendes bewerkstelligen:
Er kopiert die Daten aus zwei Ranges in ein zweites Blatt und soll dieses dann als eigenen Datei speichern und die orginal Datei so belassen.
Das kopieren ins andere Blatt klappt das speichern nicht wirklich er speicht nämlich die ganze Excel unter dem neuen Namen. Leider konnte ich den Fehler bis jetzt nicht finden :/ .
Gruß Jonas