Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Formelanzahl ermitteln in geschützten Blättern

Forumthread: Formelanzahl ermitteln in geschützten Blättern

Formelanzahl ermitteln in geschützten Blättern
norman
Hi alle,
bin heute noch über eine Frage gestolpert: Kann ich in einer Tabelle, die einen Blattschutz und aktiven Zellschutz auf den Formelzellen hat, ermitteln, wie viele Formeln im Blatt enthalten sind, alternativ auch auf die Gesamtdatei bezogen? Die Inhalte der Formeln sind mir egal, will nur wissen wie viele es sind.
Viele Grüße
Norman
Anzeige
AW: Formelanzahl ermitteln in geschützten Blättern
16.03.2010 00:48:38
Josef

Hallo Norman,

Sub anzahlFormelZellen()
  Dim rng As Range
  On Error Resume Next
  Set rng = ActiveSheet.SpecialCells(xlCellTypeFormulas)
  On Error GoTo 0
  If Not rng Is Nothing Then MsgBox rng.Count
End Sub

Gruß Sepp

Anzeige
AW: Formelanzahl ermitteln in geschützten Blättern
16.03.2010 01:40:38
norman
Hi Sepp,
das geht aber nicht bei geschützten Blättern und Zellen... Habs getestet. Oder steh ich auf dem Schlauch?
Viele Grüße
Norman
als Schleife im Usedrange
16.03.2010 08:34:28
Matthias
Hallo
versuchs mal so:
Dim rng As Range, x As Long
For Each rng In Tabelle1.UsedRange
If rng.HasFormula Then x = x + 1
Next
MsgBox x
Gruß Matthias
Anzeige
AW: als Schleife im Usedrange
16.03.2010 09:08:02
norman
Ahhh, das funzt, vielen Dank Matthias :) Sehr schön. Dauert aber natürlich viel länger, da alle Zellen durchgeschaut werden müssen. Gibts noch etwas, das schneller geht?
Viele Grüße
Norman
AW: als Schleife im Usedrange
16.03.2010 10:32:16
Luschi
Hallo Norman,
so sollte es flotter funktionieren:
Dim rng As Range, x As Long
For Each rng In Tabelle1.UsedRange.SpecialCells(xlCellTypeFormulas)
   If rng.HasFormula Then x = x + 1
Next
MsgBox x
Gruß von Luschi
aus klein-Paris
Anzeige
Hallo, hast Du getestet ...
16.03.2010 10:58:14
Matthias
... Luschi
SpecialCells(xlCellTypeFormulas) kann mE in einer geschützten Tabelle nicht verwendet werden.
Gruß Matthias
AW: Hallo, hast Du getestet ...
17.03.2010 01:08:30
norman
Richtig :)
Blattschutz UserInterfaceOnly:=True
16.03.2010 09:23:14
Tino
Hallo,
stelle im Code beim Blattschutz UserInterfaceOnly:=True dann geht es.
ActiveSheet.Protect "xxx", UserInterfaceOnly:=True
'...
Gruß Tino
Anzeige

Forumthreads zu verwandten Themen

Zahlenformat
Raphael Schröer

Hallo,
ich arbeite mit Downloads aus "mfg Pro" Dort sind Zahlen wie folgt formatiert: "100,000.00" Also 1000er Trennzeichen ist ein Komma und anstelle des Kommas gibte es einen Punkt. Kann ich ohne "Suchen & ersetzen" mit diesem Format arbeiten? Standardmäßig ist es Text!Danke, Raphael
<...
09.04.2003 11:45:47
Thread-ID: 242414
8 Beiträge
Zellformatierung: Zahlenformat (Trennzeichen)
Josch

Liebe Excel-Gemeinde,
habe eine Frage, für die ich keine Antwort finden konnte.
Ich möchte als 1000er-Trennzeichen ein Komma anstelle des bei uns üblichen Punktes. Als Dezimaltrennzeichen brauche ich einen Punkt anstelle des Kommas.
Beispiel:
--------------
Statt 1.234,56 (#...
26.05.2006 15:16:38
Thread-ID: 767687
2 Beiträge
Falsches Zahlenformat
Emanuel

Hallo zusammen,
ich möchte das meine Zahlen ohne Nachkommastellen und mit einem Punkt als 1000er Trennzeichen angezeigt werden.
Der Recorder hat mir diesen Code ausgespuckt: .NumberFormat = "#.##0
Wenn ich ihn anwenden, sehen meine Zahlen aber so aus: 345076,0 (statt wie gewünscht 3...
28.01.2015 12:00:52
Thread-ID: 1405610
4 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 16:11:35
Thread-ID: 1000856
4 Beiträge
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 23:06:00
Thread-ID: 1002466
3 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 11:22:45
Thread-ID: 1003367
2 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 13:08:33
Thread-ID: 1004403
5 Beiträge
Problem mit Formel
ray

Hallo,
meine Formel steht in einer Zelle und funktoniert nicht. Weiß jemand warum?
= "2007: " & Format((SUMME(D137:D168)),"##,##0.00")
Viele Grüße aus Hamburg
Ray
27.08.2008 11:41:53
Thread-ID: 1004987
3 Beiträge
Problem mit Matrixformel
Jens

Hallo liebes Forum!
Hab ein kleines Problem mit einer Matrixformel.
Es geht um Folgendes: In Blatt 1 stehen Daten in einem spaltenförmigen Bereich (nx1-Vektor), manche Zellen davon sind leer. In Blatt 2 möchte ich einen Bezug auf diese Daten in einem zeilenförmigen Bereich setzen; dazu...
27.08.2008 18:53:15
Thread-ID: 1005143
2 Beiträge
Formel: Max in Verbindung mit Mehrfachabfrage
Peter

Hallo !
Folgende Frage:
wie kann ich in einer Mehrfachabfrage den größten (max.) Wert ziehen.
Anmerkung: Die Mehrfachabfrage bekomme ich gut hin, jedoch wenn ich in der einen Formel einen von der Abfrage eingeschränkten Bereich zusätzlich nach einer höchsten Nummer möchte, geht d...
28.08.2008 20:57:50
Thread-ID: 1005572
2 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum