Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
AW: Zelleninhalt ausgeben
09.01.2004 15:49:09
Daniel
Danke auch es funzt
Schönes weekend
daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige