Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zelleninhalt in einer Msgbox anzeigen lassen

1,441 views
Skip to first unread message

Heike Müller

unread,
May 8, 2003, 8:16:12 AM5/8/03
to
Hallo, ich habe eine Frage.
Seit kurzem versuche ich durch die VBA-Programmierung
durzusteigen, aber irgendwie klappt es nicht.
Mein Problem, ich möchte mir den Inhalt einer bestimmten
Zelle in Excel in einer Msgbox anzeigen lassen. Wie mache
ich das am Besten ??? Ich hoffe jemand kann mir helfen.

MfG

Heike

Marko Reichmann

unread,
May 8, 2003, 8:36:56 AM5/8/03
to
Hallo Heike,

du musst eine Variable definieren z.b. content für den
Inhalt.
Dim content As String
Sub Zelleninhalt ()
content = Left(ActiveCell, 255)

MsgBox "Zellinhalt (255 Zeichen maximal): " & content,
vbOKOnly + vbInformation, "Zellen Inhalt"
End Sub


Grüße
Marko

>-----Originalnachricht-----

>.
>

Robert Gelbmann

unread,
May 8, 2003, 8:46:31 AM5/8/03
to
Hi Heike!

---"Heike Müller" <fros...@web.de> schrieb ...


> Seit kurzem versuche ich durch die VBA-Programmierung
> durzusteigen, aber irgendwie klappt es nicht.
> Mein Problem, ich möchte mir den Inhalt einer bestimmten
> Zelle in Excel in einer Msgbox anzeigen lassen. Wie mache
> ich das am Besten ??? Ich hoffe jemand kann mir helfen.

Um den Wert der aktiven Zelle (des aktiven Blattes) anzuzeigen:

MsgBox ActiveCell.Value

Wenn du eine bestimmte Zelle des aktiven Blattes ansprechen möchtest:

MsgBox Range("F6").Value
'oder auch:
MsgBox ActiveSheet.Range("F6").Value

Wenn die Zelle auf einem anderen Blatt liegt bzw. liegen könnte:
MsgBox Worksheets("Mein Tabellenblatt").Range("F6").Value

Übrigens:
Wenn du statt .Value .Text verwendest, wird der Wert in der MsgBox so
angezeigt wie er in der Zelle steht - also insbesondere unter
Berücksichtigung des Zahlenformates.

--
In der Hoffnung damit behilflich gewesen zu sein, verbleibe ich mit
einem leisen

Servus aus Wien,
-Robert Gelbmann-

---
MS MVP CE for Excel
Excel-FAQ's: http://www.roehrenbacher.at/erc/faq/

0 new messages