Die Suche ergab 3517 Treffer

von F3K Total
So, 05.07.2020 17:06
Forum: Makros und allgemeine Programmierung
Thema: unerwartetes Verhalten von supportsService("com.sun.star.sheet.SheetCell...
Antworten: 3
Zugriffe: 461

Re: unerwartetes Verhalten von supportsService("com.sun.star.sheet.SheetCell...

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...
von F3K Total
Sa, 04.07.2020 12:46
Forum: Base / SQL
Thema: Unmittelbare Suche über gesamtes Tabellen-Steuerelement
Antworten: 3
Zugriffe: 662

Re: Unmittelbare Suche über gesamtes Tabellen-Steuerelement

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...
von F3K Total
So, 14.06.2020 17:47
Forum: Math
Thema: Geo-Koordinaten
Antworten: 2
Zugriffe: 1326

Re: Geo-Koordinaten

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...
von F3K Total
So, 14.06.2020 17:15
Forum: Base / SQL
Thema: Fehlermeldung nach oForm.Last
Antworten: 9
Zugriffe: 1472

Re: Fehlermeldung nach oForm.Last

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
von F3K Total
So, 14.06.2020 17:01
Forum: Base / SQL
Thema: Inhalt von Textfeld in Textfeld kopieren
Antworten: 3
Zugriffe: 998

Re: Inhalt von Textfeld in Textfeld kopieren

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...
von F3K Total
So, 14.06.2020 16:26
Forum: Base / SQL
Thema: Fehlermeldung nach oForm.Last
Antworten: 9
Zugriffe: 1472

Re: Fehlermeldung nach oForm.Last

Wie geschrieben, Glaskugellesen hilft da nicht.
Manchmal, sehr selten, zerschießt auch so ein Formular...
R
von F3K Total
So, 14.06.2020 16:15
Forum: Base / SQL
Thema: Fehlermeldung nach oForm.Last
Antworten: 9
Zugriffe: 1472

Re: Fehlermeldung nach oForm.Last

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

Code: Alles auswählen

Print oForm.Row
Gruß R
von F3K Total
So, 14.06.2020 16:00
Forum: Base / SQL
Thema: Fehlermeldung nach oForm.Last
Antworten: 9
Zugriffe: 1472

Re: Fehlermeldung nach oForm.Last

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
von F3K Total
So, 14.06.2020 14:34
Forum: Base / SQL
Thema: Fehlermeldung nach oForm.Last
Antworten: 9
Zugriffe: 1472

Re: Fehlermeldung nach oForm.Last

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...
von F3K Total
Di, 09.06.2020 18:03
Forum: Makros und allgemeine Programmierung
Thema: Daten filtern und kopieren
Antworten: 2
Zugriffe: 1902

Re: Daten filtern und kopieren

Moin,
funzt bei mir, wenn ich den Filterbereich statt mit

Code: Alles auswählen

oBereichAlleDaten = oDatenSheet.getCellRangeByName( "A:V" )
eher etwas kleiner

Code: Alles auswählen

oBereichAlleDaten = oDatenSheet.getCellRangeByName( "A1:V10000" )
ansetze.
Gruß R
von F3K Total
So, 07.06.2020 12:23
Forum: Makros und allgemeine Programmierung
Thema: Leere Zellen mit Formel befüllen
Antworten: 11
Zugriffe: 1555

Re: Leere Zellen mit Formel befüllen

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...
von F3K Total
Fr, 05.06.2020 14:25
Forum: Makros und allgemeine Programmierung
Thema: Leere Zellen mit Formel befüllen
Antworten: 11
Zugriffe: 1555

Re: Leere Zellen mit Formel befüllen

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...
von F3K Total
Do, 04.06.2020 17:33
Forum: Makros und allgemeine Programmierung
Thema: Leere Zellen mit Formel befüllen
Antworten: 11
Zugriffe: 1555

Re: Leere Zellen mit Formel befüllen

: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())...
von F3K Total
Mi, 03.06.2020 18:23
Forum: Makros und allgemeine Programmierung
Thema: Leere Zellen mit Formel befüllen
Antworten: 11
Zugriffe: 1555

Re: Leere Zellen mit Formel befüllen

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...
von F3K Total
So, 31.05.2020 09:26
Forum: Makros und allgemeine Programmierung
Thema: [Gelöst] mit Makro ganze Zeilen löschen, wenn Bedingung erfüllt ist
Antworten: 10
Zugriffe: 3458

Re: mit Makro ganze Zeilen löschen, wenn Bedingung erfüllt ist

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...