*I C Q*

(Hätte vielleicht auch bei "Hardware" gepasst, bei Bedarf ruhig verschieben ) Moin! Habe ein grosses Problem: Habe gestern 'nen PC neu aufgesetzt, und da die wichtigsten Daten vorher auf ne CD gebrannt. Nach dem Aufsetzen wollte ich die Daten von der CD zurückholen, doch er erkennt die CD nicht mal. Beim Einlegen der CD in 3 unterschiedliche Rechner immer das gleiche Syndrom: CD-ROM liest sich den Wolf, aber er findet die CD nicht. Hat da jemand Erfahrungen, wie ich trotzdem die Daten von der CD zurückholen kann?? CU, Red Bull

Hi! Wenn ich Dich richtig verstanden habe, willst Du in allen Arbeitsmappen Deines Systems nach z.B. einem Suchwort suchen, oder?? Das ganze geht unter VBA und zwar mit Hilfe des FileSystemObjects! Dafür im VBA-Editor unter Excel in Extras->Verweise die Microsoft Scripting Runtime aktivieren, falls noch nicht geschehen! Hab mich mal 'n bissel hingesetzt und was altes von mir umgeschrieben! Sag Bescheid, ob es das ist, was Du wolltest! Sub suchemuster() Dim fso As New Scripting.FileSystemObject Dim rootfld As Scripting.Folder Dim msg As String 'Hier den "Aufsetzpunkt angeben" Set rootfld = fso.GetFolder("C:\eigene dateien") 'Starte Rekursion suchefileinfolder rootfld MsgBox "Fertig!" End Sub Sub suchefileinfolder(rootfld As Folder) Dim fso As New Scripting.FileSystemObject Dim fld As Scripting.Folder Dim fil As Scripting.file Dim actwrk As Workbook Dim actsht As Worksheet Dim txtfile As Scripting.TextStream Dim suchwort As String 'Hier das Suchwort anpassen suchwort = "EUR" For Each fld In rootfld.SubFolders 'Rekursiv alle Verzeichnisse mit Unterverzeichnissen durcharbeiten 'Hätte man auch Iterativ schreiben können, aber ich liebe Rekursive Prozeduren :-) suchefileinfolder fld Next 'Postrekursiver Teil 'TextFile für die Ergebniss 'Könnte man auch als Excel-Tabelle machen, war mir aber zuviel arbeit 'Achtung! Die Textdatei wird nicht gelöscht!!! Das heisst, evtl. bleiben alte Ergebnisse stehen! Set txtfile = fso.OpenTextFile("C:\ergebnis.txt", ForAppending, True) For Each fil In rootfld.Files 'Wenn Excel-Tabelle If Right(fil.Name, 4) = ".xls" Then 'öffnen Set actwrk = Workbooks.Open(fil.Path) 'Für jedes Tabellenblatt in der Mappe For Each actsht In actwrk.Sheets If Not actsht.UsedRange.Find(suchwort) Is Nothing Then 'Wenn wenigstens einer(!) gefunden wurde, dann schreibe 'in die Ergebnisdatei und... txtfile.Write fil.Path & vbCrLf 'beende die For-Schleife Exit For End If Next 'Arbeitsmappe schliessen (ohne speichern) und 'Objekte freigeben actwrk.Close xlDoNotSaveChanges Set actwrk = Nothing Set actsht = Nothing End If Next 'Textdatei schliessen txtfile.Close Set txtfile = Nothing End Sub Viel Spass damit, Red Bull

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von B.J.Honeycut: <STRONG>PS: Ist jemand von euch auf der Musik Produktiv Hausmesse am 9.11. in Ibbenbüren ?</STRONG>

Ob es dafür einen Schlüsselkopfsender gibt, liegt an der nachgerüsteten Fernbedienung! IN-PRO und WAECO z.B. haben das IMO im Programm! Poste doch mal, von welchem Hersteller Deine FB ist, und welche Typbezeichnung sie hat, dann kann ich das mal nachschauen (sitze sozusagen an der Quelle )! CU, Red Bull

Kann Dich beruhigen, liegt nicht an Deinem Browser! Schau doch mal auf Dein "Münsterland"! Aber e@sy kriegt das scho' wieder hi'´! CU, Red Bull Nachtrag: Hääää? Bis vor 'ner Sekunde war Dein Münsterland noch falsch... Muss man denn erstmal irgendwo posten, damit das richtig wird? :confused: <FONT COLOR="#a62a2a" SIZE="1">[ 05. Oktober 2001 10:03: Beitrag 2 mal editiert, zuletzt von RedBull ]</font>

@bako: Na gut, ich schäm mich ja auch schon! Aber um das ganze mal ein wenig in Richtung des Thread-Themas zu relativieren ( ): Ich teile nicht die Meinung von "Bunter-Baron"! Ich selbst lese hier auch viel in den einzelnen Foren, und bzgl. der "Antwortzeiten" habe ich keine grossartigen negativen Veränderungen bemerkt. CU, Red Bull

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Bunter-Baron: <STRONG>Denn manche Fragen könnten wirklich schnell beantwortet, weil VB im Rahmenplan liegt.</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von developer: <STRONG>Hab mir heute nen Primiere World Decoder mit 1/2 Premiere gekauft muss jetzt erstmal Haushalten </STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von hodata: <STRONG>Mittlerweile sind hier aber wesentlich mehr Teenies und Ihr Admi´s seid schon die Alten. Es ist doch schon ein riesen Erfolg, die zukünftigen FI auf der Seite zu haben, nur sind die eben noch in der Pubertät =>reagieren eben spontan und vergreifen sich eben auch mal im Ton.</STRONG>

Schau doch mal bei Albert Rommel vorbei, da steht auch noch, wie Du per DFÜ-Netzwerk die Verbindung aufbauen kannst, OHNE die T-Online-Software zu installieren! CU, Red Bull <FONT COLOR="#a62a2a" SIZE="1">[ 19. September 2001 12:55: Beitrag 1 mal editiert, zuletzt von RedBull ]</font>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Jemmi: <STRONG>In den USA hat man alle Veranstaltungen abgesagt. Sogar die Baseball-Spiele wurden erstmals nach dem 2. Weltkrieg verlegt...</STRONG>

Schade! E-LAN hat sich erledigt! Die Veranstaltung ist abgesagt worden, weil 'n Sponsor abgesprungen ist! Aber wenigstens krieg' ich das gewählte "Top-Spiel" für umsonst! Das heisst, demnächst C&C Renegade zocken für Nulltarif! :D CU, Red Bull

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Graf Koks: <STRONG>Nochmal: Ich will hier keinen verurteilen, nur weil er Gewaltbesessen ist.</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von [GSE]stryker: <STRONG>also bitte!!! die spielen ja nich mal CS! is ja en witz!</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Enigma: <STRONG>Cool, die fehlte bei meinem letzten Auto.....n alter Polo aus den 80ern....</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Data: <STRONG> Mit genug Kraft käme er da hoch, das iss logisch. Aber die Gewichte heben sich nicht auf sondern verdoppeln sich wenn mann hoch will. Dass iss so als hättest Du die 2 Säcke aufm Buckel und wolltest da hoch. Keiner hat so viel Kraft.</STRONG>

Hä? Wie jetzt? Moment! Das Seil geht vom losen Ende nach oben, wird da über die Rolle geführt und geht wieder runter, richtig? Das heisst, wenn man mit genug Kraft an dem einen Ende ziehen könnte, dann würden die Säcke auf der anderen Seite hochgehen, richtig? Das hiesse dann, wenn Ede an dem losen Ende hochklettert, dann wirken die beiden Gewichte (Ede und Säcke) an unterschiedlichen Enden und würden sich somit quasi aufheben. Und dann wären wir wieder bei meiner Lösung! Oder hab ich da jetzt irgendwas Grundlegendes verwechselt? :confused: CU, Red Bull

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Data: <STRONG>Das ist der Punkt. Kann er das ????????</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von MINDHUNTER: <STRONG>also, sowas kann dir auch in neubeckum passieren....</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Data: <STRONG>Kann Ede das schaffen ?</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von B.J.Honeycut: <STRONG>Kommt, wir machen eine Unterschriftenaktion und schicken die mit Pressekopie ans Bundeskanzleramt. Dann steht nachher bei heise und pcwelt.de: "IT-Nachwuchs will kiffen" oder so in der Überschrift oder "Deutsche Fachinformatiker fordern:Legalize it!!!"</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von littlepunkdog: <STRONG> Nö. NeoNazis & Türken, die sich amüsieren wollen. Gleichzeitig.</STRONG>

@Bako: 1. Wenn wir jetzt keiner Studie/Untersuchung mehr glauben können/wollen, dann fehlt IMO die Grundlage für eine sachliche Diskussion in allen Bereichen! 2. Es gibt aber auch keinen vernünftigen Grund es illegal zu lassen, während andere Drogen (mit teilweise schlimmeren Auswirkungen) legal sind. 3. B.J. hat mir die Worte aus dem Mund genommen. Nur noch eine Anmerkung dazu: Ein naher Verwander leidet an chronischer Schlaflosigkeit ('ne Art "Burn-Out-Syndrom") und muss deswegen Tags 14(!) Tabletten schlucken. Sein Biorythmus wird künstlich aufrechterhalten, sprich: Abends Schlafmittel, tagsüber Aufputschmittel, zwischendurch Herz-Kreislauf-Medikamente, damit die Pumpe das auch verkraftet, was für die Nieren, damit die die Giftstoffe besser abbauen, etc. etc. Wenn ICH sowas bekäme, dann würde ich mir des abends 'ne Tüte rauchen, weil davon kann ich sowas von schlafen, das glaubt keiner! 4. Es spricht überhaupt gar nichts dagegen einen Thread zuzumachen, wenn's dort in persönliche Beleidigungen umschlägt. Aber heisst das dann, das nicht die Leute, die vernünftig (sachlich) darüber diskutieren wollen einen anderen (später) wieder losmachen dürfen? Wenn dieser ausartet könnt Ihr ihn gerne wieder zumachen. Ich für meinen Teil verspreche Euch dann, keinen neuen wieder loszumachen. @all: Die Idee mit der "Cannabissteuer" finde ich gut, solange die nicht auf "medizinisches Cannabis" zu zahlen ist! Wenn jmd. schon "Just for fun" kifft, dann kann er auch - genau wie bei Alk und Zigaretten - sein Scherflein dazu beitragen, dass das Staatssäckel etwas voller wird. CU, Red Bull

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Sirius2001: <STRONG>Ohne meinen eigenen Rechner, nein danke. Außerdem wo ist denn da die große Herrausforderung für den Weltrekord, wenn alle Rechner schon dort stehen. Man könnte dann ja genau so gut irgend welche Leute von der Straße holen und vor die PCs setzen. Ich finde dass ist nur eine riesen PR-Aktion. Und die Spiele, na ja.</STRONG>

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Original erstellt von Spike: <STRONG>Übrigens den Thread hier gibts schon ...</STRONG>