🌈weisheitswissen.de

Calc Tipps + Tricks

Die Büro-Suite LibreOffice beinhaltet das Tabellenkalkulationsprogramm Calc. Hierzu finden Sie auf dieser Seite Tipps und Tricks. Da LibreOffice sich Ende 2010 vom Office-Paket OpenOffice.org (Apache OpenOffice) abgespaltet hat, sind die Tipps und Tricks evtl. auch Apache OpenOffice Calc gültig.

1) Das aktuelle Datum anzeigen
Die Funktion "=HEUTE()" zeigt das aktuelle Datum in einer Zelle von Calc. Beispiel:

=HEUTE()

Das aktuelle Datum wird im Format "tt.mm.jj" angezeigt.

2) Kalenderwoche berechnen
Mit der Funktion "=KALENDERWOCHE()" kann die Kalenderwoche ermittelt werden. Beispiel:

=KALENDERWOCHE(B2;1)

Erklärung: von der Zelle B2 (hier muss ein Datum stehen) wird die Kalenderwoche ermittelt. Das zweite Argument "1" kann entweder "1" oder "2" sein. Bei "1" zeigt er für Europäer die richtige Kalenderwoche an. Praktischer Tipp, eine Verschachtelung mit der "HEUTE"-Funktion:

==KALENDERWOCHE(HEUTE();1))

3) Formatierungen auf Tastendruck
Unter Calc können Sie mit Tastenkürzel [STRG] + [Umschalt] + [Ziffer 1-6] den markierten Zellen Zahlenformate zuweisen. Die zwei wichtigsten:
[STRG] + [Umschalt] + [4] bewirkt Währungsformat Euro mit zwei Dezimalstellen.
[STRG] + [Umschalt] + [3] bewirkt ein Datumsformat (tt.mm.jj).

4) für Webdesign nützlich
Calc kann auch hilfreich bei Webdesign sein. Beispiel: die Zeile "<td>1</td>" kann schnell vervielfältigt werden. Auch eine Nummerierung (z.B. ABC...) kann schnell erstellt werden.

5) Calc Makro: bestimme Wochentage ausgrauen
Folgend nun ein LibreOffice Calc Makro, welches einen aufgelisteten Monat (kann somit 31 Zellen oder weniger haben) bei Markierung des Monats die Tage Montag, Dienstag, Mittwoch und Samstag in graue Schrift setzt.

Sub FormatiereTage

    ' Variablen definieren
    Dim oSheet As Object
    Dim oCell As Object
    Dim oRange As Object
    Dim lRow As Long
    Dim lLastRow As Long
    Dim sTag As String
    Dim oGraueFarbe As Long
    
    ' Aktives Tabellenblatt und ausgewählter Bereich
    oSheet = ThisComponent.getCurrentController().getActiveSheet()
    oRange = ThisComponent.getCurrentSelection()
    
    ' Graue Farbe definieren in Hex: #808080 o. RGB(128, 128, 128)
    oGraueFarbe = RGB(128, 128, 128)
    
    ' Erste und letzte Zeile des ausgewählten Bereichs ermitteln
    lRow = oRange.RangeAddress.StartRow
    lLastRow = oRange.RangeAddress.EndRow
    
    ' Schleife durch alle Zellen im ausgewählten Bereich
    For i = lRow To lLastRow
        oCell = oSheet.getCellByPosition(oRange.RangeAddress.StartColumn, i)
        
        ' Prüfen, ob die Zelle einen Wert enthält
        If Not IsEmpty(oCell.Value) Then
            ' Wochentag ermitteln (0 = Sonntag, 1 = Montag, usw.)
            sTag = WeekDay(oCell.Value, 1)
            
            ' Formatierung für Mo, Di, Mi und Sa
            Select Case sTag
                Case 2, 3, 4, 7 ' Montag, Dienstag, Mittwoch, Samstag
                    oCell.CharColor = oGraueFarbe
            End Select
        End If
    Next i

End Sub