Mein Ziel ist, dass der Benutzer des Programms die Farbe der Oberfläche selbst festlegen kann. Für das erste Formular, auf dem sich die Farbwahlbuttons befinden, klappt das prima. Aber wie übernehmen die nächsten Formulare das? So:

Public Sub cmdButtonzumFormular2_Click()
‘erst im Hintergrund laden
Load frmFormular2
‘die Hintergrundfarbe des aktuellen Formulars wird als Tag an frmFormular2 übergeben
frmFormular2.Tag = Me.BackColor
‘erst jetzt darf das aktuelle Formular geschlossen werden
Unload Me
‘das Formular 2 wird gezeigt
frmFormular2.Show
End Sub

Ich bin übrigens leider nicht alleine auf die Idee gekommen, das so zu lösen. Hilfreich für mich war ein Artikel auf dailydoseofexcel.
Viel Spaß beim Ausprobieren.

Stupsi: “Was hast du macht?”
Ich: “Pipi. Und was hast du gemacht?”
Stupsi (guckt mich eine Weile mit großen Augen an, bevor sie antwortet): “Handy.”
Ich: “Cool, du hast ein Handy gemacht? Machst du mir auch eins?”
Stupsi: “Ja.”
Ich: “Ich hätte gerne ein iPhone.”
Stupsi: “Ich geh holen!”

Nachtrag, eine gute Viertelstunde später.
Stupsi kommt in die Küche, wo ich gerade den Kuchen mit Zuckerguss überziehe.
Ich: “Na, hast du mein iPhone mitgebracht?”
Stupsi: “Ja.”
Ich: “Und wo ist es?”
Stupsi: “Iiiiiiiiiiiiiin … Kühlschrank!”

Parallel kann ich übrigens die Heldin im Chaos als Lesestoff empfehlen. Schon ist man nicht mehr die Einzige, die nächtens noch kleine Heldentaten vollbringt, auch wenn mir höchstens die Schoki anschröggeln kann und hoffentlich keine Babys anfangen werden zu brüllen.

Gute Nacht.

Noch in meiner Schulzeit hätte ich beinahe einen Segelflugschein gemacht. An der Uni wäre ich erneut beinahe losgeflogen, denn in meinem Jahrgang kamen ein Gleitschirmpilot und ein Skydiver auf 30 Leute. Zu teuer lautete das Argument, das mein Kopf jedes Mal gegen meinen Bauch vorzubringen hatte. (Immerhin durfte ich beim Lufthansa Flight Training mal Boeing und Airbus fliegen. Und den Start der Transall, die mich und meine Kameraden nach Istanbul gebracht hat, habe ich im Cockpit erlebt.)
Seit der Geburt meiner Tochter argumentiert mein Kopf nicht mehr nur mit meinem Geld, sondern gleich mit meinem Leben. Dieser Appell an den Beschützerinstinkt war 2 Jahre lang erfolgreich, bis…

…ich “meinen” Kameramann Lars mit vier seiner Sprungkollegen in einem Fußballstadion habe landen sehen. Seitdem gibt es zum Thema Skydiving nur einen Gedanken: “Ich will auch!”

Moment. Will ich wirklich? Ich habe mich nur ein Mal vom Fünfmeterturm getraut. Aus dem Freefalltower bin ich kalkweiß rausgekommen und das 61 Grad steile Gefälle im Colossos läuft in meiner Erinnerung unter “ein Mal und nie wieder”. Lars hat mich zudem gewarnt, dass Skydiving in den USA als Sucht anerkannt ist. Und dass man in diesem Sport früher oder später mit dem Tod konfrontiert sein wird. Ich weiß auch, dass ich unterschreiben muss, dass es beim Tandemsprung trotz aller Vorsicht zu Knochenbrüchen kommen kann. Will ich wirklich springen???

Nein.

Auf den Absprung an sich bin ich kein bisschen scharf und ich weiß schon jetzt, dass der Blick auf den grünbraunen Flickenteppich rund um den Hungrigen Wolf mit Sicherheit für ein extrem mulmiges Gefühl in der Magengrube sorgen wird. Sofern man diese dann überhaupt noch Magengrube nennen darf und sie nicht zur Fußsohlengrube oder gar zur “Hab-ich-unten-vergessen”-Grube mutiert. Und wie ich in den Flieger kraxeln soll, ohne dabei weniger elegant zu wirken als eine Pellkartoffel und ohne damit zur Lachnummer des Monats zu werden, ist mir ebenfalls schleierhaft. Nein, ich habe garantiert keine Höhenangst, daher kommt diese Sorge nicht. Aber runtergucken und runterspringen sind ganz sicher zwei verschiedene Paar Schuhe. Man könnte auch sagen: Höhenangst nicht, aber Angst irgendwie doch. Zumindest gehörigen Respekt.

Trotzdem werfe ich gerade mein gesamtes Organisationstalent in die Waagschale, um Kinderbetreuung, Schichtplan des Ehemanns und der zum Mitkommen eingeplanten Freundin, Kameradienstplan, meine eigenen Arbeitszeiten, besondere Events in Holo und solche Kleinigkeiten wie Geburtstage und Hochzeiten in diesem Sommer unter einen Hut zu kriegen. Und das für ein paar Minuten Nervenkitzel, die durch solche himmlischen Banalitäten wie Regen jederzeit verschoben werden könnten. Klingt bekloppt?

Stimmt.

Allerdings ist mein Leben im Moment eh so bekloppt, dass mir zurückkloppen als eine durchaus vernünftige Option erscheint. Vielleicht kann ich dem alltäglichen Wahnsinn entgehen, indem ich etwas noch wahnsinnigeres mache. Feuer mit Feuer bekämpfen.
Ich glaube ja, dass Freefalltower nur deswegen so extrem wirken, weil die Passagiere nicht wissen, wann exakt die Gondel oben ausgehakt wird und daher der größte Teil des Nervenkitzels aus dem Schreck entsteht. Und bevor man den freien Fall dann genießen kann, ist es schon wieder vorbei. Da verspreche ich mir vom Skydiving deutlich mehr. Fühlt es sich nach lebensgefährlichem Fallen an? Oder eher nach Fliegen und grenzenloser Freiheit? Nach einem Erlebnis, das alles ins rechte Licht rückt, weil diese Perspektive auf die Welt und das Leben an sich vorher noch nie dagewesen ist? Oder sind meine Erwartungen jetzt zu hoch?

Dann helfen wohl doch nur noch illegale Drogen.

Als wir ankommen gibt es dann allerdings die enttäuschende Nachricht: Es ist zu bewölkt für den Sprung und deswegen wurde dieser auf die Mittagspause verlegt.

Am späten Vormittag reißt der Himmel dann zum Glück auf und der strahlende Sonnenschein wird nur ab und zu von kleinen weißen Wölkchen unterbrochen. In der Mittagspause kommt die gute Nachricht, dass das Flugzeug gestartet ist. Der Fußballplatz muss jetzt komplett geräumt werden. Alle Bälle müssen weg, es dürfen keine Flaschen mehr auf dem Rasen der Wiese liegen und Menschen sollen sich dort natürlich auch nicht mehr aufhalten. Mitten auf dem Platz werden zwei Stoffbahnen ausgelegt, die wohl als Markierung für den Landeplatz dienen sollen.

Ab sofort starren alle gebannt in den Himmel. Wir sehen ein Flugzeug aufblitzen, das klein genug ist, um “unseren” Springer an Bord haben zu können, doch es dreht wieder ab. Wenige Minuten später fliegt es erneut über den Platz, aber wir warten wieder vergeblich darauf, dass sich ein kleiner kaum erkennbarar Punkt vom Flugzeug ablöst und auf uns zu fliegt. Hinter uns ist nichts zu sehen, was aber an den sehr hohen Bäumen liegt, die den Platz säumen. Und genau hinter diesen tauchen plötzlich gleich fünf Fallschirme samt Piloten auf. Was dann passiert ist, könnt ihr euch hier angucken:

Das “A-Team” von YUU-Skydive bescherte den Zuschauern beim 2. Optik Euro Cup am 05. Juni 2010 mit einer Landung im Fußballstadion ein unvergessliches Erlebnis. Vielen Dank an Nico Müller, Lars Oesterwinter, Holger Sass, André Kroll und Yorck Vettereck für diese Spitzenleistung!

Hinterher ärgere ich mich natürlich, dass ich nur mit der Handycam filmen konnte und das ganze sinnvolle Equipment zu Hause geblieben ist. Aber ich kann schlecht auf mein Kind und meine Kameraausrüstung gleichzeitig aufpassen, also gibt es – zumindest von mir – keine guten Fotos. Dafür kann ich mir wieder und wieder den Stadionkommentator anhören, der gerne das Bob-Portemonnaie wieder an den Mann ans Kind bringen möchte und ich höre mich selber über Rauchbomben und Banner staunen.

Doch der Reihe nach: Während wir noch staunen, woher die fünf Piloten so plötzlich kommen, ist Nico Müller schon fast gelandet.

Der zweite Springer ist Lars Oesterwinter, der uns mit Rauchschwaden versorgt hat und den Ball mitbringen soll.

Was ich auch erst hinterher erfahren habe: Seine Landung war so geplant. Im ersten Moment sah es für mich so aus, als sei dies eine Bruchlandung, zumal der Bogen vorher ja auch ziemlich rasant war. Falsch. Es war Absicht, denn Herr Oesterwinter hatte ja vorher die Rauchbombe am Fuß gehabt und hätte damit gar nicht sicher auf den Füßen landen können. Es sah auf jeden Fall verflixt spektakulär aus und hatte den Applaus voll verdient.

Als Dritter im Bunde landet Holger Sass. Langsam füllt sich das Stadion, doch alle schon gelandeten Springer bleiben augenscheinlich an ihren Landeplätzen stehen und warten auf ihre Kollegen.

André Kroll ist die Nummer vier aus dem “A-Team” von YUU-Skydive. Auch er landet sicher auf den Füßen und läuft direkt nach der Landung rückwärts weiter, um damit seinen Fallschirm einzusammeln.

Als letzer Springer bringt YUU-Gründer Yorck Vettereck noch einmal alle Zuschauer zum Staunen, denn er zieht an seinem Fuß ein Werbebanner der Sponsoren Optiker Bode und Itzehoer Versicherungen mit sich. Wow!

Direkt nach dieser letzten Landung gibt es ein bisschen Metallica vom Band und die Springer werden von den Fans bestürmt, fotografiert und am Boden begrüßt. Unbestätigten Gerüchten zu Folge soll sich das so angefühlt haben, wie bei Tokio Hotel. Wer einen kleinen Eindruck von der Leistung bekommen will, sollte sich mal ein Luftbild der Adolf-Jäger-Kampfbahn angucken und sich fragen, ob er aus 3700m Höhe dieses Fleckchen Grün mitten in Hamburg treffen kann. Auch eine Woche später schüttele ich staunend den Kopf.

Nachdem der Hype abgeebbt ist und alle Fotografen ihre Fotos bekommen haben, verteilen die Springer, die alle von YUU-Skydive e.V. kommen noch Flyer und holen damit meinen schon mehrere Jahre alten Wunsch, auch mal zu springen, wieder aus der Versenkung hervor. Na toll…

Vielleicht wird das nächste Video hier ja schon

“Nina goes YUU”?

Kurz noch zurück zum Fußball: Unser Team hat in einem hochdramatischen Elfmeterschießen dann leider den Turniersieg knapp verpasst. Aber es wird im nächsten Jahr einen dritten Optik Euro Cup geben, bei dem sie bestimmt wieder mitspielen werden.

for ( var i=0; i < this.numFields; i++) {
var fname = this.getNthFieldName(i);
var f = this.getField(fname);
if ( f.type == “text” ) f.userName = “”;
}

Das Fiese: userName bezeichnet dabei die QuickInfo. Und darauf soll man kommen… Ich nutze das Script, wenn die automatische Formularfelderkennung komische QuickInfos eingerichtet hat, die ich nicht haben will. Denn an sich ist diese Automatik manchmal ganz hilfreich.

Sch***! Ich hab auf Doris’ Hochzeit doch das rote Kleid angehabt, oder? Dann kann ich das auf Tinas Hochzeit nicht anziehen!

Tja… damit muss ich tatsächlich für drei Hochzeiten in diesem Jahr Kleider kaufen / nähen / organisieren. Es erwischt eine Kollegin von Torben, ein befreundetes Prächen und einen Cousin. Also würde theoretisch ein Kleid reichen. Vorausgesetzt, es passt mir das ganze Jahr lang und genau das wird (hoffentlich) der Knackpunkt sein. Mai, August und November werden für mich hoffentlich unterschiedliche Figuren bergen.

Kennt jemand einen weiteren Anbieter neben Laura Scott Evening für schöne Kleider?

Aber was ist nun eigentlich der Unterschied? Kommt es mir zu Recht komisch vor, wenn in den Nachrichten mal wieder erzählt wird, dass der Fahrer eines Fahrzeugs schwer verletzt geborgen werden konnte? Ich dachte immer, dass nur Leichen geborgen und Verletzte gerettet werden. Und ich denke nicht als Einzige so (klick zum Zwiebelfisch).

Sub Primzahlen()

Dim i As Long, j As Long, Primzahl As Boolean
Dim zeile As Integer
Dim ende As Integer
ende = 32000
zeile = 1

Application.ScreenUpdating = False
For i = 1 To ende: Primzahl = True
For j = 2 To ende
If i Mod j = 0 And i <> j Then Primzahl = False
Next j
If Primzahl = True Then
Cells(zeile, 1) = i
zeile = zeile + 1
End If
Next i

Application.ScreenUpdating = True

End Sub

Bei diesem Code streicht Excel bei ende=32000 die Segel in Form eines Laufzeitfehlers “Überlauf”. 33000 darf ich schon gar nicht prüfen lassen. Also habe ich gegrübelt, wie viele Rechenschritte das sind. Die Suchmaschine stupste mich daraufhin auf die Dreieckszahlen, und mit der Formel dazu konnte ich die Anzahl der Rechenschritte ausrechnen lassen. Bei Primzahlen bis 10 sind es 55 Schritte, die das Programm durchprobieren muss. Bis 100 sind es schon 5050, bei 1000 500500, bei 10000 50005000 und bei den 32000 dann 512016000 Rechenschritte.

Interessant fand ich auch: Wenn ich die Anzahl der Schritte noch als inkrementierte Variable mit in den Code nehme, erfolg der Laufzeitfehler schon bei ende=2000. Excel ist schon komisch…

Und noch eine Auffälligkeit: Die Primzahlen bis zur 36 (=6*6) werden in 666 Schritten getestet.

Wem fällt noch mehr auf?

PS: