Microsoft Excel

Herbers Excel/VBA-Archiv

SheetsInNewWorkbook

Betrifft: SheetsInNewWorkbook von: torsten
Geschrieben am: 31.08.2004 10:26:07

Hallo zusammen,

ich möchte beim erstellen eines neuen Workbook die Anzahl der Tabellenblätter übergeben. Die SheetsInNewWorkbook Funktion bekam ich aus der Excel-Hilfe, kann damit aber leider nicht. Könnte mir bitte jemand helfen?

Danke und Gruß

Torsten

  


Betrifft: AW: SheetsInNewWorkbook von: Boris
Geschrieben am: 31.08.2004 10:31:15

Hi Torsten,

wo ist das Problem?

Sub test()
Application.SheetsInNewWorkbook = 4 'Individuelle Vorgabe
Workbooks.Add
Application.SheetsInNewWorkbook = 3 'wieder auf Standardeinstellung zurücksetzen
End Sub


Grüße Boris


  


Betrifft: AW: SheetsInNewWorkbook von: Dieter Maj
Geschrieben am: 31.08.2004 10:32:36

Hallo Torsten

Sub neu()

Application.SheetsInNewWorkbook = 3
Workbooks.Add

End Sub


Gruß Dieter


  


Betrifft: AW: SheetsInNewWorkbook von: K.Rola
Geschrieben am: 31.08.2004 10:35:07

Hallo,

wenn du z.B. nur ein Blatt brauchst:

dim wb as workbook
set wb = workbooks.add(1)

Gruß K.Rola


  


Betrifft: AW: SheetsInNewWorkbook von: torsten
Geschrieben am: 31.08.2004 10:37:13

Super vielen dank, hatte erst wb.add und dann ist natürlich falsch