Bereich abfragen

Forumthread: Bereich abfragen
7 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bereich abfragen

Bereich abfragen

02.03.2004 15:56:46

Suppenhuhn

Ich möchte den Wahrheitswert ermitteln, ob in dem Bereich ("A1:AA7,X5:X10,YY200:YZ438") alle Zellinhalte "Fett" formatiert sind.
Wie mache ich das ?
Danke !

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereich abfragen

02.03.2004 16:03:39

Boris
AW: Bereich abfragen

02.03.2004 16:19:22

Suppenhuhn
NOCH OFFEN

02.03.2004 17:21:53

Boris
tut es auch...oT

02.03.2004 17:23:30

Ulf
läuft einwandfrei...oT

02.03.2004 17:34:36

y
bei mir auch :-) ot

02.03.2004 17:38:50

Andi
Es tut es tatsächlich !

02.03.2004 21:12:40

Suppenhuhn

AW: Bereich abfragen

02.03.2004 16:03:39

Boris

Hi Suppenhuhn,
bitte poste hier mit deinem (oder einem) Realnamen - dies ist hier so üblich.
Spalten YY und YZ?!?
VBA gut?
Option Explicit


Sub alle_fett()
Dim C As Range, Bereich As Range
Set Bereich = Range("A1:A7,X5:X10,Y200:Y438")
For Each C In Bereich
If C.Font.Bold = False Then
MsgBox "Sind nicht alle fett...", , "Gebe bekannt..."
Exit Sub
End If
Next C
MsgBox "Alle fett...", , "Gebe bekannt..."
End Sub

Grüße Boris

AW: Bereich abfragen

02.03.2004 16:19:22

Suppenhuhn

Danke Boris !
Gut liegt im Auge des Betrachters.
Ach übrigens.
Script funktioniert nicht.
Fehler 400 !?!?!

NOCH OFFEN

02.03.2004 17:21:53

Boris

Hi,
...keine Ahnung - das muss funktionieren...
Grüße Boris

tut es auch...oT

02.03.2004 17:23:30

Ulf