Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Fette Schrift" zählen

"Fette Schrift" zählen
07.02.2006 11:16:53
Tom
Hallo Excel-Spezialisten,
habe in einer Tabelle, in verschiedenen Spalten Zahlen die
"fett" formatiert sind. Kann ich nun mit Excel deren Anzahl ermitteln?
Hoffe auf Euere Hilfe!
Gruss
Thomas

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "Fette Schrift" zählen
07.02.2006 11:27:31
Peter
Hallo Thomas
zum Beispiel so, wenn du deinen Bereich anpasst im Makro

Sub Zaehlen()
Dim Bereich  As Range
Dim Zelle    As Range
Dim lAnzahl  As Long
   Set Bereich = Range("A1:F20")
   
   For Each Zelle In Bereich
      If Zelle.Font.Bold = True Then
         lAnzahl = lAnzahl + 1
      End If
   Next Zelle
   
   MsgBox "es wurden " & lAnzahl & " fett geschriebene Zellen gefunden.", _
      64, "   Info für " & Application.UserName
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: "Fette Schrift" zählen
07.02.2006 18:19:27
Tom
Hallo Peter,
danke für dein schnelles Feedback!
Leider habe ich keine Kenntnisse mit VBA,
wenn ich dein Makro in den Editor eingebe,
was muss ich in die Zeile schreiben,
in der die Anzahl angezeigt wird?
Muss ich den benutzten Fonds eingeben?
Wird das Makro immer ausgeführt oder muss ich es aktivieren?
Würde mich über deine Hilfe freuen!
Gruss
Thomas
AW: "Fette Schrift" zählen
07.02.2006 18:19:40
Tom
Hallo Peter,
danke für dein schnelles Feedback!
Leider habe ich keine Kenntnisse mit VBA,
wenn ich dein Makro in den Editor eingebe,
was muss ich in die Zeile schreiben,
in der die Anzahl angezeigt wird?
Muss ich den benutzten Fonds eingeben?
Wird das Makro immer ausgeführt oder muss ich es aktivieren?
Würde mich über deine Hilfe freuen!
Gruss
Thomas
Anzeige
AW: "Fette Schrift" zählen
07.02.2006 18:19:41
Tom
Hallo Peter,
danke für dein schnelles Feedback!
Leider habe ich keine Kenntnisse mit VBA,
wenn ich dein Makro in den Editor eingebe,
was muss ich in die Zeile schreiben,
in der die Anzahl angezeigt wird?
Muss ich den benutzten Fonds eingeben?
Wird das Makro immer ausgeführt oder muss ich es aktivieren?
Würde mich über deine Hilfe freuen!
Gruss
Thomas
AW: "Fette Schrift" zählen
08.02.2006 08:06:44
Harald
Hallo Thomas,
mach es als benutzerdefinierte Funktion.
Alt + F11 (vba-Editor)
Falls Modul1 nicht vorhanden, Einfügen/Modul und diesen Code ins Modul1.

Function FetteZahl(Bereich As Range)
Application.Volatile ' damit bei Änderung ausgeführt wird
Dim Zelle
FetteZahl = 0
For Each Zelle In Bereich
If Val(Zelle) > 0 And Zelle.Font.Bold = True Then
FetteZahl = FetteZahl + 1
End If
Next
End Function

Speichern
Wechsle in dein Arbeitsblatt und in den Funktionsassi
Unter benutzerdefinierte Funktionen findest Du "FetteZahl"
Bereich eingeben ...fertich.
Die Funktion zählt dir alle fett formatierten Zahlen größer 1 !
oder für alle nicht leeren, fett formatierten Zellen
ersetze
If Val(Zelle) > 0 And Zelle.Font.Bold = True Then
durch
If Zelle.Value "" And Zelle.Font.Bold = True Then
Viel Erfolg
Gruss Harald
Anzeige
"Fette Schrift" zählen
09.02.2006 15:29:29
Tom
Hallo Harald,
vielen dank für deine Hilfe,
hab es nach deiner Anleitung eingegeben und es funktioniert!
Echt super!
Gruss
Thomas
AW: "Fette Schrift" zählen
09.02.2006 15:38:27
Tom
Hallo Harald,
ich brauche nochmals deine Hilfe,
wenn ich die "fette Schrift" nur in bestimmten Spalten zählen
will, wie soll ich dann vorgehen?
(z.B. die Spalten wo in der Titelspalte "N" steht)
Gruss
Thomas
AW: "Fette Schrift" zählen
10.02.2006 08:06:44
Harald
Hi Tom,
du könntest die Formel unterhalb dieser Spalten platzieren.
Oder wenn es als Schleife laufen soll, könnte man den Code den ich zuerst gepostet habe umstricken. Das tu ich aber erst, wenn o.g. Möglichkeit für dich nicht in Frage kommt.
Gruss Harald
Anzeige
AW: "Fette Schrift" zählen
10.02.2006 10:49:50
Tom
Hallo Harald,
ich habe mich, glaube ich, nicht richtig ausgedrückt!
In meiner Tabelle stehen in den Zeilen Namen.
Nun gibt es mehrere Spalten in denen täglich verschiedene Werte erfasst werden.
Diese können "normal" o. "fett" formatiert werden.
Nun möchte ich nicht die Anzahl aller "fetten Schrift" pro Zeile,
sondern selektiert.
z.B. gibt es für jeden Namen verschiedene Spaltenarten und das pro Tag aber
jeden Tag die gleichen Arten.
z.B. Spalte B1 steht als Überschrift "N", Spalte C1 "T", D1 "X"
nun möchte ich die Summe aller "fetten Schrift" mit dem Inhalt "N" gesamt für jede Zeile!
Ich hoffe du kannst mein Problem nachvollziehen!
Gruss
Thomas
Anzeige
AW: "Fette Schrift" zählen
10.02.2006 10:59:17
Harald
Hi,
so ganz hab ich das nicht umfaßt, aber ich denke diese Formel am Ende der Zeile dürfte die Lösung bringen.
=wenn(b1="N";FetteZahl(C1:G1);"")
Gruss Harald
AW: "Fette Schrift" zählen
10.02.2006 11:54:44
Tom
Hallo Harald,
danke für deine schnelle Antwort, leider hats mit der Formel
nicht geklappt!
Hier habe ich mal ein Beispiel (wobei natürlich in A2:B2 keine Namen stehen,
ist ein Eingabefehler)
Ich will quasi für die Namen die Anzahl der mit "fette Schrift" gefüllte
Spalten mit "N".
Ich hoffe ich konnte es dir jetzt verständlicher rüber bringen!
Gruss
Thomas
https://www.herber.de/bbs/user/30873.xls
Anzeige
AW: "Fette Schrift" zählen
10.02.2006 12:19:19
Harald
So...
jetzt zählt er für jeden Namen die Anzahl der fetten Zahlen, wenn in der Spalte ein N oben steht.
https://www.herber.de/bbs/user/30877.xls
Gruss Harald
AW: "Fette Schrift" zählen
10.02.2006 13:57:51
Tom
Hallo Harald,
1000 Dank, du hast mir sehr geholfen,
klappt prima!
Echt super, ein tolles Forum!
Gruss
Thomas
Danke für die Rückmeldung owT
10.02.2006 14:01:15
Harald
Gruss Harald
AW: "Fette Zahlen" zählen
07.02.2006 12:04:15
Harald
Hi Tom,
Fette Zahlen zählen

Sub test()
Dim zelle As Range, zaehler As Integer
For Each zelle In UsedRange
If Val(zelle) > 0 And zelle.Font.Bold = True Then
zaehler = zaehler + 1
End If
Next zelle
MsgBox zaehler
'oder
'Range("A1") = zaehler
End Sub

Gruss Harald
Anzeige

7 Forumthreads zu ähnlichen Themen

Summe nur negativer Zahlen
Christian
Hallo Leute. Ich möchte ein summe aus vielen Zahlen bilden, wobei er nur die negatibe und nur die positive addieren soll, kann mir jemand weiterhelfen? Danke
16.01.2004 21:00:29
Thread-ID: 365361
2 Beiträge
Anzeige
wenn zelle im fettdruck, dann addiere +1 ???
steffi

hallo,
ich habe ein problem, daß ich bisher leider nicht lösen konnte.
ich hoffe es kann mir jemand helfen:
ich habe eine excel tabelle erstellt. die erste zelle ( spalte a )einer zeile markiere ich manuell im fettdruck, wenn eine bestimmte voraussetzung für den datensatz ( zeile )...
04.05.2004 11:12:22
Thread-ID: 423891
5 Beiträge
summe nur von nicht durchgestrichenen zahlen
nicht

hallo!
habe eine tabelle in excel erstellt.
habe von verschiedenen zeilen die summen gebildet.
wenn etwas bezahlt wurde, streiche ich die zahl durch (format - zellen - schrift - durchgestrichen). jetzt möchte ich, dass die summe nur noch aus den zahlen besteht, die nicht durchgestri...
11.01.2005 07:31:36
Thread-ID: 544910
4 Beiträge
Anzeige
auto Summe v. fetten odr gefärbten Zahlen
Frank

Hallo Leute,
hab folgendes Problem:
möchte in der angehängten Datei automatisch in Zelle H35 alle fettgedruckten oder farbigen Zahlen des Bereichs H9:H33 addieren. Momentan gelingt es mir nur manuell über ein Makro was ich mir hier im Forum besorgt habe. Jedesmal wenn ich eine Zahl verä...
06.01.2007 19:01:07
Thread-ID: 834503
3 Beiträge
SVERWEIS Summe nur mit positiven Zahlen
Alexander

Hi Leute,
ich möchte mir gerade ein kleines Excel-Sheet aufbauen in dem ich mehr oder weniger halbautomatisiert die Kontoauszüge aus ELBA verarbeiten kann.
Dazu stehe ich nun vor folgendem Problem:
Ich habe eine Tabelle die sieht wie folgt aus:
BLATT1
Kalenderwoche | Einnahm...
27.02.2020 14:48:53
Thread-ID: 1743090
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
4
3
4
2
2