Sheets.Add wo ist der Fehler ?
31.10.2016 14:02:16
Max2
habe eine kleine UserForm mit 3 Buttons und einer Combobox.
Mit dem ersten Button wählt man einen Ordner aus, in der Combobox stehen dann alle CSV-Dateien, die in dem ausgewählten Ordner vorhanden sind, drinnen.
Der zweite Button gibt einem nur zwei Inputboxen die den Variablen k und l einen Wert geben.
Der dritte Button soll dann die Ausgewählte Datei öffnen und ihren Inhalt in die Datei mit dem Makro Kopieren
Code des dritten Buttons sieht wie folgt aus:
Set WbkEinfügen = ThisWorkbook
Workbooks.OpenText Filename:=strDateiName, DataType:=xlDelimited, _
TextQualifier:=xlTextQualifierDoubleQuote, Comma:=True, _
DecimalSeparator:=".", ThousandsSeparator:=" "
Set WbkKopieren = ActiveWorkbook
WbkKopieren.ActiveSheet.Range("A:ZZ").Copy
WbkEinfügen.Sheets.Add After:=Worksheets(Worksheets.Count).Name = "Scan" & "_" & k
Set WksÜbersicht = WbkEinfügen.Sheets("Scan" & "_" & k)
WksÜbersicht.Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
WbkEinfügen ist ja ThisWorkbook also die Datei mit der UserForm und WbkKopieren ist die geöffnete csv-Datei.
Wo hab ich den Fehler gemacht ?