Anzahl Sheets

prak05 · 01.07.2005

Hallo Leute,
ich denke das ist ein kleines Problem, aber ich habe hier nichts dazu gefunden. :-[
Wie bekomme ich denn die Gesamtanzahl der vorhandenen Sheets heraus, und wie kann ich ein neues Sheet per makro an letzter Stelle einfügen??
Vielen Dank im Voraus.
Beste Grüße Prak

Matjes · 01.07.2005

Hallo prak05,

aber ich habe hier nichts dazu gefunden. :-[

Dem kann abgeholfen werden ;D

Gruß Matjes

Code:

Sub NeuesBlattAmEndeEinfügen()

  Dim l_Anz As Long

 ->Gesamtzahl der Blätter
  l_Anz = ActiveWorkbook.Sheets.Count
  MsgBox (Gesamtzahl der Blätter der aktiven Mappe :  &amp; l_Anz)
  
 ->Gesamtzahl der Arbeitsblätter
  l_Anz = ActiveWorkbook.Worksheets.Count
  MsgBox (Gesamtzahl der Arbeitsblätter der aktiven Mappe :  &amp; l_Anz)
  
 ->Gesamtzahl der Diagrammblätter
  l_Anz = ActiveWorkbook.Charts.Count
  MsgBox (Gesamtzahl der Diagrammblätter der aktiven Mappe :  &amp; l_Anz)

 ->Gesamtzahl der eingebetteten Diagramme im Arbeitsblatt 1
  l_Anz = ActiveWorkbook.Worksheets(1).ChartObjects.Count
  MsgBox (Gesamtzahl der eingebetteten Diagramme im Arbeitsblatt 1 :  &amp; l_Anz)

 ->Einfügen Arbeitsblatt am Ende der Mappe
  ActiveWorkbook.Worksheets.Add _
           After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
  
End Sub

prak05 · 04.07.2005

Super danke. Wie immer tolle Hilfe von Matjes.
Grüße Prak

Anzahl Sheets

prak05

Matjes

prak05

Anzahl Sheets

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums