OpenOffice.info

Moin,
anbei eine Bespieldatei.

Gruß R

Hallo, ja, es ist möglich, aber nur mit Makros. Tausend Wege führen nach Rom. Ich würde das folgendermaßen machen: In der Datenbank gibt es sicherlich eine Tabelle/Abfrage/Ansicht, in der die zu exportierenden Datensätze stehen. Diese würde ich per Makro auslesen und in ein Resultset schreiben. Je n...

... es geht aber viel einfacher, mit einem Filter:

• Markiere den Datenbereich mit Kopfzeile
• Menü Daten->Filter->Standardfilter... mit folgenden Einstellungen:

  

  Standardfilter.png (22.64 KiB) 606 mal betrachtet

• OK Drücken, dann hast du eine neue Liste ohne Duplikate.

Gruß R

Moin, da brauchst du kein Makro, eine bedingte Formatierung reicht, wenn du z.B in Zellbereich A2:A150 deine Werte hast, formatierst du A2 so: BF_ZAEHLENWENN.png und kopierst diese Formatierung mit dem Formatpinsel auf die Zellen A3:A150. Einmal formatiert, kannst du mit STRG+SHIFT+V nur die Werte d...

...naja, vielleicht hat Hisel da was verwechselt? es gibt nämlich sowohl ein Erstelldatum als auch ein Änderungsdatum, muss man im Explorer nur einblenden...
Oder sein Computer ist kaputt. M$?
Gruß R

Moin, so geht es, die Daten (Mehrzahl von Datum) werden in Spalte I eingesetzt: Sub S_INSERT_NUMBERS dim i as long t1 = Getsystemticks() oSheet = ThisComponent.Sheets.Getbyname("Sheet1") oDataSourceRange = oSheet.getcellrangebyName("H1:H60000")'hier den zu untersuchenden Bereich eintragen oDataTarge...

Moin, und nochmal verbessert, das folgende Makro läuft bei mir in 2,8 s durch 60000 Zeilen. Sub S_INSERT_NUMBERS dim i as long t1 = Getsystemticks() oSheet = ThisComponent.Sheets.Getbyname("Tabelle1") oRange1 = oSheet.getcellrangebyName("K1:K60000")'hier den zu untersuchenden Bereich eintragen oRang...

Moin, was bedeutet "Ziemlich cool!" Hast du es schon mit deinen 60000 Zeilen ausprobiert? Wohl nicht, denn es gibt eine Fehlermeldung. Daher habe ich das Makro weiter verbessert: Sub S_INSERT_NUMBERS dim i as long t1 = Getsystemticks() oSheet = ThisComponent.Sheets.Getbyname("Tabelle1") oRange1 = oS...

Moin, habe dir ein kurzes Makro geschrieben: Sub S_INSERT_NUMBERS oSheet = ThisComponent.Sheets.Getbyname("Tabelle1") oRange1 = oSheet.getcellrangebyName("K1:K10") oRange2 = oSheet.getcellrangebyName("L1:L10") oRangeTarget = oSheet.Columns.getbyName("M") nCounter = 0 For i = 0 to uBound(oRange1.data...

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