Joopi - Excel und LibreOffice Calc

Hochkomma als Textstandard entfernen

Fri, 10 Feb 2023 16:32:05 +0100

Ich hatte das Problem, dass ein Datum nicht als Datum, sondern als Text formatiert war. Mit einem führenden Hochkomma (single quote) wurde früher, aber wohl auch noch heute, gerne ein Wert in einer Zelle als Text dargestellt. Dabei scheint es sich nur um ein Formatierungszeichen zu handeln, denn bei der Länge des Wertes wird das Hochkomma nicht mitgezählt.

Der Eintrag in der Zelle wurde linksbündig geschrieben und sah wie folgt aus:

Zitat:'08.01.1989

Wenn es nur ein Tabelleneintrag ist, dann kan man schnell das Hochkomma entfernen und schon ist der Wert so zu formatieren, wie man es wünscht. Bei mehr als 400 Werten in der Tabelle würde dieses Vorgehen eine Fleißarbeit und Fingerübung darstellen.

Wie gesagt, bei der Längenberechnung wird das Hochkomma nicht mitgezählt. Die Länge-Funktion gibt als Ergebnis 10 aus. Daher war es auch nicht verwunderlich, dass mit /Bearbeiten/Suchen und Ersetzen kein Erfolg zu erzielen war. Das Hochkomma blieb hartnäckig in der Zelle.

Die Lösung war dann folgende Kombination der Funktionen Wert und Wechseln (Textdatum steht in Zelle D12):

Code:
=WERT(WECHSELN(D12;"'";""))

Das Formelergebnis lautet: 32516

Und wenn die Zelle mit tt.mm.jjjj formatiert wird, dann sieht das Datum nach meinem Geschmack aus: 08.01.1989

Folge 09 - Teil und Rechts

Wed, 11 Jan 2023 19:46:46 +0100

Mit den Funktionen Teil und Rechts lassen die Fragmente aus einem Text (String) extrahieren.

09_teil_und_rechts_20210227.mp4 (Größe: 43,97 MB / Downloads: 57)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 08 # Zählenwenn

Wed, 11 Jan 2023 19:46:10 +0100

Analog zu Summewenn, kann man mit Zählenwenn die Anzahl von einer Unbekannten feststellen.

08_zaehlenwenn_20210227.mp4 (Größe: 25,38 MB / Downloads: 57)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 07 - Gültigkeit

Wed, 11 Jan 2023 19:45:32 +0100

Mit einer Datenprüfung in realtime kann man die Gültigkeit von Werten, die erfasst werden sollen, feststellen.

07_gueltigkeit_20210227.mp4 (Größe: 35,95 MB / Downloads: 57)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 06 - LÄNGE

Wed, 11 Jan 2023 19:44:55 +0100

Die Funktion =LÄNGE() wertet die Anzahl der Zeichen in einer Zelle aus.

06_laenge_20210218.mp4 (Größe: 15,11 MB / Downloads: 58)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 05 - Pivottabelle

Wed, 11 Jan 2023 19:44:09 +0100

Die Pivottabelle ist eine eierlegende Wollmichsau die fliegen kann. Damit kann man gorße Datenmengen so aufbereiten und strukturieren, dass man sie lesen, analysieren und verstehen kann. Aber Vorsicht, es gibt auch Fußangeln bei der Nutzung von Pivottabellen.

05_pivottabelle_20210218.mp4 (Größe: 124,47 MB / Downloads: 52)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 04 - Summewenn(s)

Wed, 11 Jan 2023 19:43:18 +0100

Eine sehr gute Möglichkeit Summe auf Grund von Bedingungen zu bilden, ist die Funktion "summewenn" bzw. "summewenns", sofern es mehr als eine Unbekannte gibt.

04_summewenn_20210218.mp4 (Größe: 53,68 MB / Downloads: 55)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 03 - Wenn, dann, sonst

Wed, 11 Jan 2023 19:42:38 +0100

Die wichtigiste Funktion in Excel ist wohl die Funktion "Wenn, dann, sonst".

03_wenndann_20210218.mp4 (Größe: 27,53 MB / Downloads: 58)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 02 - Das Verketten von Werten

Wed, 11 Jan 2023 19:41:20 +0100

Mit =verketten() können Zellinhalte, aber auch Texte (Strings), miteinander verbunden, also verkettet, werden.

02_verketten_20210218.mp4 (Größe: 20,93 MB / Downloads: 60)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Folge 01 - Der SVERWEIS

Wed, 11 Jan 2023 19:40:27 +0100

Der erste Videolehrgang als Test für kommende Lehrgänge.

01_sverweis_20210217.mp4 (Größe: 78,31 MB / Downloads: 61)

Es ist für das Sehvergnügen bestimmt ganz gut, wenn man sich das Video im Vollbildmodus anschaut. Das strengt dann die Augen nicht so sehr an.

Der Umgang mit dem Datum

Sun, 08 Jan 2023 21:15:37 +0100

Code:
Sub datum_erkennen_1()

 '

Dim LstrDate As String

Dim LDate As Date

'

'LstrDate = "12.08.2019"

'

LstrDate = Range("C6").Value

LDate = CDate(LstrDate)

'

'MsgBox LDate

Debug.Print LDate

'

End Sub

Code:
Sub datum_erkennen_2()

'

Dim tag As Date

'

tag = CDate(Range("C6").Value)

'

'MsgBox tag

Debug.Print tag

'

End Sub

Code:
Sub datum_erkennen_3()

'

Dim tag1 As String

Dim tag2 As String

Dim tag3 As String

'

tag1 = Year(CDate(Range("C6").Value))

tag2 = Month(CDate(Range("C6").Value))

tag3 = Day(CDate(Range("C6").Value))

'

Debug.Print tag1

Debug.Print tag2

Debug.Print tag3

'

End Sub

Code:
Sub tagesdatum()

'

Debug.Print Date

Debug.Print Time

Debug.Print WeekdayName(Weekday("14.08.2019"), False, vbSunday)

Debug.Print Format("14.08.2019", "DDDD")

Debug.Print Choose(Weekday("14.08.2019"), "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")

'

End Sub

Code:
Sub kw_ermitteln()

'

Dim kw As Integer

'

'Aufruf der Funktion (siehe unten) mit Parameter

kw = DINKw("14.08.2019")

'

'kw = DINKw(Range("A1").value)

'

'MsgBox kw

'

Debug.Print "Kalenderwoche: " & kw

'

End Sub

Code:
Function DINKw(dat As Date) As Integer

'

Dim kw As Integer

'

kw = Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1

'

If kw = 0 Then

'

kw = DINKw(DateSerial(Year(dat) - 1, 12, 31))

'

ElseIf kw = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then

'

kw = 1

'

End If

'

DINKw = kw

'

End Function

Outlook-Mail über VBA-Code versenden

Sun, 08 Jan 2023 21:12:36 +0100

Mit einem VBA-Code ist es möglich eine Mail über Outlook abzusenden. Dabei unterscheidet man den Direktversand oder eben die Anzeige in Outlook, um noch Änderungen vorzunehmen. Im nachfolgenden Code sind alle üblichen Funktionen dargestellt, teils auskommentiert.

Code:
Sub EmailAbsenden_bunker()

Dim objOutlook As Object

Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

With objMail

  .To = "deinname@deinedomain.de"

  '.CC = "deinname@deinedomain.de"

  '.BCC = "deinname@deinedomain.de"

  'Versand an mehrere Empfänger

  '.To = "deinname@deinedomain.de; zweiteEmailadresse@domain.de"

  .Subject = "Betreff"

  .Body = "Ihre Nachricht."

  'Versand über Outlookanzeige

  .Display        'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

  'Versand direkt aus dem VBA-Code heraus

  .Send        'Sendet die Email automatisch

  '.Attachments.Add "C:/Beispiel.xlsx"

  'Versand mehrerer Anhänge in einer Mail

  '.Attachments.Add "C:/Beispiel_1.xlsx"

  '.Attachments.Add "C:/Beispiel_2.xlsx"

End With

End Sub

Im VB-Editor muss die Objektbibliothek Microsoft Outlook 16.0 Object Library gesetzt sein.

Das Beispiel habe ich hier gefunden:
https://www.makro-excel.de/2017/03/06/pe...versenden/

Zellbezug dynamisieren

Sun, 08 Jan 2023 21:09:40 +0100

Es gibt dann und wann Gründe, einen Zellbezug zu dynamisieren. Das bedeutet, die Zelladresse ist nicht eindeutig, sondern abhängig von einem Ergebnis.

Über INDIREKT kann so ein dynamischer Zellbezug erstellt werden. Hier ein Beispiel:

Code:
=ZÄHLENWENN(INDIREKT("K12:K"&ZEILE()+SUMME(A8+3));"")

Zusammensetzung der Formel mit einem dynamischen Zellbezug.

Der dynamische Teil der Zählenwennformel setzt sich zusammen aus der Anzahl der Datensätze (also aus A8) und der Position der Formel (K8 in dem Falle).

Wenn also bis zum Ende der Tabelle Leerfelder gezählt werden sollen, dann darf das Zählen nicht über das Tabellenende hinausgehen, weil sonst die überschüssigen Zellen, die leer sind, auch gezählt werden. Der Wert von 3 wird hier hinzugerechnet, da meine Tabellen generell ab Zeile 12 beginnen, die Formel in Zeile 8 steht und somit zur Anzahl nur noch 3 hinzuzurechnen sind, um bis ans Tabellenende zu kommen.

Gefunden habe ich die Lösung hier:
https://supportnet.de/fresh/2006/8/id1393952.asp