Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: exceltabelle nach Vorlage in VB 6 erstellen
Autor: workuhol
Datum: 14.11.13 19:25
Hi Blackbox Ich weiss nicht wie man das macht mit dem Flag. Ich habe rumprobiert und mir in der XLT Datei ein Makro erstellt das mir die Tabelle mit allem erzeugt und rufe das Makro immer auf wenn ich ein Tabellenblatt erstelle. Dauert nur ziemlich lang bei über 600 Tabellenblätter. Hier der Code: 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) Call Makro1 ' Makro zum erzeugen der Tabelle 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) Call Makro1 ' Makro zum erzeugen der Tabelle ActiveSheet.Name = (i) & "-" & x Worksheets.Add After:=Worksheets(c) Call Makro1 ' Makro zum erzeugen der Tabelle ActiveSheet.Name = (i) Next i End Sub Danke 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.096	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