Liste in Tabellenblaetter in neuer Datei
23.02.2017 21:18:47
Philipp
ich bin verzweifelt und brauche eure Hilfe.
Mein Ziel:
Ich habe eine Liste mit Kundennummern in der Datei A. Diese moechte ich in Tabellenblaettern in der Datei B haben. Die Anzahl der Kundennummern ist variabel, d.h die Range sollte bestimmt werden koennen.
Meine Ueberlegung:
Neue Datei erstellen und ueberfluessige Tabellenblaetter loeschen. Dann Liste durch gehen und in Tabellenblaetter einbringen.
Hier schon mal ein Stueck Code:
Option Explicit
Global wkb As Workbook
Global ws As Worksheets
Sub main()
Dim copylost As ListColumn
Range("A1:A29").Select
Selection.Copy
'add new file
Set wkb = Workbooks.Add
'rename file
wkb.SaveAs Environ("UserProfile") & "\Desktop\" & "Commission" & Format(Now, "YYYYMMDD_hhmm" _
_
_
_
_
_
) & ".xlsx"
Call deleteWorksheets
'Call createSheets
wkb.Close True
End Sub
Sub deleteWorksheets()
Application.DisplayAlerts = False
While Worksheets.Count > 1
Worksheets(1).Delete
Wend
Application.DisplayAlerts = True
End Sub
Schon mal vielen Dank fuer die Hilfe!!
VG Philipp