Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1228to1232
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
Inhaltsverzeichnis

Abfrage "Schriftart FETT"

Abfrage "Schriftart FETT"
reiner
Hallo Leute,
In einem vorgegebenen Teil einer Tabelle soll eine Variable den Wert "1" erhalten wenn mindestens eine Zelle mit Texteingabe die Schriftart "FETT" aufweist.

If Range(Cells(1, 1), Cells(3, 3)).Font.Bold Then Variable =1

Mit vorgenannter Formel hatte ich bislang keinen Erfolg, wo liegt mein Fehler?
mfg
reiner

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

Betreff
Benutzer
Anzeige
AW: Abfrage "Schriftart FETT"
08.09.2011 15:59:29
Henrik
huhu reiner,
eine Möglichkeit:

If Range(Cells(1, 1), Cells(3, 3)).Font.Bold = False Then Variante = 0 Else Variante = 1

Gruß Henrik
AW: Abfrage "Schriftart FETT"
08.09.2011 16:02:55
Rudi
Hallo,
du musst jede Zelle einzeln prüfen.

  Dim c As Range, Var
For Each c In Range(Cells(1, 1), Cells(3, 3))
If c.Font.Bold Then
Var = 1
Exit For
End If
Next

Gruß
Rudi
AW: Abfrage "Schriftart FETT"
08.09.2011 16:39:13
reiner
danke für eure Tipps, nun funktioniert es
mfg
reiner
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige