Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: exceltabelle nach Vorlage in VB 6 erstellen
Autor: workuhol
Datum: 14.11.13 15:17
Hi Blackbox Ich habs jetzt so abgeändert wie du gesagt hast. Macht auch Sinn. Funktioniert aber nicht. Die Mappe Vorlage.xls wird erzeugt aber die Tabellenblätter sind leer und haben nicht die formatierte Tabelle, wie das Tabellenblatt 1 aus der Vorlage.xlt. Mit Formatiert meine ich eine Tabelle die beschriftet und farbig unterlegt ist. Hier nochmal der Code (abgeändert) Public Sub Create_File_and_Sheets(Monat As String, Days As Integer) Dim i As Double Dim c As Integer Dim x As Integer Dim wsNew As Worksheet Dim Fil As String Fil = "Schichtbericht.xlt" xlApp.Visible = False Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & Fil) For i = 1 To Days c = Worksheets.Count x = (i) + 1 If x > Days Then Worksheets.Add After:=Worksheets(c) ActiveSheet.Name = (i) xlBook.SaveAs App.Path & "\Schichtberichte\" & Monat & ".xls" xlBook.Saved = True Set xlBook = Nothing xlApp.Quit Exit Sub End If Worksheets.Add After:=Worksheets(c) ActiveSheet.Name = (i) & "-" & x Worksheets.Add After:=Worksheets(c) ActiveSheet.Name = (i) Next i End Sub Danke fürs erste. workuhol Gru? workuhol

exceltabelle nach Vorlage in VB 6 erstellen	1.777	workuhol	13.11.13 17:54
Re: exceltabelle nach Vorlage in VB 6 erstellen	1.057	Blackbox	13.11.13 18:14
Re: exceltabelle nach Vorlage in VB 6 erstellen	1.097	workuhol	14.11.13 15:17
Re: exceltabelle nach Vorlage in VB 6 erstellen	1.055	Blackbox	14.11.13 18:52
Re: exceltabelle nach Vorlage in VB 6 erstellen	1.085	workuhol	14.11.13 19:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen