OpenOffice.info

Moin, das hängt vom Suchergebnis ab, wird nur EINE ZELLE gefunden, ist auch supportsService("com.sun.star.sheet.SheetCell" )= true, werden MEHRERE ZELLEN gefunden, handelt es sich bei CurrentSelection eben um ein Array von Zellen oder Zellbereichen, also um com.sun.star.sheet.SheetCellRanges. Die Fr...

Moin Oldie63, ich habe dir eine Filterfunktion in dein Formular Belege suchen eingebaut. Ohne Makro. Es wird in den Spalten Belegname Kategorie Unternehmen Kommentar nach dem Begriff im Suchfeld gesucht und dann gefiltert. Auch Teilstrings wie mazo finden z.B. alle Zeilen mit Amazon . Das Formular b...

Moin, warum schreibst du im Bereich Math, wenn du doch eine Calc-Formel suchst? Ich habe zwei mögliche Lösungen entweder in drei Zellen: A2 die Dezimalzahl 52,12525 B2: =GANZZAHL(A2) C2: =GANZZAHL((A2-B2)*60) D2: =(A2-B2-(C2/60))*3600 Oder in einer Zelle A3 =A2/24 formatiert mit [HH]:MM:SS,0 Beispie...

Ja,
kann man, das Formular hat die Eigenschaft "Nur Daten hinzufügen = Ja", zeigt also immer nur den in Bearbeitung befindlichen Datensatz an.
Ich habe das mal ausgeschaltet, und schwubs, funktioniert es.

Gruß R

Moin, habe dir da mal ein Makro eingebaut, das den Pfad in deine Tabelle schreibt. Sub S_ADD_URL oForm = thisComponent.Drawpage.Forms.MainForm oDateiauswahl = oForm.Dateiauswahl sUrl = oDateiauswahl.text If Len(sUrl) = 0 Then MsgBox "Keine Datei ausgewählt",48,"Fehler" Exit Sub End If If NOT FileExi...

Wie geschrieben, Glaskugellesen hilft da nicht.
Manchmal, sehr selten, zerschießt auch so ein Formular...
R

Frewer hat geschrieben: ↑

So, 14.06.2020 15:40

Wie kann ich denn die Zeilennr auslesen, um festzustellen, ob ich in der letzten Zeile bin?

mit Gruß R

Moin,
es wäre gut, wenn du die .odb datei, ggf. vereinfacht, und verfremdet hier hochladen würdest, dann kann dir sicherlich geholfen werden.
So ins Blaue hat ja nicht geklappt.
Gruß R

Moin, nur ein Schuss ins Blaue, kann es sein, dass dein Makro schneller als das Formular ist? Versuch es mal mt folgendem Code: Sub Datenübernahme (oEvent as object) REM wird mit Öffnen des Formulars "Eingabe" gestartet DIM stName as Long DIM intlfdnr as Integer DIM stJahr as String DIM stJahr1 as S...

Moin,
funzt bei mir, wenn ich den Filterbereich statt mit eher etwas kleiner ansetze.
Gruß R

Hallo Gerald, du vermischst aufgezeichneten mit programmiertem Code, ohne zu wissen, was jeweils passiert, mein Code wandelt bereits die Formeln in Text um, dein Code versucht dies im Nachgang dann nochmal. Aufgezeichnete Makros funktionieren in Calc nicht allzu gut, wie allgemein bekannt, besser is...

Versuche es mal hiermit, aber nicht mit Nullen, sondern mit leeren Zellen: Sub Set_Formula oSheet = Thiscomponent.currentController.ActiveSheet for i = 2 to 30 oCell = oSheet.getCellbyposition(1,i) if oCell.string = "" then oCell.FormulaLocal = "=JETZT()&""a""&ZUFALLSBEREICH(1;99999)&""a""&VERSCHIEB...

:roll: Wenn du nun unbedingt willst: Sub Set_Formula oSheet = Thiscomponent.currentController.ActiveSheet for i = 2 to 30 oCell = oSheet.getCellbyposition(1,i) if oCell.string = "" then oCell.FormulaLocal = "=JETZT()&""a""&ZUFALLSBEREICH(1;99999)&""a""&VERSCHIEBUNG(INDIREKT(ADRESSE(ZEILE();SPALTE())...

Moin, warum einfach, wenn es auch kompliziert geht? Deine Formel stellt nicht sicher, das es zu jedem Kostenpunkt eine eindeutige ID gibt, denn Zufallsbereich() kann zufällig auch zweimal oder mehrmals die gleiche Zahl ermitteln, und die Jetzt() Funktion hat zumindest bei mir, bei einer Neuberechnun...

Moin, probiere es mal hiermit: Sub remove_Numbers aSourceData = ThisComponent.sheets.Tabelle2.getCellRangebyName("C5:C150").queryContentCells(1).data oTargetSheet = ThisComponent.sheets.Tabelle1 oCursor = oTargetSheet.CreateCursor oCursor.gotoEndofUsedArea(false) nEndrow = oCursor.RangeAddress.Endro...