JayN

Dim Hilfsvariable as String Dim Name, Strasse, Ort as String Hilfsvariable = Textfeld1.Value Name = Left (Hilfsvariable,Instr (1, Hilfsvariable, vbCrLf) - 1) Hilfsvariable = Right (Hilfsvariable, Len (Hilfsvariable) - Instr(1, Hilfsvariable, vbCrLf)) Strasse = Left (Hilfsvariable,Instr (1, Hilfsvariable, vbCrLf) - 1) Hilfsvariable = Right (Hilfsvariable, Len (Hilfsvariable) - Instr(1, Hilfsvariable, vbCrLf)) Ort = Hilfsvariable Textfeld2.Value = Name Textfeld3.Value = Strasse Textfeld4.Value = Ort Hoffe es klappt... Gruß JayN

Hallo, einfach nach der Berechnung das hier einfügen (x = Ergebnisvariable): x = x \ 1 WICHTIG! Backslash und nicht Slash! Gruß JayN P.S. Hoffe, dass es hilft EDIT: Ups, nee klappt doch nicht!

Das Babyerstausstattungsgeld ist vom Verdienst abhängig und kann bis zur 25ten Schwangerschaftswoche beantragt werden. Uns wurde es vor kurzem abgelehnt. ProFamilia ist zwar nicht der richtige Ansprechpartner, aber die Leute da kennen die Adressen, wo man das Geld in Deiner Nähe beantragen kann. Gruß JayN

Habe schon 10-15x bei ebay eingekauft... bisher ausschließlich postive Erfahrungen. Zu Paypal kann ich nichts sagen. Gruß JayN Edit: Ups, habe nicht richtig gelesen... mit ebay.COM habe ich nicht so viele Erfahrungen...

Puh... die Geschichte ist noch da... Ich habe sie gefunden... *freu* Meine Frau geht am 15.12 zu 'ner Tupperparty und will mich mitschleppen... das wollte ich ihr als Abschreckung vorlegen...

Also mir fällt nur eine Lösung ein und zwar das schreiben einer eigenen Function: Function Zahllaenge (ByVal zahl as Variant) as Integer Dim laenge as Integer laenge = 0 Do While zahl <> 0 zahl = zahl \ 10 <------------ WICHTIG: BACKSLASH! laenge = laenge + 1 Loop Zahllaenge = laenge End Function

Nach der 12. JayN

Mmmhhhh... welches Zeugnis war's doch gleich wieder ? Ich glaube, ich hatte damals die Zeugnisse der beiden letzten Jahre eingereicht, also 10te Abschlußzeugnis und 11te Abschlußzeugnis... oder gab's in der 11ten ein Halbjahreszeugnis? *Nicht mehr weiß* Natürlich hoffe ich, dass das keine Auswirkungen auf meine Zukunft hat. Eigentlich hatte ich innerlich mit dem Studium schon abgeschlossen, aber mich reizt noch immer so ein bißchen ein Fern- oder Onlinestudium. Irgendwas berufsbegleitendes. Ein Vollstudium kommt nicht in Frage, da ich verheiratet bin. Tja, was hatte ich vorher für Vorkenntnisse und Praktika? Ich hatte im Rahmen der 12ten Jahrgangsstufe ein Praktikum in einer "EDV"-Abteilung gemacht, wobei es sich dabei mehr um ein Lager von Hardware handelte. Viel weitergebracht hat es mich nicht, da ich ja Anwendungsentwickler werden wollte. Und da waren wir die ganze Zeit nur mit Austausch von defekten Geräten beschäftigt... Die Vorkenntnisse bestanden darin, dass ich 4 Jahre lang den Informatikunterricht in der Schule mitgemacht habe und auch privat in Pascal programmiert habe. Da ich als Alternative zu einer dualen Ausbildung, die rein schulische Ausbildung zum "staatlich geprüften Informatikassistent" in Betracht gezogen, habe ich mich beim b.i.b. (eine Privatschule in PB) einem "Tauglichkeitstest" unterzogen. Bei der Bewerbung habe ich das mitreingenommen und auch das Ergebnis (47 von 48 Punkten -> mit Abstand der Beste ) hingeschrieben. Ich habe mich im Dezember (was ja sehr spät ist!!!), bei 6 Firmen beworben. Vier haben abgesagt, bei einer war ich zum Einstellungstest. Dann kam das Vorstellungsgespräch bei einer Firma ca. 35 km von meinem Wohnort entfernt. Das habe ich dann total verbockt. Die rückten mit 2 Mann an, waren total ernst und verkrampft, weil die auch zum ersten Mal ausbilden wollten. Das verfehlte natürlich seine Wirkung auf mich nicht. Dann haben sie auch noch lauter fachliche Fragen gestellt und ich hatte einen Mega-Blackout und konnte die gängigen Datenbanken (Informix, Oracle) nihct benennen. Tja, die Firma war auch abgehackt. Dann kam das schreiben, dass ich den Einstellungstest bei der einen Firma bestanden hatte und zu einem Vorstellungssgespräch eingeladen wurde. Diesmal ging es um alles oder nichts. Also habe ich mich gut über das Unternehmen und die Ausbildung dort informiert... na ja... und es war alles ganz anders. Ich hab's geschafft. JayN

Das schon, aber mich ebenso wie Dich der Stoff schon in der 11ten Jahrgangsstufe mächtig angeödet. Ebenso wie Du wollte ich aber nicht mit leeren Händen da stehen und mir vorwerfen ein Jahr verloren zu haben. Mein Notenschnitt erfuhr ebenfalls eine sinkende Tendenz. Es kam sogar soweit, dass ich in meinem Parade-Fach, Mathe(-LK), in 12.1 eine 4 geschrieben habe. Weiterhin merkte ich, dass ein Studium wohl nichts für mich wäre. Also habe ich mich in 12.2 bei der Ehre gepackt und noch einiges rausgeholt (aber auch einiges verbockt). So konnte ich die 4 mit einer 1 ausgleichen. Zu Anfang der 12 habe ich beschlossen, dass ich mich als Fachinformatiker (Informatik war schon immer mein Wunsch) bewerben werde. Wenn ich einen Ausbildungsplatz kriegen würde, würde ich ihn annehmen, wenn nicht das Abi durchziehen oder Zivildienst ableisten. Ich habe einen Platz gekriegt, habe inzwischen die Ausbildung abgeschlossen und bin glücklich und zufrieden (muss lediglich meinen Zivildienst noch ableisten -> ab April, aber das ist auch nicht so ein Problem, wenn man einen Festvertrag hat :bimei: ). Das ist meine Geschichte. Gruß JayN

Manchmal ist man echt ein DAU.... das geht natürlich mit Steuerelement.Top = x und Steuerelement.Left = y. Gruß JayN

Hallo d*oofy, also ich bin auch nach der 12ten Jahrgangsstufe vom Gymnasium abgegangen, allerdings mit einem Schnitt von 2,7. Ich habe mich sehr spät für einen Ausbildungsplatz beworben, habe aber einen gekriegt. Nur war das vor fast 3 Jahren, und wie die Situation jetzt ist, kann ich nicht wirklich beurteilen. Mein dringlicher Rat an Dich wäre: Reiß Dich zusammen und lerne! Nach der Ausbildung wird keiner mehr nach der Note fragen, aber den Platz mußt Du erstmal kriegen! Gruß JayN

Hallo zusammen, wie kann man unter VBA Steuerelemente zur Laufzeit verschieben. Gruß JayN

Jetzt muß ich schon sogar hier auf'm Board meine Meinung zu Döner kundtun! Na ja, aber ich will sie nicht für mich behalten. Döner ist eine Trenderscheinung! LANG LEBE DAS GYROS.... Und wer jetzt sagt, es sei das gleiche, der... der.... der... der... ist doof... Gruß JayN

*Nichts versteh* Ich dachte, der Betrag wurde Dir genannt? Warum fragst Du dann danach? Wird der Betrag vom Betrieb gezahlt? Oder wurde Dir nur einfach die Berufsausbildungsförderung nahegelegt? Gruß JayN

Größe: 1,83 Gewicht: um die 90 kg Schuhgrösse: 44 - 46

Hallo, kann man in einem Listenfeld irgendwie Zeilen verschiedenfarbig darstellen? Gruß JayN

SF ist langweilig... das gibt es doch wie Sand am Meer. Ich denke, dass so ein mittelalterliches Spiel wie z.B. The Crown die Leute mehr reizen müßte. Mich persönlich schon. Gruß JayN

Hallo, folgende Situation: ich habe unter Access ein Editier-Formular, in dem viele Textfelder sind, die sich teilweise auch überlagern und bei der richtigen Konstellation sichtbar werden. Nun, da es ein Formular ist, welches zum Editieren von Daten dient, möchte ich eine Zoom-Funktion einbauen, d.h. der Benutzer kann den Text, den er verändern möchte, in ein extra Fenster holen. Meine Frage ist nun folgende: Ich möchte, dass das Zoom-Fenster beim Doppelklicken auf das entsprechende Textfeld aufgeht. Da das Formular nun einiges an Textfelder enthält, möchte ich nicht unbedingt 100x die gleiche Funktion einbinden. Kann man das irgendwie anders lösen? Ohne jedes Textfeld zu bearbeiten? Kann man irgendwie ein Doppelklick-Ereignis ohne die Hilfe eines Steuerelementes abfangen? Gruß JayN

So habe gestern eine Probestunde vereinbart... Gruß JayN

Das habe ich ja ganz vergessen... *sich vor die Stirn klatsch* Das habe ich auch ein Jahr lang gelernt und dann aus Zeitmangel aufgegeben. Gruß JayN

Ach ja, habe demnächst vor, Klavierunterricht zu nehmen.

Spiele akustische Gitarre und E-Bass, Gitarre seit ca. 5, E-Bass seit ca. 3 Jahren. Habe mir beides autodidaktisch beigebracht. Spiele nicht in Bands, sondern in unserer Kirchengemeinde. Gruß JayN

Hallo! So kann man zumindest unter Access mit VBA nach Dateien suchen, vielleicht hilft das weiter: With Application.FileSearch .NewSearch .LookIn = Pfad .SearchSubFolders = False .FileName = "Entladebericht" .MatchTextExactly = True .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "There were no files found." End If End With Gruß JNeudorf

Ich im Moment auch nicht... komischerweise. Gestern habe ich noch kurz vorbeigeschaut. Ist wahrscheinlich down. Gruß JayN

Würdest Du uns mitteilen wie? Gruß JayN