Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelleninhalt ausgeben

Forumthread: Zelleninhalt ausgeben

Zelleninhalt ausgeben
09.01.2004 14:45:25
Daniel
Hallo zusammen,
nochmals ein problemchen. Ich suche in einem Bereich einen bestimmten Zellinhalt, d.h. wenn die entsprechende Zelle "fett" formatiert ist sollte der Inhalt ausgegeben werden, welchen ich später weiterverwenden muss. Irgenwie funzt es nicht so... Die msgbox wird wohlangezeigt aber der Zellinhalt wird nicht ausgegeben.
Daniel
dim rng as range
set Bereich = ("A2:B3")
for each rng in Bereich
if rng.font.bold then
msgbox rng.value
end if
next rng
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt ausgeben
09.01.2004 14:50:05
Bertram
Hallo Daniel,
so sollte es eigentlich funktionieren:


Sub Fett()
Dim rng As Range
Dim Bereich As Range
Set Bereich = Range("A2:B3")
For Each rng In Bereich
If rng.Font.Bold Then
MsgBox rng.Value
End If
Next rng
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram
Anzeige
AW: Zelleninhalt ausgeben
09.01.2004 15:48:22
Daniel
Danke hat hingehauen.
Schönes weekend
daniel
AW: Zelleninhalt ausgeben
09.01.2004 14:50:15
k.Rola
Hallo,
Option Explicit

Sub test()
Dim rng As Range, Bereich As Range
Set Bereich = [A2:B3]
For Each rng In Bereich
If rng.Font.Bold Then
MsgBox rng.Value
End If
Next rng
End Sub


Gruß K.Rola
Anzeige
AW: Zelleninhalt ausgeben
09.01.2004 15:49:09
Daniel
Danke auch es funzt
Schönes weekend
daniel
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige