Drückt mal STRG + V und postet es Thread...

[Ben_Zane]

Jo steht eh schon im Titel :) ich fang mal an...


> Automatisches Gurtsystem
> Verbesserter Schutz bei Unfällen durch
> Side-Protection-System (SPS)
> Gurthöhe passt sich automatisch an
> 5 komfortable Positionen
> Farbindikator für Gurtstabilität
> Bezug waschbar und einfach abnehmbar

[The WarP]

SCHEISS AUF GLEITGEL....NIMM ANLAUF ! xDDD

[Ossi]

PHASE 4 GFZ 0.6
130 x 878 m² + ~ 2 x 800
25 PKW

[Chris B.]

Hab nix in der Zwischenablage. :D

[Stee Wee Bee]

Sony Vaio X

[Chris Wittig]

Der von Ihnen eingegebene Text ist zu kurz. Bitte erweitern Sie den Text auf die minimale Länge von 10 Zeichen.

[Chris B.]

With objWrd
Set tablerange = .ActiveDocument.Range(.ActiveDocument.Bookmarks("petro_formations_txtmark").Start, _
.ActiveDocument.Bookmarks("petro_formations_txtmark").End)
End With
tablerange = rs!formation_name & Chr(1) & Chr(1) & Chr(1) & Chr(1) & Chr(1) & "" & rs!formation_top & " mMD, " & rs!formation_tvd & " mTVD" & Chr(1) & Chr(1) & Chr(1) & Chr(1) & Chr(1) & _
"Top*!*[mMd]" & Chr(1) & "Bottom*!*[mMd]" & Chr(1) & "Top*!*[mTVDSS]" & Chr(1) & "Bottom*!*[mTVDSS]" & Chr(1) & "Thickness*!*[mMD]" & Chr(1) & "Thickness*!*[TVD]" & Chr(1) & "Deviation*!*[°]" & Chr(1) & "Por*!*[%]" & Chr(1) & "SW*!*[%]" & Chr(1) & "Fluid*!*[ ]"

[Stee Wee Bee]

Liebe(r) stevieb!

Herzlichen Glückwunsch! Sie haben einen Lotto-Sechser-Gewinn aus einem Wettscheinspiel bei win2day.

Um die Vertraulichkeit Ihrer Gewinninformationen garantieren zu können, loggen Sie sich bitte auf win2day ein. Sie finden nähere Details zu Ihrem Gewinn bei Ihren Nachrichten.

Wenn Sie gleich wissen möchten, wie viel Sie gewonnen haben, melden Sie sich zur erweiterten Gewinnverständigung (http://www.dancecharts.at/forum/updateinformationdetails_winnotify.jsp?operation=u pdateinformationdetails#winnotify) an!

Klicken Sie auf den Link und loggen Sie sich mit Ihrem Usernamen und Passwort ein. Unter "Meine Services" finden Sie den Link "Gewinnverständigung" - nach Klick auf "Gewinnverständigung bearbeiten" können Sie dann die "Premium-Gewinnverständigung von Wettscheinspielen" als HTML-Mail und/oder SMS auswählen. Sie erhalten dann bereits im Gewinnverständigungsmail bzw. -SMS die Information, bei welchem Spiel Sie wann wie viel gewonnen haben!

Bei weiteren Fragen helfen wir Ihnen gerne unter help@win2day.at ( mailto:help@win2day.at (help@win2day.at)) oder telefonisch unter der Nummer 0810/100 200 100 (€ 0,067/Minute). Wir sind in der Zeit von Montag bis Sonntag sowie feiertags von 6.00 bis 24.00 Uhr für Sie da.

Das Glück ist, wo Sie sind!

Ihr win2day Team

[Ben_Zane]

Einkauf fortsetzen: Kunden, die Artikel gekauft haben, welche Sie sich kürzlich angesehen haben, kauften auch

Seite 1 von 10 (Zum Anfang (http://www.amazon.de/gp/movers-and-shakers/dmusic/ref=pd_ts_dmusic_mte))
Zurück (http://www.amazon.de/gp/movers-and-shakers/dmusic/ref=pd_ts_dmusic_mte#)

http://ecx.images-amazon.com/images/I/51cRPEBBmYL._SL500_SS120_.jpg
Herz an Herz (http://www.amazon.de/Herz-an/dp/B0025TM160/ref=pd_rhf_shvl_1) MP3-Download von Blümchen EUR 0,77 Diese Empfehlung korrigieren (http://www.amazon.de/gp/yourstore/rate-this-asin/ref=pd_rhf_shvl_why?ie=UTF8&redirectURI=%2Fgp%2Fhistory%2Fexternal%2Ffull-rhf-rec-handler.html&ASIN=B0025TM160&isRecommendedItem=1&isPopup=0&refreshParent=1&reason=B0025TO0HS&B0025TO0HS.source=Clickstream&B0025TO0HS.order=0)



http://ecx.images-amazon.com/images/I/51cRPEBBmYL._SL500_SS120_.jpg
Nur geträumt (http://www.amazon.de/Nur-getr%C3%A4umt/dp/B0025TJZ1Y/ref=pd_rhf_shvl_2) MP3-Download von Blümchen EUR 0,77 Diese Empfehlung korrigieren (http://www.amazon.de/gp/yourstore/rate-this-asin/ref=pd_rhf_shvl_why?ie=UTF8&redirectURI=%2Fgp%2Fhistory%2Fexternal%2Ffull-rhf-rec-handler.html&ASIN=B0025TJZ1Y&isRecommendedItem=1&isPopup=0&refreshParent=1&reason=B0025TO0HS&B0025TO0HS.source=Clickstream&B0025TO0HS.order=0)



http://ecx.images-amazon.com/images/I/51cRPEBBmYL._SL500_SS120_.jpg
Bicycle Race (http://www.amazon.de/Bicycle-Race/dp/B0025TM12O/ref=pd_rhf_shvl_3) MP3-Download von Blümchen EUR 0,77 Diese Empfehlung korrigieren (http://www.amazon.de/gp/yourstore/rate-this-asin/ref=pd_rhf_shvl_why?ie=UTF8&redirectURI=%2Fgp%2Fhistory%2Fexternal%2Ffull-rhf-rec-handler.html&ASIN=B0025TM12O&isRecommendedItem=1&isPopup=0&refreshParent=1&reason=B0025TO0HS&B0025TO0HS.source=Clickstream&B0025TO0HS.order=0)



http://ecx.images-amazon.com/images/I/51cRPEBBmYL._SL500_SS120_.jpg
Kleiner Satellit (http://www.amazon.de/Kleiner-Satellit/dp/B0025TM11K/ref=pd_rhf_shvl_4) MP3-Download von Blümchen EUR 0,77 Diese Empfehlung korrigieren (http://www.amazon.de/gp/yourstore/rate-this-asin/ref=pd_rhf_shvl_why?ie=UTF8&redirectURI=%2Fgp%2Fhistory%2Fexternal%2Ffull-rhf-rec-handler.html&ASIN=B0025TM11K&isRecommendedItem=1&isPopup=0&refreshParent=1&reason=B0025TO0HS&B0025TO0HS.source=Clickstream&B0025TO0HS.order=0)



http://ecx.images-amazon.com/images/I/51cRPEBBmYL._SL500_SS120_.jpg
Du und ich (http://www.amazon.de/Du-und-ich/dp/B0025TM1BU/ref=pd_rhf_shvl_5) MP3-Download von Blümchen EUR 0,77 Diese Empfehlung korrigieren (http://www.amazon.de/gp/yourstore/rate-this-asin/ref=pd_rhf_shvl_why?ie=UTF8&redirectURI=%2Fgp%2Fhistory%2Fexternal%2Ffull-rhf-rec-handler.html&ASIN=B0025TM1BU&isRecommendedItem=1&isPopup=0&refreshParent=1&reason=B0025TO0HS&B0025TO0HS.source=Clickstream&B0025TO0HS.order=0)

[Greeeegoooor]

Bezeichnung:

Maruten Kohaku

Züchter:
Sakai Fish Farm / Hiroshima / Japan

Größe:


38 - 42 cm

Alter:
Tosai

Quality:
High Quality Plus hand selected

[Stee Wee Bee]

u sukk, 2 !!!

[Lena]

Sicherheitsupdate für Flash Player (KB923789) wird heruntergeladen (Update 1 von 73)... Abgeschlossen!
Kumulatives Sicherheitsupdate für ActiveX Killbits für Windows XP (KB950760) wird heruntergeladen (Update 2 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB950762) wird heruntergeladen (Update 3 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB951376) wird heruntergeladen (Update 4 von 73)... Abgeschlossen!
Update für Windows XP (KB951978) wird heruntergeladen (Update 5 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB951748) wird heruntergeladen (Update 6 von 73)... Abgeschlossen!
Sicherheitsupdate für Outlook Express unter Windows XP (KB951066) wird heruntergeladen (Update 7 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB946648) wird heruntergeladen (Update 8 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB952954) wird heruntergeladen (Update 9 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB950974) wird heruntergeladen (Update 10 von 73)... Abgeschlossen!
Update für Windows XP (KB952287) wird heruntergeladen (Update 11 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB958644) wird heruntergeladen (Update 12 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB955069) wird heruntergeladen (Update 13 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB954459) wird heruntergeladen (Update 14 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956802) wird heruntergeladen (Update 15 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956803) wird heruntergeladen (Update 16 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB960225) wird heruntergeladen (Update 17 von 73)... Abgeschlossen!
Update für Windows XP (KB967715) wird heruntergeladen (Update 18 von 73)... Abgeschlossen!
Windows Genuine Advantage Notification (KB905474) wird heruntergeladen (Update 19 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB923561) wird heruntergeladen (Update 20 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956572) wird heruntergeladen (Update 21 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB952004) wird heruntergeladen (Update 22 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB960803) wird heruntergeladen (Update 23 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB959426) wird heruntergeladen (Update 24 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB961501) wird heruntergeladen (Update 25 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB970238) wird heruntergeladen (Update 26 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows*XP Service Pack*3 (KB973540) wird heruntergeladen (Update 27 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB973869) wird heruntergeladen (Update 28 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956744) wird heruntergeladen (Update 29 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows*XP (KB973354) wird heruntergeladen (Update 30 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB973507) wird heruntergeladen (Update 31 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB960859) wird heruntergeladen (Update 32 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB973815) wird heruntergeladen (Update 33 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB971657) wird heruntergeladen (Update 34 von 73)... Abgeschlossen!
Internet Explorer*8 für Windows*XP wird heruntergeladen (Update 35 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956844) wird heruntergeladen (Update 36 von 73)... Abgeschlossen!
Sicherheitsupdate für Jscript*5.7 für Windows*XP (KB971961) wird heruntergeladen (Update 37 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows Media-Format-Laufzeitkomponente*9, 9.5 und 11 für Windows*XP*SP*3 (KB968816) wird heruntergeladen (Update 38 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows Media-Format-Laufzeitkomponente*9, 9.5 und 11 für Windows*XP*SP*3 (KB954155) wird heruntergeladen (Update 39 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows*XP (KB975025) wird heruntergeladen (Update 40 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB974571) wird heruntergeladen (Update 41 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB974112) wird heruntergeladen (Update 42 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB958869) wird heruntergeladen (Update 43 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB969059) wird heruntergeladen (Update 44 von 73)... Abgeschlossen!
Update für Windows*XP (KB968389) wird heruntergeladen (Update 45 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB969947) wird heruntergeladen (Update 46 von 73)... Abgeschlossen!
Update für Windows XP (KB973687) wird heruntergeladen (Update 47 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP Service Pack 3 (KB952069) wird heruntergeladen (Update 48 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB974318) wird heruntergeladen (Update 49 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB974392) wird heruntergeladen (Update 50 von 73)... Abgeschlossen!
Update für Windows XP (KB955759) wird heruntergeladen (Update 51 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB973904) wird heruntergeladen (Update 52 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB972270) wird heruntergeladen (Update 53 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB975713) wird heruntergeladen (Update 54 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB978037) wird heruntergeladen (Update 55 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB975560) wird heruntergeladen (Update 56 von 73)... Abgeschlossen!
Kumulatives Sicherheitsupdate für ActiveX Killbits für Windows XP (KB978262) wird heruntergeladen (Update 57 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB977914) wird heruntergeladen (Update 58 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB971468) wird heruntergeladen (Update 59 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB978706) wird heruntergeladen (Update 60 von 73)... Abgeschlossen!
Update für Windows XP (KB979306) wird heruntergeladen (Update 61 von 73)... Abgeschlossen!
Update des Microsoft-Browserauswahlbildschirms für EEA-Benutzer von Windows XP (KB976002) wird heruntergeladen (Update 62 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows*XP (KB975561) wird heruntergeladen (Update 63 von 73)... Abgeschlossen!
Kumulatives Sicherheitsupdate für Internet Explorer 6 unter Windows XP (KB980182) wird heruntergeladen (Update 64 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB980232) wird heruntergeladen (Update 65 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB977816) wird heruntergeladen (Update 66 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB979309) wird heruntergeladen (Update 67 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB978338) wird heruntergeladen (Update 68 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB979683) wird heruntergeladen (Update 69 von 73)... Abgeschlossen!
Windows-Tool zum Entfernen bösartiger Software - April 2010 (KB890830) wird heruntergeladen (Update 70 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB981349) wird heruntergeladen (Update 71 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows Media Player 9 für Windows XP SP3 (KB979402) wird heruntergeladen (Update 72 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB978601) wird heruntergeladen (Update 73 von 73)... Abgeschlossen!
Installation wird initialisiert... Abgeschlossen!
Sicherheitsupdate für Flash Player (KB923789) wird installiert (Update 1 von 73)... Abgeschlossen!
Kumulatives Sicherheitsupdate für ActiveX Killbits für Windows XP (KB950760) wird installiert (Update 2 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB950762) wird installiert (Update 3 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB951376) wird installiert (Update 4 von 73)... Abgeschlossen!
Update für Windows XP (KB951978) wird installiert (Update 5 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB951748) wird installiert (Update 6 von 73)... Abgeschlossen!
Sicherheitsupdate für Outlook Express unter Windows XP (KB951066) wird installiert (Update 7 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB946648) wird installiert (Update 8 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB952954) wird installiert (Update 9 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB950974) wird installiert (Update 10 von 73)... Abgeschlossen!
Update für Windows XP (KB952287) wird installiert (Update 11 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB958644) wird installiert (Update 12 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB955069) wird installiert (Update 13 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB954459) wird installiert (Update 14 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956802) wird installiert (Update 15 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB956803) wird installiert (Update 16 von 73)... Abgeschlossen!
Sicherheitsupdate für Windows XP (KB960225) wird installiert (Update 17 von 73)... Abgeschlossen!
Update für Windows XP (KB967715) wird installiert (Update 18 von 73)... Abgeschlossen!
Windows Genuine Advantage Notification (KB905474) wird installiert (Update 19 von 73)... Abgeschlossen!

[RIWA]

333590008/1

[Shocker]

http://www.youtube.com/watch?v=1D7usLNCwG0&feature=related

[The WarP]

Wort zum Sonntag - Woche 35
Teilen
Samstag, 22. August 2009 um 11:42
Heute: Kick it like ... Beckham - oder nicht.

Das heutige Wort zum Sonntag ist ein (hoffentlich wertvoller) Beitrag zur Verständigung zwischen Frau und Mann.
Es geht um - und jetzt nicht schrecken, liebe Damen, ihr solltet das wirklich lesen - Fußball!

So wie Euch Schuhe, Make Up oder gefühlsschwangere Serien etwas bedeuten, so ist es bei uns Männern der Fußball, aus dem wir uns was machen. Sonst haben wir ja nix - kein Benehmen, keine Kultur, keinen Tiefgang! ;)
Statistisch ist das so: 104% der männlichen Weltbevölkerung stehen auf das Spiel mit dem runden Leder.
Da ich wichtig finde, dass Frauen Männer besser verstehen können, möchte ich euch hier eine kurze Einführung und Erklärung geben, also:
Warum ist es für Männer so wichtig?
Was sollte man zum Thema Fußball wissen?
Worum geht es bei Fußball eigentlich?

Wie beim Radio, fange ich in umgekehrter Reihenfolge an, mich mit diesen Fragen zu beschäftigen ...

Fußball gehört sportwissenschaftlich zu den Ballsportarten und wird in allen Ländern des Universums gespielt. Nur in Peru geht das nicht so toll, da rollt der Ball immer ins talwärts gelegene Tor. Und in Alaska muss man mit Spikes spielen.
Historisch gesehen kann man sagen, dass Kicken zur Zeit der Barbaren erfunden wurde - da hat man eben statt Lederbälle Köpfe verwendet.
Grundsätzlich spielen bei jedem Fußballspiel 11 Männer gegen 11 andere Männer.
(Damenfußball heißt nur so, hat mit Fußball aber nichts zu tun- ich klammere es hiermit aus, sorry BETTY!)
In Wirklichkeit sind es aber 12 - der 12. Mann sind die Fans.
Jeder Mann entscheidet sich - so circa im 2. Lebensjahr - für einen Verein seines Herzens.
Man wird Anhänger eines Vereins weil es der Großvater und Vater schon waren - das wird im Blut übergeben, irgendwo im Testosteron-Bereich.
Ich bin kein Biologe, aber ich vermute, der gesuchte Bereich im DNS-Strang ist sehr groß - fehlt er, wird man ein Mädchen oder Friseur.
Diese Entscheidung ist Passion, wie Religion, nur viel weitreichender.
Seinem Verein hält man die Treue, geht durch Sieg und Niederlage mit ihm.
Auch hierzu ein paar Werte ...
In Österreich gibt es 2 Arten von Fans und Vereinsleidenschaften:
Entweder man mag Rapid, oder man mag Rapid nicht.
Dazwischen gibt es nichts.
(Für die deutschen LeserInnen: Entweder man mag den FC Bayern, oder man mag den FC Bayern nicht.)
Man wechselt seinen Verein auch niemals - nicht zu vergleichen mit den Saisonschals von Gucci, Prada oder Kik.
Vereinswechsel ist Hochverrat.

Richtige Fußballer steigen hart ein, foulen und sind nach einem Spiel dreckig. Nicht so, wie ein Cristiano Ronaldo oder eine Victoria Beckham.
Ersterer ist zwar technisch gut, wird mit seiner perfekten Frisur und seinen weissen Ballerina-Schühchen oft nicht ernst genommen.
Man kann einfach kein gutes Spiel gemacht haben, wenn man ohne Grasflecken, Prellungen und mit weissen Schuhen vom Spielfeld geht.

Fußball wird in Klassen gespielt: Anfangen tut es mit der Bierliga - der niedrigsten Spielkasse - bei der der Verlierer eine Runde ausgeben muss.
Bier eben. Daher sind die besten Mannschaften in den Bierligen meist die Feuerwehr-Sportvereine.
Das Höchste, was man als Verein erreichen kann, ist der Gewinn der Champions League.
Irgendwo wurde im Mittelalter mal festgelegt, dass man die Champions League nur gewinnen kann, wenn man aus England, Spanien oder Italien ist.
Um Euch Mädels einen Anhaltspunkt zu geben: Die Champions Leagure zu gewinnen ist in etwa so, wie wenn sich RTL plötzlich in "Woman" umbenennt und nur mehr Gilmore Girls, Verliebt in Berlin, Emergency Room (mit George Clooney) und Greys Anatomy spielt - rund um die Uhr, das ganze Jahr lang, ohne Unterbrechung und ohne Gilette Werbung!

Wie sich die fachkundige Frau aber denken kann, hat Österreich mit der Champions League relativ wenig zu tun - wir sind eher in die Bierliga einzuordnen. Am liebsten spielen wir daher gegen Peru, wenn deren Tor unten ist.
Und wenn man vom österreichischen Nationalteam spricht, dann sollte euch nicht der Fauxpas passieren, die Faröer Inseln zu erwähnen.

Natürlich schätzen wir Fußball-Männer auch Spielerfrauen ...
Silvi van der Vaart zum Beispiel ist ...
(Ich habe aber absichtlich beschlossen, diese Aüsserung nicht weiter zu kommentieren!)

Hier ein kurzes Dictionary für Frauen, damit Fußball-Begriffe in Zukunft nicht mehr ganz so fremd für euch sind:

"Des is a Eiagoalie!"
heißt nicht etwa:
Der Tormann arbeitet in seiner Freizeit in einer Legebatterie.
Es bedeutet übersetzt:
Ich traue dem Tormann nicht zu, unter Druck jeden Ball nach bestem Können zu parieren.

"Jetzt hot a a Gurkerl kriagt, der Schauer!"
Hier ist nicht gemeint, dass er seine Wurstsemmel gerne mit Essiggurkerl mag,
es heißt:
Der Gegenspieler wurde ausgetrickst - der Ball durch seine Beine getunnelt, weil der der Kontrahent schneller erfassen konnte, was Sache ist.

"Herst Schworza, tua erm ausse, den Trottel!"
Keine Sorge - kein Rassismus.
Es bedeutet:
Lieber Schiedsrichter, bitte schließ den unfairen Spieler aus! Er hat ein Foul begangen und soll doch früher duschen gehen.

Manchmal sind die eingefleischten Fans sogar so handzahm, dass sie dem Schiedsrichter anbieten, ihn nach dem Spiel zum Auto zu bringen!
("Schiri, wir wissen wo dei Auto steht ...")


Und jetzt zur eigentlichen Botschaft, liebe Damen:
Drückt doch ab und zu mal ein Auge zu, wenns um Fußball geht.
So schlimm ist das nicht.
Wir Männer versprechen im Gegenzug, beim nächsten Candlelight Dinner nichts von der portugiesischen Abschlussschwäche oder der Mattersburger Härte zu erwähnen.
Und ihr könnt im Gegenzug ja auch mal ein Auge zudrücken, wenn Champions League Abend ist.
Fußball ist nämlich im Prinzip nichts anderes wie Sex and the city für Männer.
Mit viel weniger Prada.
Und wir Männer sind vor und nach jedem wichtigen Spiel ohnehin wieder ganz zivilisiert, normal und gepflegt.
(Wir geben uns zumindest Mühe!)
So hat jeder sein Ding. Und das ist auch gut so.

Bis dann, schönes Wochenende.

PS.:
Heit is Spütog!
(Nein, es wird nicht abgewaschen, Meisterschaft ist.)

[clubhead]

Fogo De Chao - Churrascaria

[Ben_Zane]

file:///Z:/Programm%20ComServ.zip

[Ben_Zane]

http://images.4fuckr.com/988c1c57db92/4/5/e/2/6/45e26224ef.jpg

[Chris B.]

http://www.amazon.de/Fujitsu-Siemens-Notetaker-Digitales-Diktierger%C3%A4t/dp/B001E3G790/ref=sr_1_1?ie=UTF8&s=ce-de&qid=1272024158&sr=1-1

[Lena]

Hi there!

Since my website is completely outdated,
I decided to keep you informed by using the following networks:

und:

But don't worry, there is a new website planned.
This is just a workaround for my laziness :)

[Chris B.]

Sackgesicht :D

[Ben_Zane]

Sackgesicht :D

kann ich disch billig hompätsch machen !

[Chris B.]

Nope, hab eh einen Webbi. Muss mich nur mal hinsetzen und das Grafische machen... aber lieber erstmal musikalisch weitermachen.. :)

[Steve Guess]

Oliver Huntemann - Rikarda

[reini]

http://www.youtube.com/watch?v=K11Bh4VtHkU

[Alex Kay]

Lustig, was da alles drinn sein kann :hihi:


<!--<reference name="content">
<block type="catalog/product_new" name="home.catalog.product.new" alias="product_new" template="catalog/product/new.phtml" after="cms_page"><action method="addPriceBlockType"><type>bundle</type><block>bundle/catalog_product_price</block><template>bundle/catalog/product/price.phtml</template></action></block>
<block type="reports/product_viewed" name="home.reports.product.viewed" alias="product_viewed" template="reports/home_product_viewed.phtml" after="product_new"><action method="addPriceBlockType"><type>bundle</type><block>bundle/catalog_product_price</block><template>bundle/catalog/product/price.phtml</template></action></block>
<block type="reports/product_compared" name="home.reports.product.compared" template="reports/home_product_compared.phtml" after="product_viewed"><action method="addPriceBlockType"><type>bundle</type><block>bundle/catalog_product_price</block><template>bundle/catalog/product/price.phtml</template></action></block>
</reference><reference name="right">
<action method="unsetChild"><alias>right.reports.product.viewed</alias></action>
<action method="unsetChild"><alias>right.reports.product.compared</alias></action>
</reference>-->

[clubhead]

http://www.youtube.com/watch?v=DeS1qkIjVTY

[ziesi]

05 Eco feat. Lira Yin - Love (Dub Mix)

[KRIZ VAN DALE]

Ist CO2 eigentlich giftig? Im Grunde ist Kohlenstoffdioxid nichts anderes wie ein Bio-Pflanzendünger – eine geniale Erfindung der Natur. Obst und Gemüse gedeihen folglich besser bei erhöhtem CO2-Anteil der Luft. Die Fotosynthese der Pflanzen wandelt es in Biomasse um. Ohne Kohlendioxid gäbe es keinen Sauerstoff und auch kein Leben. Doch wenn es so schädlich für die Umwelt ist, wieso pumpen es dann Landwirte in ihre Glashäuser, damit die Tomaten besser wachsen?
Wir sind alle Umweltsünder, wenn wir etwa Sekt, Bier oder Mineralwasser trinken: Die Bläschen im Glas – die Kohlensäure – besteht aus gelöstem CO2 in Reaktion auf Wasser. Man sieht, wirklich giftig ist es in dem Sinn eigentlich nicht.
Auch in der oberen Atmosphäre hat es nichts verloren. Genaugenommen ist CO2 schwerer als Luft und fällt daher zu Boden. Diese Dinge lernt man im Physikunterricht. Und man sieht das besonders schön am Disconebel. Auch Trockeneis ist – sie ahnen es bereits – CO2 in Reinkultur in gefrorenem Zustand.
Der Mensch kann auch nichts dafür, dass er am Tag etwa 1 Kilogramm Kohlendioxid ausatmet. Bei einer Temperatur von 25 ºC sind das ca. 500 Liter an reinem CO2. So gesehen, braucht man den Wagen erst gar nicht zu starten, um die Umwelt zu verschmutzen. CO2 findet Verwendung beim Entkoffeinieren von Kaffee, als Treibgas in Sprays und dient als Inhaltsstoff von Abführmitteln (CO2 dehnt den Darm, worauf man auf die Toilette muss). Sollte es bei ihnen zu Hause mal brennen, benützen sie bitte nicht den Feuerlöscher. Der Schaum ist CO2-haltig (um dem Feuer den Sauerstoff zu entziehen). Und wenn sie vor haben, draußen bald den Griller anzuwerfen, verzichten sie bitte auf die Holzkohle. Sie wissen ja wie das ist mit den fossilen Brennstoffen. Nehmen sie stattdessen ein Brennglas für ihre Wurst. Die Sonne ist heiß genug.

Während die Erderwärmung und der Treibhauseffekt unbestritten sind – es gibt sie seit 5 Mrd. Jahren; wir hätten hier sonst Minus 18° C –, sind sich die Klimaforscher keineswegs einig darüber, wieweit vermehrte CO2-Emissionen durch Industriestaaten diesen natürlichen Effekt verstärken. Selbst der Weltklimarat der UNO kann diese Wirkung nur als „sehr wahrscheinlich“ einschätzen.
Auf 95 % des CO2-Gehaltes in der Atmosphäre hat der Mensch jedenfalls keinen Einfluss. Er hängt zB mit den Abkühlphasen der Meere zusammen, der Entwaldung der Erde (Minus 70 %) und CO2 kann aus Erdspalten austreten.
Der Anstieg von CO2 ist gewiss eine Tatsache, der Einfluss von CO2 auf die Klimakonstanz ist bestenfalls eine Theorie (gestützt auf Computersimulationsrechnungen und ein paar Bohrungen in der Antarktis), aber die Bestimmung der Stärke dieses Einflusses, heute und in 100 Jahren, und ob der Mensch daran schuld sei, ist bestenfalls eine Powerpoint-Präsentation von Vielflieger Al Gore. In den letzten 20 Jahren wurden rund 50 Mrd. Dollar für den Kampf gegen die Erderwärmung ausgegeben und der Klimaschutz ist zu einem lukrativen Geschäftszweig geworden. „Eine unbequeme Wahrheit“ ist auch, dass Al Gores Investmentfonds mit 10 Prozent an der Terminbörse für Emissionshandel beteiligt ist, die mit Bußgeldern für überhöhte Treibgas-Austöße handelt. Laut Greenpeace wird Österreich die Verfehlung des Kyoto-Ziels über eine Milliarde Euro kosten. Was tut man nicht alles um die Welt zu retten.

[Chris B.]

alle 15-20 Sekunden

[Ben_Zane]

121483135

10char!!!

[Loopo]

per Luftpost

[Free]

http://www.dancecharts.at/forum/showpost.php?p=422184&postcount=1

[Ben_Zane]

Besitzen Sie zwar eine Wiimote, aber keine Sensorleiste, gibt es günstige Abhilfe: Stellen Sie einfach Teelichter im Abstand von 15-30 cm auf oder unter den Monitor.

[Ben_Zane]

[ ] werd ich lesen
[X] werd ich nicht lesen
[ ] ich mag dich trotzdem
[X] verreck an AIDS du dreckiger Zigeunerbaron

[DJ Moreno]

http://www.club-auslage.at

[RIWA]

http://antiduckface.com/

[Katsche]

http://forum.ameisengame.de/img/avatars/3581.gif
abalone (http://forum.ameisengame.de/profile.php?id=3581) Mitglied Ort: YOH&NightHawk Registriert: 01-10-2009 Beiträge: 287 E-Mail (http://forum.ameisengame.de/misc.php?email=3581)
Re: Jumper bietet seinen Acc zum Verkauf an

So ziemlich alle Accounts von denen ich weiss die verkauft wurden
waren innerhalb weniger Wochen gemetzelt.
Einer der noch nie gespielt hat kann das gar nicht schätzen.
Ausserdem sind neue Besitzer meist total überfordert.

[Chris B.]

The next Call of Duty game debuts on this week's GameTrailers TV

[Shibby]

Angry birds 5-19 Bonuslevel

[Stee Wee Bee]

Ricky Rich & Disco Pogo ft. Seaside Clubbers

[Ben_Zane]

file:///C:/Users/a53579.OEAMTC/Desktop/CarIMGSysP.tib

[Steve Guess]

\\10.20.91.190\WGS\Anfragen

[Stee Wee Bee]

Deepforces_-_godlike_(original_mix)www.club-team.pl.mp3

[Lena]

Sample/isd-allehassenchris-s04e22-sample.avi

[Chris B.]

Deepforces_-_godlike_(original_mix)www.club-team.pl.mp3

<3

Gib zu, dir gefällts. :D

[guenny123]

http://snipr.com/newphotomosaic

[Berni]

Deepforces_-_godlike_(original_mix)www.club-team.pl.mp3
Grün > :D :D :D :D

[Chris B.]

javascript:;

[RAZE]

Funkagenda & Mark Knight - Man With The Red Face

[Loopo]

There are three canonical problems associated with HMM:

[Lena]

string[] zeilen = File.ReadAllLines(dateiPfad);

foreach (string zeile in zeilen)

{


}

[Stee Wee Bee]

class goesNowhere(object):
def doesNothing(self):
pass

[Chris B.]

´Austria 500 |||||||||||||||||||||||||||||||||||||||||||||||||| 90
Germany 100 |||||||||| 50
New Zealand 400 |||||||||||||||||||||||||||||||||||||||| 50
Pakistan 500 |||||||||||||||||||||||||||||||||||||||||||||||||| 100
U.K. 300 |||||||||||||||||||||||||||||| 50
Yemen 500 |||||||||||||||||||||||||||||||||||||||||||||||||| 30
Test 300 |||||||||||||||||||||||||||||| 20
Austria 500 |||||||||||||||||||||||||||||||||||||||||||||||||| 90
Germany 100 |||||||||| 50
New Zealand 400 |||||||||||||||||||||||||||||||||||||||| 50
Pakistan 500 |||||||||||||||||||||||||||||||||||||||||||||||||| 100
U.K. 300 |||||||||||||||||||||||||||||| 50
Yemen 500 |||||||||||||||||||||||||||||||||||||||||||||||||| 30
Test 300 |||||||||||||||||||||||||||||| 20

[Ben_Zane]

Larv öu larv, oi gadda tell joü hauh oi viel abauhaud joü...

[RIWA]

Cyclone WCE Andy Moore Edition

[Stee Wee Bee]

5099964734422

[MoonWalker]

http://www.chip.de/downloads/BlueScreen-Screensaver-3.2_22706796.html

[Ben_Zane]

Jetzt zum Aktionspreis
Schihelme (ab EUR 25,--) , Rückenprotektoren (EUR 29,--),
Schibrillen (ab EUR 14,90), Unterhelmmützen (EUR 6,90).
Ab sofort bei allen ÖAMTC-Stützpunkten in Salzburg.

[The WarP]

http://team.voestalpine.net/personalmanagement/psys/sysb/Arbeitsunterlagen1/Forms/AllItems.aspx?RootFolder=%2fpersonalmanagement%2fp sys%2fsysb%2fArbeitsunterlagen1%2fPE%5fVM%2fBelast ungsuntersuchungen&FolderCTID=&View=%7b94C5C6D0%2dD750%2d4B4F%2d93CF%2d231FAB8092 37%7d

[Chris B.]

Option Explicit

Public Const color_columncount As Integer = 14
Public Const lastcolumn = 37
Public Const column_lasdata_offset_x As Integer = 7
Public Const offset_x As Long = 1
Public Const offset_y As Long = 8
Public formationchange As Boolean
Public Const las_keywords As String = "DEPT,POR,SW,VCL,PERM,DEV,TVD"
Public Const maxrow As Long = 65536 'EXCEL Limit
Public lastrow As Long
Public str_address As String
Public Const shtMain As String = "LAS"
Public Const shtLayers As String = "Layers"
Public Const shtFormations As String = "Formations"
Public Const shtConfig As String = "Configuration"

Public Sub get_layerlist()

Dim layer_row As Long
Dim top_column As Integer
Dim read_offset_y As Integer
Dim sheetname_layers As String
Dim sheet_layers_offset_x As Integer
Dim sheet_layers_offset_y As Integer
Dim i As Long
Dim j As Long
Dim strAddress As String

strAddress = Selection.address 'store actual address
top_column = 18 'column which holds the top mdt values of layers/formations
read_offset_y = 6 'start row offset (searching for layertops)
sheet_layers_offset_x = 0
sheet_layers_offset_y = 2
j = 0
Application.ScreenUpdating = False

'drop old data
Sheets(shtLayers).Select
ActiveWorkbook.Sheets(shtLayers).Cells(1 + sheet_layers_offset_y, 1 + sheet_layers_offset_x).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets(shtMain).Select
'/drop old data

lastrow = Sheets(shtConfig).Cells(1, 2)
ActiveWorkbook.Sheets(shtMain).Cells(read_offset_y + 1, top_column).Select

Do While Selection.Row < lastrow

Selection.End(xlDown).Select
If Selection.Row < maxrow Then

Selection.Offset(1, 0).Select 'layertop selected
layer_row = Selection.Row
With ActiveWorkbook.Sheets(shtLayers)
If Len(ActiveWorkbook.Sheets(shtMain).Cells(layer_row , 2)) > 0 Then
.Cells(1 + sheet_layers_offset_y + j, 1 + sheet_layers_offset_x).value = ActiveWorkbook.Sheets(1).Cells(layer_row, 2)
Else
Sheets(shtMain).Cells(Selection.Row, 2).Select
Selection.End(xlUp).Select
.Cells(1 + sheet_layers_offset_y + j, 1 + sheet_layers_offset_x).value = Selection
End If

.Cells(1 + sheet_layers_offset_y + j, 2 + sheet_layers_offset_x).value = Cells(layer_row, top_column).value 'top
.Cells(1 + sheet_layers_offset_y + j, 3 + sheet_layers_offset_x).value = Cells(layer_row, top_column + 1).value 'bottom
.Cells(1 + sheet_layers_offset_y + j, 5 + sheet_layers_offset_x).value = Cells(layer_row, column_lasdata_offset_x + 7).value 'dev
.Cells(1 + sheet_layers_offset_y + j, 4 + sheet_layers_offset_x).value = Cells(layer_row, column_lasdata_offset_x + 8).value 'tvd

For i = 3 To 20
'mdt tvt por sw vcl perm (gross, net & netpay figures)
.Cells(1 + sheet_layers_offset_y + j, i + 3 + sheet_layers_offset_x).value = Cells(layer_row, top_column + i - 1).value
Next i
End With

ActiveWorkbook.Sheets(shtMain).Cells(layer_row, top_column).Select 'selection wieder zurückstellen
j = j + 1 'next row

End If
Loop
Range(strAddress).Select
Application.ScreenUpdating = True

End Sub

Private Sub get_formationlist()

Dim formation_row As Long
Dim read_offset_y As Integer
Dim sheet_formations_offset_x As Integer
Dim sheet_formations_offset_y As Integer
Dim strAddress As String
Dim curFormation As String
Dim toprow As Long
Dim top As Single
Dim bottomrow As Long
Dim rowcount As Long

'cutoffs
Dim cut_por As Single
Dim cut_sw As Single
Dim cut_vcl As Single
Dim cut_perm As Single

'current values
Dim cur_por As Single
Dim cur_sw As Single
Dim cur_vcl As Single
Dim cur_perm As Single

'chunks
Dim n_chunksize As Integer
Dim n_chunk_toprow As Long
Dim n_chunk_bottomrow As Long
Dim n_first As Boolean
Dim prev_was_net As Boolean

Dim chunksize As Integer
Dim chunk_toprow As Long
Dim chunk_bottomrow As Long
Dim first As Boolean
Dim prev_was_netpay As Boolean


'gross
Dim g_rows As Integer
Dim g_por As Single
Dim g_por_sum As Single
Dim g_sw As Single
Dim g_sw_sum As Single
Dim g_vcl As Single
Dim g_vcl_sum As Single
Dim g_perm As Single
Dim g_perm_sum As Single

'net
Dim n_mdt As Single
Dim n_tvt As Single
Dim n_por As Single
Dim n_por_sum As Single
Dim n_por_num As Single
Dim n_por_den As Single
Dim n_sw As Single
Dim n_sw_sum As Single
Dim n_sw_num As Single
Dim n_sw_den As Single
Dim n_vcl As Single
Dim n_vcl_sum As Single
Dim n_vcl_num As Single
Dim n_vcl_den As Single
Dim n_perm As Single
Dim n_perm_sum As Single
Dim n_perm_num As Single
Dim n_perm_den As Single

'net pay
Dim np_mdt As Single
Dim np_tvt As Single
Dim np_por As Single
Dim np_por_sum As Single
Dim np_por_num As Single
Dim np_por_den As Single
Dim np_sw As Single
Dim np_sw_sum As Single
Dim np_sw_num As Single
Dim np_sw_den As Single
Dim np_vcl As Single
Dim np_vcl_sum As Single
Dim np_vcl_num As Single
Dim np_vcl_den As Single
Dim np_perm As Single
Dim np_perm_sum As Single
Dim np_perm_num As Single
Dim np_perm_den As Single

Dim c As Long
Dim i As Long
Dim j As Long

j = 0
c = 0
chunksize = 0
n_chunksize = 0
lastrow = Sheets(shtConfig).Cells(1, 2)
strAddress = Selection.address 'store actual address
read_offset_y = 6 'start row offset (searching for formationtops)
sheet_formations_offset_x = 0
sheet_formations_offset_y = 2
Application.ScreenUpdating = False

'drop old data
Sheets(shtFormations).Select
ActiveWorkbook.Sheets(shtFormations).Cells(1 + sheet_formations_offset_y, 1 + sheet_formations_offset_x).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets(shtMain).Select
'/drop old data


Sheets(shtMain).Select
Cells(read_offset_y + 1, offset_x + 1).Select
Selection.End(xlDown).Select

Do While Selection.Row < lastrow

curFormation = Selection.value
toprow = Selection.Row
top = Cells(toprow, offset_x + column_lasdata_offset_x + 1)
Selection.End(xlDown).Select

If Selection.value = curFormation Then

'bottom found
bottomrow = Selection.Row + 1
rowcount = bottomrow - toprow + 1

cut_por = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 4)
cut_sw = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 3)
cut_vcl = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 2)
cut_perm = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 1)

With Sheets(shtFormations)
.Cells(1 + sheet_formations_offset_y + j, 1 + sheet_formations_offset_x).value = curFormation 'formationname
.Cells(1 + sheet_formations_offset_y + j, 2 + sheet_formations_offset_x).value = Cells(toprow, 1 + offset_x + column_lasdata_offset_x) 'top
.Cells(1 + sheet_formations_offset_y + j, 4 + sheet_formations_offset_x).value = cut_por 'por cut
.Cells(1 + sheet_formations_offset_y + j, 5 + sheet_formations_offset_x).value = cut_sw 'sw cut
.Cells(1 + sheet_formations_offset_y + j, 6 + sheet_formations_offset_x).value = cut_vcl 'vcl cut
.Cells(1 + sheet_formations_offset_y + j, 7 + sheet_formations_offset_x).value = cut_perm 'perm cut
.Cells(1 + sheet_formations_offset_y + j, 3 + sheet_formations_offset_x).value = Cells(bottomrow, 1 + offset_x + column_lasdata_offset_x) 'bottom
End With



blöablabalabalabal!!!!!!!!

[reini]

http://www.youtube.com/watch?v=eWUC5Q0RCAA

[Ben_Zane]

blöablabalabalabal!!!!!!!!

des war sicha ned dabei :D

[Chris B.]

war zu lang... hab gute 3/4 davon weggelöscht und balbalababalbla hingeschrieben :D

[Ravecore Project]

Option Explicit

Public Const color_columncount As Integer = 14
Public Const lastcolumn = 37
Public Const column_lasdata_offset_x As Integer = 7
Public Const offset_x As Long = 1
Public Const offset_y As Long = 8
Public formationchange As Boolean
Public Const las_keywords As String = "DEPT,POR,SW,VCL,PERM,DEV,TVD"
Public Const maxrow As Long = 65536 'EXCEL Limit
Public lastrow As Long
Public str_address As String
Public Const shtMain As String = "LAS"
Public Const shtLayers As String = "Layers"
Public Const shtFormations As String = "Formations"
Public Const shtConfig As String = "Configuration"

Public Sub get_layerlist()

Dim layer_row As Long
Dim top_column As Integer
Dim read_offset_y As Integer
Dim sheetname_layers As String
Dim sheet_layers_offset_x As Integer
Dim sheet_layers_offset_y As Integer
Dim i As Long
Dim j As Long
Dim strAddress As String

strAddress = Selection.address 'store actual address
top_column = 18 'column which holds the top mdt values of layers/formations
read_offset_y = 6 'start row offset (searching for layertops)
sheet_layers_offset_x = 0
sheet_layers_offset_y = 2
j = 0
Application.ScreenUpdating = False

'drop old data
Sheets(shtLayers).Select
ActiveWorkbook.Sheets(shtLayers).Cells(1 + sheet_layers_offset_y, 1 + sheet_layers_offset_x).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets(shtMain).Select
'/drop old data

lastrow = Sheets(shtConfig).Cells(1, 2)
ActiveWorkbook.Sheets(shtMain).Cells(read_offset_y + 1, top_column).Select

Do While Selection.Row < lastrow

Selection.End(xlDown).Select
If Selection.Row < maxrow Then

Selection.Offset(1, 0).Select 'layertop selected
layer_row = Selection.Row
With ActiveWorkbook.Sheets(shtLayers)
If Len(ActiveWorkbook.Sheets(shtMain).Cells(layer_row , 2)) > 0 Then
.Cells(1 + sheet_layers_offset_y + j, 1 + sheet_layers_offset_x).value = ActiveWorkbook.Sheets(1).Cells(layer_row, 2)
Else
Sheets(shtMain).Cells(Selection.Row, 2).Select
Selection.End(xlUp).Select
.Cells(1 + sheet_layers_offset_y + j, 1 + sheet_layers_offset_x).value = Selection
End If

.Cells(1 + sheet_layers_offset_y + j, 2 + sheet_layers_offset_x).value = Cells(layer_row, top_column).value 'top
.Cells(1 + sheet_layers_offset_y + j, 3 + sheet_layers_offset_x).value = Cells(layer_row, top_column + 1).value 'bottom
.Cells(1 + sheet_layers_offset_y + j, 5 + sheet_layers_offset_x).value = Cells(layer_row, column_lasdata_offset_x + 7).value 'dev
.Cells(1 + sheet_layers_offset_y + j, 4 + sheet_layers_offset_x).value = Cells(layer_row, column_lasdata_offset_x + 8).value 'tvd

For i = 3 To 20
'mdt tvt por sw vcl perm (gross, net & netpay figures)
.Cells(1 + sheet_layers_offset_y + j, i + 3 + sheet_layers_offset_x).value = Cells(layer_row, top_column + i - 1).value
Next i
End With

ActiveWorkbook.Sheets(shtMain).Cells(layer_row, top_column).Select 'selection wieder zurückstellen
j = j + 1 'next row

End If
Loop
Range(strAddress).Select
Application.ScreenUpdating = True

End Sub

Private Sub get_formationlist()

Dim formation_row As Long
Dim read_offset_y As Integer
Dim sheet_formations_offset_x As Integer
Dim sheet_formations_offset_y As Integer
Dim strAddress As String
Dim curFormation As String
Dim toprow As Long
Dim top As Single
Dim bottomrow As Long
Dim rowcount As Long

'cutoffs
Dim cut_por As Single
Dim cut_sw As Single
Dim cut_vcl As Single
Dim cut_perm As Single

'current values
Dim cur_por As Single
Dim cur_sw As Single
Dim cur_vcl As Single
Dim cur_perm As Single

'chunks
Dim n_chunksize As Integer
Dim n_chunk_toprow As Long
Dim n_chunk_bottomrow As Long
Dim n_first As Boolean
Dim prev_was_net As Boolean

Dim chunksize As Integer
Dim chunk_toprow As Long
Dim chunk_bottomrow As Long
Dim first As Boolean
Dim prev_was_netpay As Boolean


'gross
Dim g_rows As Integer
Dim g_por As Single
Dim g_por_sum As Single
Dim g_sw As Single
Dim g_sw_sum As Single
Dim g_vcl As Single
Dim g_vcl_sum As Single
Dim g_perm As Single
Dim g_perm_sum As Single

'net
Dim n_mdt As Single
Dim n_tvt As Single
Dim n_por As Single
Dim n_por_sum As Single
Dim n_por_num As Single
Dim n_por_den As Single
Dim n_sw As Single
Dim n_sw_sum As Single
Dim n_sw_num As Single
Dim n_sw_den As Single
Dim n_vcl As Single
Dim n_vcl_sum As Single
Dim n_vcl_num As Single
Dim n_vcl_den As Single
Dim n_perm As Single
Dim n_perm_sum As Single
Dim n_perm_num As Single
Dim n_perm_den As Single

'net pay
Dim np_mdt As Single
Dim np_tvt As Single
Dim np_por As Single
Dim np_por_sum As Single
Dim np_por_num As Single
Dim np_por_den As Single
Dim np_sw As Single
Dim np_sw_sum As Single
Dim np_sw_num As Single
Dim np_sw_den As Single
Dim np_vcl As Single
Dim np_vcl_sum As Single
Dim np_vcl_num As Single
Dim np_vcl_den As Single
Dim np_perm As Single
Dim np_perm_sum As Single
Dim np_perm_num As Single
Dim np_perm_den As Single

Dim c As Long
Dim i As Long
Dim j As Long

j = 0
c = 0
chunksize = 0
n_chunksize = 0
lastrow = Sheets(shtConfig).Cells(1, 2)
strAddress = Selection.address 'store actual address
read_offset_y = 6 'start row offset (searching for formationtops)
sheet_formations_offset_x = 0
sheet_formations_offset_y = 2
Application.ScreenUpdating = False

'drop old data
Sheets(shtFormations).Select
ActiveWorkbook.Sheets(shtFormations).Cells(1 + sheet_formations_offset_y, 1 + sheet_formations_offset_x).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets(shtMain).Select
'/drop old data


Sheets(shtMain).Select
Cells(read_offset_y + 1, offset_x + 1).Select
Selection.End(xlDown).Select

Do While Selection.Row < lastrow

curFormation = Selection.value
toprow = Selection.Row
top = Cells(toprow, offset_x + column_lasdata_offset_x + 1)
Selection.End(xlDown).Select

If Selection.value = curFormation Then

'bottom found
bottomrow = Selection.Row + 1
rowcount = bottomrow - toprow + 1

cut_por = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 4)
cut_sw = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 3)
cut_vcl = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 2)
cut_perm = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 1)

With Sheets(shtFormations)
.Cells(1 + sheet_formations_offset_y + j, 1 + sheet_formations_offset_x).value = curFormation 'formationname
.Cells(1 + sheet_formations_offset_y + j, 2 + sheet_formations_offset_x).value = Cells(toprow, 1 + offset_x + column_lasdata_offset_x) 'top
.Cells(1 + sheet_formations_offset_y + j, 4 + sheet_formations_offset_x).value = cut_por 'por cut
.Cells(1 + sheet_formations_offset_y + j, 5 + sheet_formations_offset_x).value = cut_sw 'sw cut
.Cells(1 + sheet_formations_offset_y + j, 6 + sheet_formations_offset_x).value = cut_vcl 'vcl cut
.Cells(1 + sheet_formations_offset_y + j, 7 + sheet_formations_offset_x).value = cut_perm 'perm cut
.Cells(1 + sheet_formations_offset_y + j, 3 + sheet_formations_offset_x).value = Cells(bottomrow, 1 + offset_x + column_lasdata_offset_x) 'bottom
End With



blöablabalabalabal!!!!!!!!


Source Code für nen Pr0n-Filter Add-On?:D

[RIWA]

http://www.mashup-germany.com/mashup/

[clubhead]

if(k == 5)
{
alert("bla");
return "";
}

[The WarP]

Option Explicit

Public Const color_columncount As Integer = 14
Public Const lastcolumn = 37
Public Const column_lasdata_offset_x As Integer = 7
Public Const offset_x As Long = 1
Public Const offset_y As Long = 8
Public formationchange As Boolean
Public Const las_keywords As String = "DEPT,POR,SW,VCL,PERM,DEV,TVD"
Public Const maxrow As Long = 65536 'EXCEL Limit
Public lastrow As Long
Public str_address As String
Public Const shtMain As String = "LAS"
Public Const shtLayers As String = "Layers"
Public Const shtFormations As String = "Formations"
Public Const shtConfig As String = "Configuration"

Public Sub get_layerlist()

Dim layer_row As Long
Dim top_column As Integer
Dim read_offset_y As Integer
Dim sheetname_layers As String
Dim sheet_layers_offset_x As Integer
Dim sheet_layers_offset_y As Integer
Dim i As Long
Dim j As Long
Dim strAddress As String

strAddress = Selection.address 'store actual address
top_column = 18 'column which holds the top mdt values of layers/formations
read_offset_y = 6 'start row offset (searching for layertops)
sheet_layers_offset_x = 0
sheet_layers_offset_y = 2
j = 0
Application.ScreenUpdating = False

'drop old data
Sheets(shtLayers).Select
ActiveWorkbook.Sheets(shtLayers).Cells(1 + sheet_layers_offset_y, 1 + sheet_layers_offset_x).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets(shtMain).Select
'/drop old data

lastrow = Sheets(shtConfig).Cells(1, 2)
ActiveWorkbook.Sheets(shtMain).Cells(read_offset_y + 1, top_column).Select

Do While Selection.Row < lastrow

Selection.End(xlDown).Select
If Selection.Row < maxrow Then

Selection.Offset(1, 0).Select 'layertop selected
layer_row = Selection.Row
With ActiveWorkbook.Sheets(shtLayers)
If Len(ActiveWorkbook.Sheets(shtMain).Cells(layer_row , 2)) > 0 Then
.Cells(1 + sheet_layers_offset_y + j, 1 + sheet_layers_offset_x).value = ActiveWorkbook.Sheets(1).Cells(layer_row, 2)
Else
Sheets(shtMain).Cells(Selection.Row, 2).Select
Selection.End(xlUp).Select
.Cells(1 + sheet_layers_offset_y + j, 1 + sheet_layers_offset_x).value = Selection
End If

.Cells(1 + sheet_layers_offset_y + j, 2 + sheet_layers_offset_x).value = Cells(layer_row, top_column).value 'top
.Cells(1 + sheet_layers_offset_y + j, 3 + sheet_layers_offset_x).value = Cells(layer_row, top_column + 1).value 'bottom
.Cells(1 + sheet_layers_offset_y + j, 5 + sheet_layers_offset_x).value = Cells(layer_row, column_lasdata_offset_x + 7).value 'dev
.Cells(1 + sheet_layers_offset_y + j, 4 + sheet_layers_offset_x).value = Cells(layer_row, column_lasdata_offset_x + 8).value 'tvd

For i = 3 To 20
'mdt tvt por sw vcl perm (gross, net & netpay figures)
.Cells(1 + sheet_layers_offset_y + j, i + 3 + sheet_layers_offset_x).value = Cells(layer_row, top_column + i - 1).value
Next i
End With

ActiveWorkbook.Sheets(shtMain).Cells(layer_row, top_column).Select 'selection wieder zurückstellen
j = j + 1 'next row

End If
Loop
Range(strAddress).Select
Application.ScreenUpdating = True

End Sub

Private Sub get_formationlist()

Dim formation_row As Long
Dim read_offset_y As Integer
Dim sheet_formations_offset_x As Integer
Dim sheet_formations_offset_y As Integer
Dim strAddress As String
Dim curFormation As String
Dim toprow As Long
Dim top As Single
Dim bottomrow As Long
Dim rowcount As Long

'cutoffs
Dim cut_por As Single
Dim cut_sw As Single
Dim cut_vcl As Single
Dim cut_perm As Single

'current values
Dim cur_por As Single
Dim cur_sw As Single
Dim cur_vcl As Single
Dim cur_perm As Single

'chunks
Dim n_chunksize As Integer
Dim n_chunk_toprow As Long
Dim n_chunk_bottomrow As Long
Dim n_first As Boolean
Dim prev_was_net As Boolean

Dim chunksize As Integer
Dim chunk_toprow As Long
Dim chunk_bottomrow As Long
Dim first As Boolean
Dim prev_was_netpay As Boolean


'gross
Dim g_rows As Integer
Dim g_por As Single
Dim g_por_sum As Single
Dim g_sw As Single
Dim g_sw_sum As Single
Dim g_vcl As Single
Dim g_vcl_sum As Single
Dim g_perm As Single
Dim g_perm_sum As Single

'net
Dim n_mdt As Single
Dim n_tvt As Single
Dim n_por As Single
Dim n_por_sum As Single
Dim n_por_num As Single
Dim n_por_den As Single
Dim n_sw As Single
Dim n_sw_sum As Single
Dim n_sw_num As Single
Dim n_sw_den As Single
Dim n_vcl As Single
Dim n_vcl_sum As Single
Dim n_vcl_num As Single
Dim n_vcl_den As Single
Dim n_perm As Single
Dim n_perm_sum As Single
Dim n_perm_num As Single
Dim n_perm_den As Single

'net pay
Dim np_mdt As Single
Dim np_tvt As Single
Dim np_por As Single
Dim np_por_sum As Single
Dim np_por_num As Single
Dim np_por_den As Single
Dim np_sw As Single
Dim np_sw_sum As Single
Dim np_sw_num As Single
Dim np_sw_den As Single
Dim np_vcl As Single
Dim np_vcl_sum As Single
Dim np_vcl_num As Single
Dim np_vcl_den As Single
Dim np_perm As Single
Dim np_perm_sum As Single
Dim np_perm_num As Single
Dim np_perm_den As Single

Dim c As Long
Dim i As Long
Dim j As Long

j = 0
c = 0
chunksize = 0
n_chunksize = 0
lastrow = Sheets(shtConfig).Cells(1, 2)
strAddress = Selection.address 'store actual address
read_offset_y = 6 'start row offset (searching for formationtops)
sheet_formations_offset_x = 0
sheet_formations_offset_y = 2
Application.ScreenUpdating = False

'drop old data
Sheets(shtFormations).Select
ActiveWorkbook.Sheets(shtFormations).Cells(1 + sheet_formations_offset_y, 1 + sheet_formations_offset_x).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets(shtMain).Select
'/drop old data


Sheets(shtMain).Select
Cells(read_offset_y + 1, offset_x + 1).Select
Selection.End(xlDown).Select

Do While Selection.Row < lastrow

curFormation = Selection.value
toprow = Selection.Row
top = Cells(toprow, offset_x + column_lasdata_offset_x + 1)
Selection.End(xlDown).Select

If Selection.value = curFormation Then

'bottom found
bottomrow = Selection.Row + 1
rowcount = bottomrow - toprow + 1

cut_por = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 4)
cut_sw = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 3)
cut_vcl = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 2)
cut_perm = Cells(toprow, 1 + offset_x + column_lasdata_offset_x - 1)

With Sheets(shtFormations)
.Cells(1 + sheet_formations_offset_y + j, 1 + sheet_formations_offset_x).value = curFormation 'formationname
.Cells(1 + sheet_formations_offset_y + j, 2 + sheet_formations_offset_x).value = Cells(toprow, 1 + offset_x + column_lasdata_offset_x) 'top
.Cells(1 + sheet_formations_offset_y + j, 4 + sheet_formations_offset_x).value = cut_por 'por cut
.Cells(1 + sheet_formations_offset_y + j, 5 + sheet_formations_offset_x).value = cut_sw 'sw cut
.Cells(1 + sheet_formations_offset_y + j, 6 + sheet_formations_offset_x).value = cut_vcl 'vcl cut
.Cells(1 + sheet_formations_offset_y + j, 7 + sheet_formations_offset_x).value = cut_perm 'perm cut
.Cells(1 + sheet_formations_offset_y + j, 3 + sheet_formations_offset_x).value = Cells(bottomrow, 1 + offset_x + column_lasdata_offset_x) 'bottom
End With



blöablabalabalabal!!!!!!!!

Neue Deepforces Single am Start ???? :D :D :D