Landaley

Hm, ich weiß nur, dass du mit "Alt + Enter" einen Zeilenumbruch erzeugen kannst und die Zelle um eine Zeile vergrößerst. Dann wird der Text nicht abgeschnitten. Gruß, Landaley

Sorry für OT: @Chickie: Du warst aber nicht zufällig auf der Sabel-Schule in Nürnberg, oder?

Hm, schick, das seh ich mir zuhause mal näher an... Danke für den Link

Halli Hallo. Da mein Chef anscheinend denkt, wenn er sagt, etwas ist möglich, dann IST das auch möglich, hab ich folgendes Problem: Ich soll von einem Rechner, auf welchem Visual Studio 2005 Beta 2 mit Office Tools installiert ist, Sourcecode kopieren, der für Excel 2003 geschrieben wurde (in VB) . Auf meinem Rechner ist nun Visual Studio 2005 Professional OHNE Office Tools, sowie mit Office XP installiert. Diesen Code soll ich nun irgendwie im VS2005 PRO als DLL kompilieren und einer Excel XP Datei beigeben. So. Das ist doch absoluter Humbug! 1. Sind in dem Code Dialoge und Forms vorhanden, wie soll ich die denn in ne DLL packen? 2. Wenn weder Office 2003 noch die Office Tools für VS drauf sind, wie zum Henker soll ich dann bitte das Ding zum laufen kriegen? In der Library sind ja nicht mal die erforderlichen Namespaces vorhanden! Aber mein Chef sagt (er hat keinen Plan von Programmieren...), da müsse man doch bloß die DLL kompilieren und die zur Excel Datei hinzufügen. HÄÄ?? Und dann kann ich da plötzlich Code verwenden, der nicht mal für Office XP existiert? Also, ich hoffe ich hab mich einigermaßen verständlich ausgedrückt, das ganze ist aber auch so Wischi-Waschi, dass die Erklärung einfach genauso ausfällt... Meine Frage ist jetzt, ist das ganze vielleicht doch IRGENDWIE möglich, oder soll ich mich hinsetzen und die Arbeit verweigern, oder habt Ihr irgendwas, das ich ihm zeigen kann, damit er es mir glaubt? Himmel, das is ja mal ein Ding... Also, ich hoffe Ihr könnt mir helfen. Danke sehr, Landaley

Lass bei deiner if-Bedingung die Anführungszeichen weg... if %userinp%==1 goto verz1 if %userinp%==2 goto verz2 if %userinp%==3 goto verz3

Huh? Also, das ist IMHO absolut unmöglich, wenn kein Backup vorhanden ist...

Äh, ja, danke für den Tipp, hab ich ganz vergessen .

Wenn du nen Denkanstoss willst, dann starte deine Batch-Datei mal von der Konsole aus und sieh, was passiert... EDIT: Mist, zu langsam

Jo, das Beispiel war Humbug mit Apfelsoße. Bis jetzt hab ichs so gelöst: Private Sub CommandButton2_Click() Dim objWMI As Object, colPrinters As Object, objPrinter As Object Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") Set colPrinters = objWMI.ExecQuery _ ("Select * from Win32_PrinterConfiguration") For Each objPrinter In colPrinters MsgBox "Name: " & objPrinter.Name Next End Sub Wobei das ja auch nicht das gelbe vom Ei ist, jetzt zeigt er mir zwar die Drucker in 'ner MessageBox an, aber den aktiven Drucker wechseln kann ich immer noch nicht, da ich ja nicht mal weiß, auf welchem Anschluss die liegen. Das ganze sollte halt so aussehen: "Lexmark Optra Blabla auf LPT 1" tuts aber nicht.

Ok, passt, hab's selbst herausgefunden. Erst überlegen, dann fragen, naja... . Trotzdem danke.

Halli, Hallo. Ich möchte in Excel 2002 über VBA sämtliche Drucker inkl. Netzwerkdrucker auslesen. Das ganze versuche ich über die Registry und habe folgenden Code: Option Explicit Option Base 0 Const MAX_PRINTERS = 16 Declare Function GetProfileString Lib "kernel32" _ Alias "GetProfileStringA" _ (ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long) As Long Dim strPrinterNames(MAX_PRINTERS) As String Dim strPrinterDrivers(MAX_PRINTERS) As String Dim strPrinterPorts(MAX_PRINTERS) As String Dim intPrinterCount As Integer Sub GetPrinterList() Dim r As Long Dim Buffer As String Dim i As Integer ' Liste aller Drucker aus der Registry auslesen Buffer = Space(8192) r = GetProfileString("PrinterPorts", vbNullString, "", _ Buffer, Len(Buffer)) ' Druckernamen und -ports parsen GetPrinterNames Buffer GetPrinterPorts For i = 1 To intPrinterCount Debug.Print strPrinterNames(i), strPrinterPorts(i), strPrinterDrivers(i) Next i End Sub Private Sub GetPrinterNames(ByVal Buffer As String) Dim i As Integer Dim strName As String intPrinterCount = 0 Do i = InStr(Buffer, Chr(0)) If i > 0 Then strName = Left(Buffer, i - 1) If Len(Trim(strName)) > 0 Then strPrinterNames(intPrinterCount) = Trim(strName) intPrinterCount = intPrinterCount + 1 End If Buffer = Mid(Buffer, i + 1) Else If Len(Trim(Buffer)) > 0 Then strPrinterNames(intPrinterCount) = Trim(Buffer) intPrinterCount = intPrinterCount + 1 End If Buffer = "" End If Loop While (i > 0) And (intPrinterCount < MAX_PRINTERS) End Sub Private Sub GetPrinterPorts() Dim Buffer As String Dim i As Integer Dim r As Long For i = 0 To intPrinterCount - 1 Buffer = Space(1024) r = GetProfileString("PrinterPorts", strPrinterNames(i), "", _ Buffer, Len(Buffer)) GetDriverAndPort Buffer, strPrinterDrivers(i), strPrinterPorts(i) Next i End Sub Private Sub GetDriverAndPort(ByVal Buffer As String, DriverName As _ String, PrinterPort As String) Dim iDriver As Integer Dim iPort As Integer DriverName = "" PrinterPort = "" iDriver = InStr(Buffer, ",") If iDriver > 0 Then DriverName = Left(Buffer, iDriver - 1) iPort = InStr(iDriver + 1, Buffer, ",") If iPort > 0 Then PrinterPort = Mid(Buffer, iDriver + 1, _ iPort - iDriver - 1) End If End If End Sub Interessanterweise macht dieser Code... gar nichts. Hat hier vielleicht irgendjemand 'ne Ahnung oder bessere Lösung für dieses Problem? Oder zumindest nen Denkanstoss? Danke schon mal im Vorraus. Gruß, Landaley

Schau mal hier, vielleicht hilft dir das weiter. Gruß, Landaley

Ok, unter 35k. Dafür: + Firmenwagen inkl. Privatnutzung, Benzin zahlt Firma + Firmenhandy mit Navigation + Firmenlaptop + Bahncard 50 Das ist doch Bombastisch im Quadrat (²) EDIT: Mal abgesehen von Gleitzeit und den anscheinend SEHR guten Schulungen!

Ich nehme an, Ihr arbeitet dann eher in Großbetrieben, oder?

Junge, wenn du das nicht annimmst, dann bist DU dürftig .

Nö, ich sperr nie... Is mir auch irgendwie zu blöd jedesmal. Ich schließ' nur all die Spiele und I-Net Seiten, bevor ich den Rechner verlass... Ok, war Quatsch. Ne, aber sperren tu ich das gute Stück wirklich nicht, geht eh keiner ran.

Schau mal bei Firmen nach (abgelaufenen) Leasinglaptops oder frag jemanden, der in einer Firma arbeitet, in welcher jene gestellt werden. Ich bin durch meinen Bruder an einen genannten herangekommen: Intel Pentium M 1,8 512 RAM Radeon Mobility XL65 (oder so) DVD-R/CD-RW 40 GB HD Für sage und schreibe 400 Öcken... Gut, ich musste nen neuen Akku kaufen, aber das lässt sich wohl verschmerzen. Ich darf die Daten leider net rausgeben, aber wie gesagt, frag einfach mal rum...

Immer diese absolut unausgelasteten Informatiker! Schlimm ist das .

Ohoh... Na, ich nehme doch schwer an, dass das den guten Mann nicht stören wird, wenn ich diese lyrische Meisterleistung der breiten Öffentlichkeit zur Verfügung stelle. Aber wenn Ihr wollt, kann ich dem Herrn ja auch eine Email schicken, ob er denn gewillt sei.

Halli Hallo. Bei uns (arbeite, wie erwähnt, in nem Verlag) ist derzeit ein Literaturwettbewerb am laufen. Und ein Teilnehmer hat tatsächlich diesen Beitrag eingesandt: Seelenverwandtschaft Eine Welle erbricht sich schaumig über die Reling - ich auch. :uli Also, ich weiß ja nicht was Ihr davon haltet, aber ich konnt mich kaum mehr halten vor lachen! Wahnsinn! Der Typ verdient ´nen Sonderpreis... Naja, ich wollts euch nur mal vorstellen. Die Rechte liegen selbstverständlich beim Autor .

Richtich, so hab ichs auch gemacht und alles is suppa!

Hm... also bei mir sieht das ganze leider genau anders herum aus, ich mache gar nichts anderes, als 8 Stunden am Tag programmieren. Mir persönlich wäre es eigentlich ganz recht, wenn ich mal was anderes machen könnte, oder mal den riesen Server anschaun könnte, der bei uns steht, aber wenn ich meinen Chef drauf anspreche, heißt´s nur: "Naja, mal schaun, der ist ja doch recht empfindlich..." Dabei möchte ich eigentlich so viel wie möglich lernen, nicht nur programmieren, wer sucht schon jemanden, der zwar im Programmieren ein As ist, aber von Netzwerktechnologie, Hardware etc. keinerlei Ahnung hat? Ich versuche zwar, mir privat davon so viel wie möglich beizubringen, aber nach der Arbeit ist das alles nicht mehr so easy, von wegen kaputt und so... Naja, zu deiner Frage: Ich denke schon, dass du die Prüfung meistern kannst, hol dir einfach Berufsschulunterlagen und versuche, so viel wie möglich selbst zu lernen. Ich weiß, das ist einfacher gesagt als getan (vor allem, da ich ja selbst gerade meinte, privat hat man dann nich mehr soooo viel Bock...), aber es muss halt gehen. Gibt ja auch einige Beispiele hier im Forum, die zeigen, dass es tatsächlich ohne BS geht. Wobei ich aber froh bin, auf meinen BSunterricht bestanden zu haben. Naja, wie gesagt, machbar denk ich schon, aber halt stressig...

Naja, du könntest es mal hiermit versuchen, allerdings wird dieses Tutorial recht schnell ziemlich happig, aber immerhin sind Übungsaufgaben mit Lösungen dabei. Mir persönlich gefällt´s aber nicht so, da es teilweise etwas durcheinander ist... Aber vielleicht hilft´s dir ja. Ausserdem werden hier noch ein paar Tutorials vorgestellt, schau einfach mal rein. So, hoffe das hilft dir etwas weiter. Prost, Landaley

Jupp, und außerdem kann ich die Woche immer zwei - drei Stunden früher gehen, und keinen juckts... huarhuar...

Hm, seltsam ist das ganze aber dennoch... und irgendwie absolut undurchsichtig. Aber auf jeden Fall interessant . Das mit dem nicht verkaufen dürfen dachte ich mir schon, aber es ist doch trotzdem komisch, dass ich diese CDs dann einfach weitergeben darf, denn klar, öffentlich zugänglich, aber im Prinzip ists trotzdem ein Verlust für die Industrie (Meine Meinung). Strange... Wegen Napster, da wär ich aber schon beim nächsten Thema und um kein neues zu eröffnen, pack ichs einfach hier mit rein: Diese ominöse "Musikflatrate" (jaja, der Modebegriff Flatrate) soll ja die nette Nebeneigenschaft besitzen, dass Songs, die man sich gezogen hat, zwei Wochen (oder so) nachdem die Flatrate gekündigt wurde aufhören zu spielen. Nun frage ich mich doch - heißt das, ich kann die Songs, die ich mir für teures Geld kaufe, nicht mal brennen? Oder kann ich dann einfach die CD nach zwei Wochen wegschmeißen? Oder wie schaut das aus? Ich will nun keine x-te "Napster ist Sch..." Diskussion starten, mich würd einfach interessieren, wie das ganze aussieht.