Die Klavierkinder und wieder ein blauer Himmel

Heute waren die Klavierkinder zum ersten Mal nach den Ferien da.
Ich habe davon in erster Linie allerdings nur die Klingel von der Haustür gehört.^^
Nur manchmal drangen Klaviertöne bis nach oben.

Es kann jedoch auch sein, dass ich zu konzentriert war und nicht sonderlich darauf geachtet hatte.

Heute war der Himmel auch wieder blau.

            

Mal sehen, wie die Woche noch wird. :)
Ich muss manche Dinge noch nachholen, fällt mir dabei gerade ein...

Wochenbeginn und das Leuchten am Himmel

Der Wochenbeginn hat, wie gestern schon erwartet, mit viel Arbeit begonnen, die auch noch nicht abgeschlossen ist.

Am Nachmittag fielen mir beim Blick durch das Dachfenster ein paar erleuchtete Wol­ken­­schleier auf.

            

'Wolken' konnte man das im Grunde genommen wirklich nicht nennen, denn es waren eher die Schleier einer Hochbewölkung.

Und ob das nun die Reste von Kondensstreifen sind, ausgelöst durch hochfliegende Flug­­zeu­ge mit Düsenantrieb, das ist mir schnurzpiepegal.^^
Ich fand das Leuchten einfach nur schön. :)

Ein 'Lebenstag' und der Wochenstart

Heute am 07. Januar vor 11 Jahren war ein bedeutsamer Tag,- ein 'Lebenstag'.
Gestern bekam ich eine Erinnerungsmail vom Microsoft-Kalender.

Junge, Junge... 11 Jahre sind seitdem schon vergangen.
Und ich bin froh, dass inzwischen alles gut und 'normal' geworden ist.

Ein Fitzchen Blau war am Himmel zu sehen.

            

Das hat was von Hoffnung, dass das Grau, wo immer es auch real oder im übertragenen Sinn in Lebensbereichen auftauchen kann, wieder überwunden werden kann.

Morgen fängt hier die Schule wieder an.
Und außerdem beginnt für mich wieder eine neue arbeitsreiche Woche.

Ich wünsche allen einen guten Wochenstart. :)

Der SAM und das Schreibprogramm

Der SAM war ein bisschen durcheinander.
Eigentlich hatte ich mir für heute etwas anderes vorgenommen, als ich dann gemacht habe.

In der Hauptsache habe ich mich nämlich mit dem Schreibprogramm befasst und alle möglichen Sachen darin ausgetestet, um etwas daran zu lernen.

Ein Foto, Arbeitserleichterung, Zwiebelkuchen und das Wochenende

Heute habe ich endlich mal wieder ein Foto vom Himmel gemacht.

            

So dolle ist es nicht, aber wenigstens endlich mal ein nicht nur einheitlich grauer Himmel.^^
.....

Das Excel-Makro von gestern hat sich unbedingt gelohnt.
Es führt zu einer wirklich erheblichen Arbeitserleichterung und Zeitersparnis, wie ich heute ganz real bemerkt habe.

Freitag,- Zwiebelkuchentag...^^

Ich wünsche allen ein schönes Wochenende. :)

Tabellenarbeit und ein Excel-Makro

Heute habe ich mir für weitere Tabellenarbeiten ein schnuckeliges, kleines Excel-Makro programmiert, mit dem sich die Übertragung der Werte der letzten Jahrestabelle in die aktuelle Jahrestabelle wesentlich vereinfachen lässt.

Es geht dabei darum, unterhalb der aktuellen Zelle zwölf Zellen mit einem Textinhalt mit einem Punkt am Anfang auszuwählen, sie in Formelinhalte umzuwandeln und in die Zwi­schen­ab­lage zu kopieren, sie in die Spalte links daneben als reine Zahlenwerte ein­zu­tra­gen und anschließend an den Anfang der zwölf Formeln vor dem Zeichen "=" wieder einen Punkt einzufügen.

Der Sinn davon ist, dass durch den Punkt vor dem Gleichheitszeichen (".=") aus dem For­mel­inhalt, der aus einem Bezug zu einer anderen Tabelle, also einer Verknüpfung, be­steht, wieder ein reiner String, d. h. ein Textinhalt, gemacht wird.
In der Spalte links davon stehen jetzt die reinen Zahlenwerte einer anderen Tabelle, so dass damit weitergerechnet werden kann, ohne dass diese Werte aus einer verknüpften Tabelle ausgelesen werden müssen.

Nun ja, ich weiß nicht, inwieweit das anderen verständlich ist.^^

Bisher musste ich (1) die zwölf Zellen markieren, (2) ein selbstgeschriebenes Makro auf­ru­fen, was die Punkte entfernt, (3) die markierten Formelinhalte in die Zwi­schen­ab­lage kopieren, (4) Cursor nach links setzen und die Zwischenablage in die Spalte links davon mit einem ebenfalls selbstgeschriebenen Makro als Werte eintragen, (5) die zwölf Zellen der Spalte rechts davon wieder markieren, (6) das Makro aufrufen, mit dem wie­der ein Punkt "." vor das Gleichheitszeichen gesetzt wird, und (7) die Mar­kie­rung wieder entfernen.

Jetzt genügt ein einziger Klick auf ein Symbol in der Symbolleiste, um das alles zu er­le­digen.
Das bedeutet auch, dass die Anfälligkeit, einen Fehler bei der Bedienung zu machen, be­deu­tend abgenommen hat.
(Das Symbol und die Verknüpfung zu dem Makro hatte ich heute auch eingebaut.)

Wen es interessiert,- hier ist das Makro:

----------
Sub WerteHolen()

If Workbooks.Count <= 1 Then Exit Sub
On Error GoTo Aussprung

' Inhalt der aktuellen Zelle holen
Zellinhalt = ActiveCell.FormulaLocal
' die ersten beiden Zeichen prüfen, wenn nicht ".=" und nicht "=", dann Ende
If Left$(Zellinhalt, 2) <> ".=" And Left$(Zellinhalt, 1) <> "=" Then Exit Sub

  ' aktuelle Zeile holen
  Zeile = ActiveCell.Row
  ' akuelle Spalte holen
  Spalte = ActiveCell.Column
  Anzahl = 12 - 1

    ' 12 Zellen in aktueller Spalte markieren
    Range(Cells(Zeile, Spalte), Cells(Zeile + Anzahl, Spalte)).Select
 
    ' Punkte am Formelanfang entfernen und Formelinhalte holen und anzeigen
    ' aber nur, wenn die ersten beiden Zeichen ".=" sind
    If Left$(Zellinhalt, 2) = ".=" Then
        Application.Run "Personl.xls!InhaltAktivieren"
    End If
    ' sonst hier, falls bereits umgewandelt und Beginn mit "="
 
    ' die Formelinhalte in Zwischenablage kopieren
    Selection.Copy
 
    ' Cursor auf gleicher Zeile eine Spalte weiter nach links setzen
    Range(Cells(Zeile, Spalte - 1), Cells(Zeile, Spalte - 1)).Select
 
    ' Formelinhalte als reine Zahlenwerte einfügen
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
    ' 12 Zellen in aktueller Spalte erneut markieren
    Range(Cells(Zeile, Spalte), Cells(Zeile + Anzahl, Spalte)).Select
 
    ' Punkte am Formelanfang wieder einfügen
    Application.CutCopyMode = False
    Application.Run "Personl.xls!InhaltAktivieren"
 
    ' Cursor wieder auf Anfangszeile setzen (Markierung entfernen)
    Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte)).Select

Aussprung:
End Sub
----------

Es könnte sicher ein bisschen 'eleganter' sein. Es ist ein bisschen wie im 'Drahtverhau' zusammengestrickt.^^
Allerdings musste ich mich auch erst ein wenig in die Makroprogrammierung wieder ein­arbeiten.

Aber es funktioniert gut. Das ist zunächst die Hauptsache.

Das Abfangen der Fehler habe ich übrigens erst heute Abend noch eingebaut.

Sturmtief 'Burglind' und weitergemacht

Heute in den frühen Morgenstunden machte sich plötzlich das Sturmtief 'Burglind' bei uns bemerkbar und zog als eine sehr heftige Sturmfront über uns hinweg. Mit Sturm­böen, Wolken­bruch, gemischt mit prasselndem Eisregen und auch Gewitter. Der Wind peitschte den Regen um die Häuser und gegen die Fensterscheiben.

Ein Zypresse im Vorgarten unseres Nachbarn auf der gegenüberliegenden Straßenseite beugte sich fast waagerecht im starken Wind.

Aber glücklicherweise gab es bei uns keine Schäden.

Ich finde, 'Burglind' ist ein seltsamer Name. 'Burglinde' könnte ich mir als Frauennamen ja noch vorstellen. Aber 'Burglind'?
Ist das vielleicht schon der Beginn, das dritte Geschlecht bei den Hochs und Tiefs für die Namensgebung mit einzubeziehen?^^
.....

Bei der neuen Jahrestabelle ist jetzt alles so weit fertig, dass ich bereits damit arbeiten kann.

Es fehlen nur noch die Diagramme für das jetzt begonnene Jahr.
In diesem Jahr möchte ich das rechtzeitig machen, damit ich es nicht wieder wie in den letzten drei Jahren erst vor Jahresende machen muss.

Also geht es morgen noch weiter mit der Tabelle.
Den ersten Teil für die Vorbereitung darauf habe ich heute auch schon erledigt.

Diagramme und eine neue Jahrestabelle

Heute ging es auch noch mit den Tabellen weiter.
Alle Auswertungsdiagramme (109 Datenblätter) des letzten Jahres sind jetzt aufbereitet und nachgetragen.

Und eine neue Jahrestabelle ist auch angelegt, einschließlich der jetzt aktualisierten End­­werte des letzten Jahres.
Morgen geht es dann damit weiter, bei dieser die Startwerte einzutragen.
Auch dafür habe ich bereits die Hilfstabellen für die Übertragung der Werte angelegt.

Es wäre zwar programmtechnisch kein sehr großer Aufwand, solche Vorgänge für den Ja­hres­wech­sel zu automatisieren, indem auf die letzten Werte des vergangenen Jahres in einer Formel zugegriffen ist. Aber es entstünde bei einer solchen Verkettung vieler Jah­re über Verknüpfungen ein großes Risiko, wenn bei einer Tabelle eines der Vorjahre eine Fehlfunktion auftreten würde.
Dann wäre die zuletzt aktuelle Tabelle übersät mit den Zelleinträgen "#BEZUG!" oder "#WERT!" oder "#NAME?".
Und mit der Detektivfunktion "Spur zum Vorgänger" die fehlerauslösende Zelle zu er­mit­teln, ist sehr, sehr schwierig und zeitraubend, wenn jede der jeweiligen Vor­gän­ger­zel­len wiederum bis zu 10 Zellbezüge enthält,- und manchmal in einem Rattenschwanz von Formel gleich eine Vielzahl davon... Das weiß ich aus Erfahrung.

Daher hatte ich alle Jahrestabellen immer so angelegt, dass jede für sich selbst exis­tie­ren und aktualisiert werden kann.
Das hat zwar bei einem Jahreswechsel den Nachteil dieser Mehrarbeit, hat sich aber bereits hervorragend bewährt.

Wochenbeginn und Jahresanfang

Das neue Jahr hat heute zum Wochenbeginn so angefangen, wie das letzte aufgehört hat,- mit viel Arbeit.
Mal sehen, wie es weitergeht.

So ein paar kreative Sachen zu machen, wäre auch mal wieder nicht schlecht.

Der letzte Tag, Monatsabschluss, Jahresabschluss, Silvester und der Wochenstart

Heute war Monats- und Jahresabschluss.
Und wie immer gab es einen Sekt. :)

Allerdings zum Anstoßen um Mitternacht noch einen.^^

Ich wünsche allen einen guten Wochenstart. :)

Und ein gutes neues Jahr 2018! :)
.....

Nachtrag:

            

Heute hätten sich Zeitaufnahmen bestimmt gelohnt.
Doch das konnte man vorher wirklich nicht absehen.
Denn kurz vorher hatte es noch geregnet (was einen vorherigen Aufbau mit Stativ nicht möglich gemacht hätte), und nachdem ich ein paar Bilder (ohne längere Be­lich­tungs­zeit) gemachte hatte, fing es schon wieder an zu tröpfeln.

Aber auf diese Weise konnte ich mir das Feuerwerk zum Jahreswechsel in diesem Jahr auch mal wieder 'nur anschauen', ohne mit dem Stativ dauernd herumzuschwenken, wo denn nun die besten Einstellungen zu erwarten wären.^^

Zwei Glückskäfer habe ich heute auch bekommen. :)

            

Einer davon ist jetzt schon weg. :D

Und inzwischen auch der zweite.^^