OpenOffice.info

Hallo Forum,

ich verwende ein Calc-Dokument, um meine Umsätze zu erfassen. Das ganze ist eine laufende
Liste mit Ein- und Ausgaben. Die Zeilen wiederholen sich mit geringen Abweichungen. Beispiel:

In einer Zeile steht:

(Datum; Konto; Posten; Kosten)
03.02.09; Internet; HostEurope ReNr 12345; 9,99 ...

Hallo Charly,

auf den ersten Blick würde ich sagen, es ist exakt das, was ich brauche. Tausend Dank !!!
Daran kann man hervorragend nachvollziehen, wie es geht.

beste gruesse,
heinetz

Hallo Forum,

nun habe ich einen Listener gefunden, der eventuell für mein Makro passen könnte und ausprobiert:

Sub initializeListener
oListener = CreateUnoListener( "ClicListener_", "com.sun.star.view.XSelectionChangeListener" )
oDocument = ThisComponent
oDocument.getCurrentController ...

Jo,

das mit dem Listener habe ich nun auch schon mehrfach gelesen. Allerdings auch, dass
es je nach Event verschiedene Typen von Listenern gibt und welcher nun für mich der
richtige ist (beim markieren von irgendwas?), konnte ich nicht herausfinden. Ausserdem
habe ich nicht ganz verstanden, wo und ...

Hallo Forum,

so sieht's jetzt aus und funktioniert schon ganz gut:

REM ***** BASIC *****

Sub Main

oDoc = ThisComponent
ListeSheet = oDoc.sheets.getbyname("Liste")
AusdruckSheet = oDoc.sheets.getbyname("Ausdruck")

oSelect = ThisComponent.CurrentSelection.getRangeAddress
oSelectAR = oSelect ...

Hi,

tausend Dank.

Zellenwert = ListeSheet.getcellrangebyname("A1").value

Und jetzt würde ich die '1' aus 'A1' gerne 'dynamisieren'. Etwa so:

$ZELLE = "A"+aktuelle_markierung().zeile();
Zellenwert = ListeSheet.getcellrangebyname($ZELLE).value

tausend Dank für jeden Tipp und
beste gruesse ...

Hallo Forum,

vielleicht fange ich mal anders an:

Wie sieht ein Makro aus, dass den Wert der Zelle A1 in Tabellenblatt 'Liste' in B5 in Tabellenblatt 'Ausdruck' schreibt ?

danke für Hilfe und

beste gruesse,
hienetz

Hallo Forum,

das folgende Macro ist ein ursprüngliches Excel-Macro und von Calc so importiert:

Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Ausdruck").Cells(1, 3) = Cells(ActiveCell.Row, 2)
Worksheets("Ausdruck").Cells(2, 3 ...

Hallo Forum,

das folgende Macro ist ein ursprüngliches Excel-Macro und von Calc so importiert:

Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Ausdruck").Cells(1, 3) = Cells(ActiveCell.Row, 2)
Worksheets("Ausdruck").Cells(2, 3 ...