Code:
Public Function Daten_schreiben(Datensatz As Variant)Dim Dateipfad_schreiben As String
Dim Dateinamen_schreiben As String
Dim Speicherort As String
Dim Arbeitsbereich As Object
Dim Arbeitsblatt As Object
Dim i As Double
Dim j As Double
Dim savedate As String
Dim Korrektur As Single
Dim ArbeitsblattNeu As String
savedate = Right$((Date), 4) & "-" & Mid$((Date), 4, 2) & "-" & Left$((Date), 2)
ArbeitsblattNeu = "Rohdaten " & savedate
Set Arbeitsbereich = CreateObject("Excel.Application")
Speicherort = Arbeitsbereich.GetOpenFileName(FileFilter:="Excel-Dateien (*.xlsm*), *.xlsm*", Title:="Eine Datei zum Öffnen auswählen", MultiSelect:=False)
Arbeitsbereich.Visible = False
Set Arbeitsblatt = Arbeitsbereich.Workbooks.Open(Speicherort)
Arbeitsblatt.Activate
Arbeitsblatt.Worksheets.Add.Name = ArbeitsblattNeu
Arbeitsblatt.Worksheets(ArbeitsblattNeu).Move After:=Arbeitsblatt.Worksheets(Arbeitsblatt.Worksheets.Count)
Arbeitsblatt.Worksheets(ArbeitsblattNeu).Activate
Arbeitsbereich.Visible = True
Arbeitsblatt.Worksheets("CAD-EPLAN Handover List").Activate
Auswertung = True
Set Arbeitsbereich = Nothing
Set Arbeitsblatt = Nothing
End Function