Fehler mit Union in einer Range (Nothing als Wert)
11.04.2017 15:48:24
Jonas
Ich habe heute etwas an einem Einstellungs Import und Export getüftelt.
Doch beim Export hab ich das so meine Probleme hier mal der Code:
Sub Export()
Dim wks As Worksheet
Dim Sett As Range
Dim varDateiname As Variant
Dim ws As Worksheet
Set Sett = Application.Union(Range("M2:M3"), Range("M6:M10"))
varDateiname = Application.GetSaveAsFilename _
("Einstellungen.xlsx", "Microsoft Excel-Dateien (*.xlsx),*.xlsx")
If TypeName(varDateiname) = "String" Then
Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets. _
_
Count))
ws.Name = "Temp1"
Worksheets(Zeitrechnung).Range(Sett).Copy
Worksheets("Temp").Range (Sett)
Worksheets(Temp).SaveAs varDateiname
Application.DisplayAlerts = False
Worksheets(Temp).Delete
Application.DisplayAlerts = True
MsgBox "Dateiname :" & vbLf & vbLf & varDateiname, vbOKOnly + vbInformation, "Datei _
wurde gespeichert :"
End If
End Sub
Einen Fehler habe ich schon gefunde bzw. ist mir ins Gesicht gesprungen mit der Meldung "Index _ außerhalb des gültigen Bereichs" , die Zeile dazu ist :
Worksheets(Zeitrechnung).Range(Sett).Copy
Worksheets("Temp").Range (Sett)
Vorab: Ich würde das wirklich gerne mit Speicherdialog machen. (Ich mag keine festen Pfade bei Import/Exports)
Gruß Jonas