Hallo zusammen,
mit nachfolgendem Code übertrage ich aus einer xml-Datei in eine xlsx-Datei.
In der xml-Datei stehen keine Leerzeilen, wenn ich in den Datenfilter rein schaue.
In der xlsx-Datei sind auf einmal Leerzeilen vorhanden.
Hat da jemand eine Erklärung warum das so ist?
<pre>Sub Kalkulator_auslesen()
Dim strDatenKalkulator As String
Dim wbKalkulator As Workbook
Dim LZeile As String
With ActiveSheet
LZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strDatenKalkulator = "G:\Allgemein\AngebotsTool-Hochbau_Update\4314_XML_Masterexport_Artikelstamm_Kalkulator.xml"
Set wbKalkulator = Workbooks.OpenXML(Filename:=strDatenKalkulator, LoadOption:=xlXmlLoadImportToList)
Application.DisplayAlerts = True
wbKalkulator.Sheets("Kalkulator").Range("A2:CO1500").Copy ThisWorkbook.Sheets("DatenstammQuelle").Range("A2")
Call wbKalkulator.Close(savechanges:=False)
Set wbKalkulator = Nothing
Application.ScreenUpdating = True
End <pre>Sub