Die Suche ergab 3526 Treffer

von F3K Total
So, 20.09.2020 09:21
Forum: Calc
Thema: Zellen mit bestimmten Wort färben
Antworten: 4
Zugriffe: 239

Re: Zellen mit bestimmten Wort färben

Moin,
anbei eine Bespieldatei.

Gruß R
von F3K Total
So, 23.08.2020 12:48
Forum: Base / SQL
Thema: Base Datenbank Report /Bericht drucken und per Mail senden, Macro
Antworten: 4
Zugriffe: 521

Re: Base Datenbank Report /Bericht drucken und per Mail senden, Macro

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...
von F3K Total
Fr, 07.08.2020 11:36
Forum: Makros und allgemeine Programmierung
Thema: [GELÖST] wenn doppelte Einträge, dann farblich markieren
Antworten: 3
Zugriffe: 626

Re: wenn doppelte Einträge, dann farblich markieren

... es geht aber viel einfacher, mit einem Filter:
  • Markiere den Datenbereich mit Kopfzeile
  • Menü Daten->Filter->Standardfilter... mit folgenden Einstellungen:
    Standardfilter.png
    Standardfilter.png (22.64 KiB) 606 mal betrachtet
  • OK Drücken, dann hast du eine neue Liste ohne Duplikate.
Gruß R
von F3K Total
Fr, 07.08.2020 11:22
Forum: Makros und allgemeine Programmierung
Thema: [GELÖST] wenn doppelte Einträge, dann farblich markieren
Antworten: 3
Zugriffe: 626

Re: wenn doppelte Einträge, dann farblich markieren

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...
von F3K Total
Do, 06.08.2020 13:10
Forum: Setup und Allgemeines
Thema: Falsches Änderungsdatum in Microsoft Explorer
Antworten: 11
Zugriffe: 917

Re: Falsches Änderungsdatum in Microsoft Explorer

...naja, vielleicht hat Hisel da was verwechselt?
Datum.png
Datum.png (5.58 KiB) 896 mal betrachtet
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
von F3K Total
So, 19.07.2020 08:56
Forum: Calc
Thema: Zahlen in Zahlenfolge hinzufügen
Antworten: 27
Zugriffe: 2356

Re: Zahlen in Zahlenfolge hinzufügen

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...
von F3K Total
Sa, 18.07.2020 13:14
Forum: Calc
Thema: Zahlen in Zahlenfolge hinzufügen
Antworten: 27
Zugriffe: 2356

Re: Zahlen in Zahlenfolge hinzufügen

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...
von F3K Total
Sa, 18.07.2020 12:42
Forum: Calc
Thema: Zahlen in Zahlenfolge hinzufügen
Antworten: 27
Zugriffe: 2356

Re: Zahlen in Zahlenfolge hinzufügen

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...
von F3K Total
Sa, 18.07.2020 10:46
Forum: Calc
Thema: Zahlen in Zahlenfolge hinzufügen
Antworten: 27
Zugriffe: 2356

Re: Zahlen in Zahlenfolge hinzufügen

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...
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: 6
Zugriffe: 1633

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: 1390

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: 2538

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: 2131

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: 1525

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: 2131

Re: Fehlermeldung nach oForm.Last

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