OpenOffice.info

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

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

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

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