Bitte keine Beischlafanfragen mehr – mein Kalender ist voll!

Guten Tag Herr Martin

Ich hoffe ihnen geht es gut.

Könne Sie mir nochmals sagen, wo ich die Funktion finde wie gross eine Excel-Datei ist

  • Anzahl Register
  • Benötigte Zellen
  • Anzahl Formeln

Danke

Freundliche Grüsse

####

Hallo Herr S.,

Sie meinen die VBA-Befehle, mit denen man das herausbekommt?

– Anzahl der Tabellenblätter (Register):

ThisWorkbook.Sheets.Count

– Benötigte Zellen:

UsedRange

oder:

Range(„A1“).SpecialCells(xlCellTypeLastCell)

ist die letzte Zeile. Sie hat die Eigenschaften Row und Column – also die Nummer der Zeile und die Nummer der Spalte. Noch weiter rechts, bzw. unten gibt es nichts.

– Anzahl Formeln

dafür gibt es keinen einfachen Befehl. Entweder Sie durchlaufen alle verwendeten Zellen in UsedRange

Option Explicit

Sub AnzFormeln()

    Dim xlBlatt As Worksheet

    Dim xlZelle As Range

    Dim lngAnzahl As Long

    Set xlBlatt = ActiveSheet

    For Each xlZelle In xlBlatt.UsedRange

        If xlZelle.HasFormula Then

            lngAnzahl = lngAnzahl + 1

        End If

    Next

    MsgBox „Anzahl der Zellen mit Formeln: “ & lngAnzahl

End Sub

Hilft das?

2 Kommentare

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht.