Naggy - Excel

Excel : Unixtimestamp in Datum umwandeln

nospam@example.com (J.F.) — Sat, 09 Aug 2008 13:13:17 +0200

Hier habe ich gerade eine schöne Excel Funktion gesehen, mit der man in Excel den Unixtimestamp in ein Excel Datum umwandeln kann.

Leider hat die Funktion einen kleinen Schönheitsfehler, denn der Unixtimestamp ist nicht immer 10 Zeichen lang. Hier meine verbesserte Version. Ich runde einfach auf eine ganze Zahl ab, und schon haben wir nur noch Sekunden, die wir dann in ein Datum umwandeln können.

=DATUM(1970;1;1)+(ABRUNDEN([ZELLE];0)/86400)

Achtung

Zu beachten ist außerdem noch das Deutschland sich in einer anderen Zeitzone ist als GMT der Grundlage für den Unixtimestamp außerdem kommt dann auch noch die Zeitumstellung (Sommer- und Winterzeit) dazu, sodass das Datum um 1 bis 2 Stunden abweichen kann.

VBA : Die IF, ELSEIF und ELSE Anweisung

nospam@example.com (J.F.) — Thu, 17 Jul 2008 21:05:25 +0200

Bei der Programmierung kommt man häufig an Stellen, bei denen sich der Programmablauf verzweigt. Dazu gibt es in der Programmiersprache die IF Konstukte die man auch erweitern kann. Aber zunächst das einfachste Beispiel.

IF Beispiel

Wir wollen nur am 1. Tag im Monat etwas machen. Der Tag steht in der Variablen int_Tag.

IF int_Tag = 1 THEN
    MsgBox ("1. Tag im Monat")
ENDIF

IF ELSE Beispiel

Wir wollen nur am 1. Tag im Monat etwas machen, an allen anderen Tagen soll was anderes passieren. Der Tag steht in der Variablen int_Tag.

IF int_Tag = 1 THEN
    MsgBox ("1. Tag im Monat")
ELSE
    MsgBox ("anderer Tag im Monat")
ENDIF

IF ELSEIF Beispiel

Wir wollen nur am 1. Tag und am 5. Tag im Monat etwas machen. Der Tag steht in der Variablen int_Tag.

IF int_Tag = 1 THEN
    MsgBox ("1. Tag im Monat")
ELSEIF int_Tag = 5 THEN
    MsgBox ("5. Tag im Monat")
ENDIF

IF ELSEIF ELSE Beispiel

Wir wollen nur am 1. Tag und am 5. Tag im Monat etwas machen, an allen anderen Tagen soll etwas anderes passieren. Der Tag steht in der Variablen int_Tag.

IF int_Tag = 1 THEN
    MsgBox ("1. Tag im Monat")
ELSEIF int_Tag = 5 THEN
    MsgBox ("5. Tag im Monat")
ELSE
    MsgBox ("Weder 1. noch 5. Tag im Monat")
ENDIF

Grenzen

Das ganze sollte man aber nicht übertreiben, denn solche Strukturen sind sehr unübersichtlich und schlecht zu warten. Darüber hinaus sind sie auch noch sehr langsam bzw. Rechenintensiv da ständig ein Variablenvergleich stattfindet. Oft ist eine Select Case Struktur wesentlich effektiver und schöner anzuschaeuen.

VBA Errorhandling : Fehler überspringen aber richtig

nospam@example.com (J.F.) — Wed, 20 Jun 2007 21:17:57 +0200

Oft ist es nötig bei Fehlern einfach weiterzumachen, weil sie für den Programmablauf unerheblich sind. So z.B. beim Löschen von Objekten in Access. Wenn dort das Objekt nicht existiert und man es löschen will, Schwupps eine Fehlermeldung.

Klar ganz einfach On Error Resume Next vor den ärgerlichen Befehl und schon macht das Programm einfach weiter, und ignoriert sozusagen den Fehler.

Leider ignoriert VBA aber auch alle anderen Fehler die danach kommen, auch wenn diese meistens gewünscht sind. Deshalb immer darauf achten die normale Fehlerbehandlung auch immer wieder ein zu schalten. Das macht man mit dem Befehl On Error GoTo ErrorHandler.

Bei großen Projekten ist es Ratsam eine eigene Fehlerbehandlung zu schreiben mit sinnvollen Fehlermeldungen. Dazu einfach am Anfang On Error GoTo Eigene_Fehlerbehandlung VBA mitteilen, das er bei einem Fehler zur Funktion Eigene_Fehlerbehandlung springen soll.

Dort kann man dann das Objekt Err auswerten in ihm werden alle Fehlerinformationen gespeichert. Die wichtigsten Eigenschaften des Err Objektes sind dabei:

Err.Number
Err.Description

Mit der Select Case Anweisung und Err.Number kann man dann sehr schön und effektiv seine eigene Fehlerroutine basteln.

PS: Mit dem Befehl On Error GoTo 0 kann man übrigens die VBA-eigene Fehlerbehandlung ganz abschalten.

VBA : Die Select Case Anweisung

nospam@example.com (J.F.) — Mon, 18 Jun 2007 20:33:00 +0200

Mit einer Select Case Anweisung kann man sehr elegant eine Menge IF ELSE Bedingungen umgehen. Dazu müssen aber ein paar Bedingungen erfüllt sein.

Man darf sich immer nur auf eine Variable/Ausdruck beziehen, die man überprüfen will.
Alle möglichen ~~Stati~~ Status der Variable sollten bekannt sein.
Es sollte eine Default (Standard) Anweisung geben.

Die Syntax sieht wie folgt aus.

Select Case (expression)
Case option1
    statement1
Case option2
    statement2
    .
    .
    .
Case optionn
    statementn
Case Else
    statementd
End Select

Dabei ist expression die Variable oder der Ausdruck der zu überprüfen ist. Case leitet den Fall ein der zu überprüfen ist. und Case Else leitet den Default (Standard) Fall ein der ausgeführt wird wenn nichts vorheriges passt.

Bei den einzelnen Fällen gibt es noch verschiedene Methoden der Schreibweise. Mit der man sich geschickt wieder ein paar Zeilen Code sparen kann.

Case 1

Führe aus wenn Ausdruck gleich 1.

Case 2, 4

Führe aus wenn Ausdruck gleich 2 oder 4.

Case 5 To 6

Führe aus wenn Ausdruck zwischen 5 und 6.

Case IS > 6

Führe aus wenn Ausdruck ist größer als 6.

Zum Schluss nochmal ein Beispiel, das alle außergewöhnlichen Case Fälle darstellt

Select Case Variable
Case IS < 5    	
    	Debug.Print "kleiner als 5"
Case 6, 7, 8   
   	 Debug.Print "6, 7 oder 8"
Case 8 TO 12
	Debug.Print "Zwischen 8 und 12"
Case Else    
   	Debug.Print "Nicht zwischen 1 und 12"
End Select

So viel Spaß beim hacken in VBA.

Excel Makro : Name des aktuellen Workbooks ermitteln

nospam@example.com (J.F.) — Mon, 23 Apr 2007 15:09:51 +0200

Quicktipp:

Um den Namen des aktuellen Workbooks zu ermitteln brauch man zur folgende Anweisung.

ActiveWorkbook.Name

Excel Makro : Pfad des aktuellen Workbooks ermitteln

nospam@example.com (J.F.) — Mon, 23 Apr 2007 15:03:45 +0200

Quicktipp:

Um den Pfad des aktuellen Workbooks zu ermitteln brauch man zur folgende Anweisung. Der Pfad wird ohne abschließenden \ zurückgegeben.

ActiveWorkbook.Path

Excel : Abfragen richtig und effektiv in Makros aktualisieren

nospam@example.com (J.F.) — Tue, 09 Jan 2007 12:40:23 +0100

Bei der Benutzung der coolen Funktion ActiveWorkbook.RefreshAll welche alle Abfragen im Workbook aktualisiert kann es zu mysteriösen Erscheinungen kommen, bei denen die Daten nicht oder nur teilweise aktualisiert werden.

Das liegt meist daran, das Excel mit der Bearbeitung des Makros weitermacht, ohne das es wartet bis alle Abfragen aktualisiert sind. Dieses Verhalten kann man auch nicht in der schrittweisen Ausführung des Makros erkennen, weil man eben zu langsam auf weiter klickt, um diesen Fehler zu bemerken.

Die Lösung dafür ist recht Simpel. Man könnte nun beginnen in einer Schleife abzufragen, ob sich alle Abfragen aktualisiert haben. Aber dieses Verfahren ist viel zu kompliziert, und nicht gerade recourcenschonend. Es geht noch viel einfacher und mit Excel Boardmitteln.

Einfach Rechtsklick auf die Abfrage -> Datenbereichseigenschaften -> Häkchen bei Aktualisierung im Hintergrund zulassen raus machen.

Jetzt wartet Excel erst bis sich die Abfrage aktualisiert hat, bevor es mit was anderem weitermacht.
Bitte daran denken ALLE Abfragen so umzustellen, anderfalls hat man ja immer nix gewonnen.

Excel : Anzahl Arbeitstage zwischen 2 Daten

nospam@example.com (J.F.) — Wed, 20 Dec 2006 12:41:52 +0100

Für die Berechnung der Arbeitstage zwischen 2 Datumsangaben benötigt man die Excel Funktion NETTOARBEITSTAGE (NETWORKDAYS).

Um diese Funktion überhaupt benutzen zu können muß man allerdings die Analyse Funktionen in Excel anschalten. Dazu geht man unter Extras --> Add-Ins.. und aktiviert dort Analyse-Funktionen. Danach startet man am besten Excel neu.

Nun kann man die Funktion auch benutzen die Syntax ist dabei wie folgt.

Integer = NETTOARBEITSTAGE (Ausgangsdatum;Enddatum;Freie_Tage)

Freie_Tage ist dabei ein optionaler Wert, der eine Gruppe von zusätzlichen freien Tagen enthält wie z.B. gesetzliche Feiertage etc.