Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur Zellen mit Schrift FETT addieren

Nur Zellen mit Schrift FETT addieren
27.02.2003 16:07:51
Walter
Hallo!

Da meine Addition von Zellen mit Hintergrund (durch Bedingte Formartierung) sehr aufwendig sein wird, möchte ich jetzt nur noch die Anzahl der Zellen mit FETT-Schrift ermitteln.
Vielen Dank im voraus"
MFG
Walter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nur Zellen mit Schrift FETT addieren
27.02.2003 16:41:40
Harald Kapp

Hallo Walter,
mit folgender Funktion z.B.:

Diese Funktion im VBA-Editor eingeben und im Excel-Sheet wie die normale Summe() aufrufen. Achtung: Wenn Du einen Wert änderst, wird die Summe auch antsprechend der Formatierung neu berechnet. Wenn Du aber nur die Formatierung änderst, dann wird NICHT automatisch neu berechnet. Denn die Zahelnwerte ändern sich ja nicht.

Gruß Harald

Re: Nur Zellen mit Schrift FETT addieren
27.02.2003 19:54:30
Walter

Hallo Harald,

vielen Dank für deine Hilfe!
Ich habe nun versucht deine Formel abzuändern um die Anzahl der Zellen zu ermitteln. Leider stimmt das ergebnis nicht. Kannst Du weiterhelfen?
Gruß
Walter
Function Summe_Fett(Quelle As Range) As Integer
Dim zelle As Range
Dim tmp As Integer
tmp = 0
For Each zelle In Quelle
If zelle.Font.Bold Then
tmp = tmp + 1
End If
Next
Summe_Fett = tmp
End Function

Anzeige
Re: Nur Zellen mit Schrift FETT addieren
27.02.2003 20:34:23
Walter

Fehler gefunden!
Danke!

Gruß
Walter
Function Summe_Fett(Quelle As Range) As Double
Dim zelle As Range
Dim tmp As Double
tmp = 0
For Each zelle In Quelle
If zelle.Font.Bold And zelle.Value > 0 Then
tmp = tmp + 1
End If
Next
Summe_Fett = tmp
End Function

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige