Inhalt einer Zelle auslesen

[DeltaPi]

Ich habe überall gesucht, wahrscheinlich sogar die richtige lösung gefunden aber überlesen oder nicht verstanden.... also los


Wie kann ich den Inhalt aus A1 meiner aktuellen Tabelle 1 auslesen und in einer MessageBox ausgeben

[fichte.buche]

Eine Möglichkeit ist folgendes Macro

Sub Main

Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Dim Inhalt as Variant

Doc = thisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0,0)
Inhalt = Cell.Text

msgbox Inhalt

End Sub

mfg
Fichte.Buche

[moritz]

Versuchs mal so:
Sub Main
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Dim Inhalt as Variant
Dim sInhalt as string

Doc = thisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0,0)
sInhalt=Cell.getstring 'Zahlen und Zeichenketten
Inhalt = Cell.Value 'nur Zahlen

msgbox sInhalt
msgbox Inhalt(0)

End Sub
Moritz

[DeltaPi]

Danke, es funktioniert...super jetzt kann ich endlich mal anfangen