Anzahl Sheets

Dieses Thema Anzahl Sheets im Forum "Windows XP Forum" wurde erstellt von prak05, 1. Juli 2005.

Thema: Anzahl Sheets Hallo Leute, ich denke das ist ein kleines Problem, aber ich habe hier nichts dazu gefunden. :-[ Wie bekomme ich...

  1. 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
     
  2. Hallo prak05,


    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 :  & l_Anz)
      
     ->Gesamtzahl der Arbeitsblätter
      l_Anz = ActiveWorkbook.Worksheets.Count
      MsgBox (Gesamtzahl der Arbeitsblätter der aktiven Mappe :  & l_Anz)
      
     ->Gesamtzahl der Diagrammblätter
      l_Anz = ActiveWorkbook.Charts.Count
      MsgBox (Gesamtzahl der Diagrammblätter der aktiven Mappe :  & l_Anz)
    
     ->Gesamtzahl der eingebetteten Diagramme im Arbeitsblatt 1
      l_Anz = ActiveWorkbook.Worksheets(1).ChartObjects.Count
      MsgBox (Gesamtzahl der eingebetteten Diagramme im Arbeitsblatt 1 :  & l_Anz)
    
     ->Einfügen Arbeitsblatt am Ende der Mappe
      ActiveWorkbook.Worksheets.Add _
               After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
      
    End Sub
     
  3. Super danke. Wie immer tolle Hilfe von Matjes.
    Grüße Prak
     
Die Seite wird geladen...

Anzahl Sheets - Ähnliche Themen

Forum Datum
Nutzeranzahl für Netzwerkfreigabe unter Win 7 Firewalls & Virenscanner 4. März 2010
Welche Einstellung? Prozessoranzahl [GESCHLOSSEN] Windows 7 Forum 28. Juli 2009
In der registry die anzahl der verbleibenden wiederherstellungspunkte bestimmen? Windows XP Forum 26. Sep. 2011
Excel: Summe beliebiger Anzahl Zellen (also nicht die Werte) ? Microsoft Office Suite 2. Dez. 2010
Excel - Anfänger - Zelle soll nur durch best. Anzahl der Zellen teilen Windows XP Forum 5. Feb. 2010