Uliette The Licks Youre Speaking My Language Help / RR:Suche

What the macro doas: It lists all files in the chosen filesystem. in range A it writes the addres, in range B it writes the filename What i need to be added: in range C it writes the last changedate the matching command must be: ".DateLastModified " i have tried again and again but keep getting error messages-.-
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich

Ja aber das modifizieren war nicht so tragisch. Hab ja nur 2 Zeilen eingefügt bzw 2 mal kopiert und 3 Worte und 2 Zahlen geändert.

WOW, du hast sogar die gleiche variable wie ich benutzt . Im Grunde ist es einläuchtend, was du gemacht hast und ich habe genau das gleich versucht und zwar ca. 1,5 Stunden am Stück, warum das jetzt auf einmal läuft und vorher nicht ist mir ein Rätsel, den Goldenen Stern hast du dir verdient

ich hätte das DH mehrfach vergeben. aber schau Dir trotzdem die beiden Links an, probiere die integrierte Eigenschaft mit Nummer auch mit anderen Nummern aus oder such sonst im Netz was dazu.

Ich weiß nicht wie ich dazu gekommen bin das jetzt auf englisch zu schreiben, also hier nochmal in deutsch:
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified

Da ich lange nichts mehr mit VBA gemacht habe und da nur in Word, kann ich dir da leider nicht weiterhelfen, aber ich verweise dich da gerne auf das Forum von Microsoft.
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community

i've found sth similar in :
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there

machst du dich über mein Englisch lustig? o.o

lustig macht er sich nicht, aber perfekt ist es auch nicht.

Hallo! Ich wollte mir nächsten Mknat ein Album kaufen, kann mich aber nicht entscheiden ob ,When The Darkness Comes" von Slayer oder ,My God Given Right" von Helloween. Ich höre gerne Nightwish und Sabaton. Könntet ihr mir sagen, welches ihr eher in meiner Lage nehmen würdet?

ich bin riesen Sabaton Fan und habe sowohl Slayer als auch Helloween schon live gesehen. Ich persönlich finde Slayer aber generell besser \m

Aber hoffentlich meinst du nicht die Live Performance

Das wird "Car Car" von Donovan sein.
Car Car Songtext von Donovan Lyrics

Hier kannst Du mal reinhören:
http://www.amazon.de/Summer-Day-Reflection-Songs-Donovan/dp/B00091SMJ6/ref=sr_1_1?s=music&ie=UTF8&qid=1323529651&sr=1-1

Text geht grob in die Richtung:
Woody Guthrie - Riding In My Car

". Brrrm brm brm brm brm brm brrrm.

Take me riding in the car, car;
Take me riding in the car, car;
Take you riding in the car, car;
I'll take you riding in my car."

"Riding In My Car" by Woody Guthrie

Hier kannst du es hören
Woody Guthrie - Car Song - YouTube

So, der Wettbewerb ist vorbei und wir haben es mit 250.544 Punkten auf den 15. Platz geschafft!



Ich konnte meinen Rechner leider nicht so lange/oft crunchen lassen wie ich es mir gewünscht hätte, aber ich hab immerhin 6.993 Punkte geschafft.

Cruncher Platz Punkte ElricM 37 157.449 nikonist 150 39.165 bebe 187 33.739 deKay 409 13.248 antu 627 6.993
Also dafür das wir nur zu 5. waren, finde ich ist das doch ein klasse Ergebnis. Auf zum nächsten Wettbewerb!

Für 5-Teilnehmer ist das eine erstklassige Platzierung

Zitat von ElricM Geräte "ausschalten". was meinst Du damit? Kann man PC's auch ausschalten?

. Ja, aber nur zu Reinigungszwecken. Dann sofort wieder anschalten!

bebe

Wie. reinigen. Ich lasse keine Frauen an meine Rechner.
Alte Consulting-Regel: Ist das Hemd dreckig. Neues kaufen

Ok, 3 WU's für die Chauvi-Kasse.

--- Automatisch zusammengeführter Beitrag ---

Platz 93 und immer noch hungrig

--- Automatisch zusammengeführter Beitrag ---

In 15 min lädt ein neuer Rechenknecht 8 Pakete ab, dann müßten wir die AMD's geschafft haben. Intel rockz

Die AMD habenwir kassiert, aber die Russen haben vor 6h über 6000 Credits bekommen.

bebe

Hah, das sind nur letzte Zuckungen Die Russen schaffen wir noch.

--- Automatisch zusammengeführter Beitrag ---

Wir haben Team-Norway hinter uns gelassen und stehen direkt hinter den Russen mit 3k Abstand

--- Automatisch zusammengeführter Beitrag ---

So die Russen sind Geschichte, jetzt "vercrunchen" wir die US-Army

--- Automatisch zusammengeführter Beitrag ---

Ja, wie geil ist das denn : Platz 15 - we just passed US-Army

Noch höher wird schwierig, die Koreaner sind weit weg.

Meiner einer ist auf Platz 72. für das erste Mal nicht schlecht

--- Automatisch zusammengeführter Beitrag ---



--- Automatisch zusammengeführter Beitrag ---

Was habt ihr denn für nette CPU's am Start. startet doch mal CPU-Z und postet ein paar Bildchen

Sollte ja bekannt sein.

bebe

Wenn ich mich in Reichweite meines Kernschrottes befinde werde ich mich auch outen

Ok, dann lasse ich mal die Hosen runter :








Alles andere ist eher Blech.

ElricM

--- Automatisch zusammengeführter Beitrag ---

Zitat von bebe

Sollte ja bekannt sein.

bebe Hi Bebe, was hast Du den für ein Motherboard? Eventuell kannst Du durch Tausch der CPU in einen 3770K und einer AIO-Wakü 4.4 MHz rausholen. Bringt bei S@H was, aber so richtig Gas gibt das Teil bei Rosetta

Mit dem richtigen Mainboard-Bios kann er das auch mit einem normalen 3770 machen.

Hallo DeKay, mir ist kein "legales" Mainboard-Bios bekannt , mit dem Du einen nicht "K"-Prozessor über 3.9 GHz bekommst, weil der Multiplikator fix ist. Oder? Lerne ja immer gerne dazu

Intel Responds to Overclocking on Non-Z Series Motherboards

Das dürfte diese Geschichte sein. Wo Hersteller Unlock-Tools bereitgestellt haben/hatten. Wie weit man den Multiplikator damit aufdrehen kann/konnte ist mir aber nicht bekannt.

Wat? Egal!

Hier erstmal Kernschrott #1:



--- Automatisch zusammengeführter Beitrag ---

#2:



--- Automatisch zusammengeführter Beitrag ---

Nr.3:



hier hab ich nun eine andere HDD mit W7prof. 64 bit installiert - geht!

Alle sind 24/7 außer mein Samsung NC10

Zitat von ElricM.
Hi Bebe, was hast Du den für ein Motherboard? Eventuell kannst Du durch Tausch der CPU in einen 3770K und einer AIO-Wakü 4.4 MHz rausholen. Bringt bei S@H was, aber so richtig Gas gibt das Teil bei Rosetta Ich hab ein Gigabyte Z77MX-D3H drin. So eine WaKü hab ich mir auch schon mal angesehen. Hatte so ein Mist aber schon früher mal mit Aquariumpumpe und dem ganzen Zeug. Hat mich direkt 2 Grafikkarten hintereinander gekostet!

bebe

--- Automatisch zusammengeführter Beitrag ---

Nebenbei, für die Koreaner kann es ganz knapp werden, wir haben stellenweise ein paar Credits mehr als die Schlitzaugen.

Was mir noch aufgefallen ist, ich laß ja meine 660 Ti weiterhin für Seti laufen, wenn ich dann sehe das ich ohne CPU gerade mal ein paar tausend Credits weniger habe, ist das schon ernüchternd was da eine CPU bringt. Da ist wirklich jeder Cent den man investiert in einer Grafikkarte besser aufgehoben als sich ne neue CPU für 500.-€ zu kaufen.

bebe

Nee, Bebe. ich meine eher soetwas :



Solche AIO System sind wartungsfrei und unproblematisch einzubauen. Ich habe selbst vier Stück davon im Einsatz.

Zum Aquarium-Bau fehlen mir mittlerweile die Nerven

Mal überlegen ob sich das rentiert, denn wie geschrieben die paar Mhz lohnen sich bei Seti ja fast nicht.
Ich mach derzeit ohne CPU nicht viel weniger als mit.

bebe

--- Automatisch zusammengeführter Beitrag ---

Ich hab mich jetzt mal in die Tiefen des UEFI Bios begeben und ich kann tatsächlich pro Kern den Turbo-Multi einstellen!

Werde mal noch schauen wie weit ich damit komme, läuft derzeit stabil mit 4,0 Ghz auf allen Cores.

bebe

So eine AIO Wasserkühlung kann ich auch empfehlen. Hab hier eine Corsair H75 verbaut. Temperatur schwankt bei Vollast um die 55°C und beide Lüfter sind unhörbar auf 60% Leistung.

Hört sich ja gut an. Wäre demnach doch noch ne Überlegung wert.

bebe

--- Automatisch zusammengeführter Beitrag ---



Temperatur ist gleich wie bei dem Standardtakt von 3,9Ghz.

Werde morgen mal noch weiter gehen und berichten.

bebe

Prima Bebe, bei Rosetta bringt das auf alle Fälle einen deutlichen Schub.

Bei Seti kann die CPU schneller die Daten von der Grafikkarte entgegennehmen, dass bringt auch ein bisschen was. Welche Speichertaktung hast Du?

Übrigens: Einen guten Rutsch an alle Cruncher!

ElricM

Denkst du da geht noch was?

auch nen guten Rutsch!

bebe

P.S. Die AMDs haben uns wieder überholt

Hi Bebe,

laut ARK | Intel® Core™ i7-3770 Processor klappen auch 1866

Das mit den AMD's geht ja gar nicht. Ich schalte noch mal ein paar Dual-Cores ein

--- Automatisch zusammengeführter Beitrag ---

Hey Crunchers, Happy new Year

Platz 49 ist meiner

Mein Board macht nur bis 4,1 Ghz.
Ich kann einstellen was ich will im Multi, mehr als 4,1 Ghz ist nicht drin.

bebe

He Bebe, 4,1 GHz ist doch schon mal nicht schlecht. Mit den normalen Luftkühlern ist mehr als 4,3-4,4 MHz eh nicht drin.

Bin ja mal gespannt, ob sich Dein Rosetta-Output verbessert

Ein wenigs wird schon sein, sind ja jetzt insgesammt 800Mhz mehr. Nicht gerade der Wahnsinnssprung aber immerhin.

Die Koreaner haben wir dafür bald im Sack und die AMDler sind auf und davon!

bebe

Ähm, Du meinst wohl eher 200 MHz?

Die Koreaner weigern sich noch, Platz zu machen.

Ich hab die Cores zusammengezählt
Wenn sich das linear auswirkt dann müsste der Output bei Rosetta um sagenhaft 5% steigen.

bebe

Edit: Die Koreaner sind doch schon seit 2h hinter uns.

Zitat von bebe Ich hab die Cores zusammengezählt
Wenn sich das linear auswirkt dann müsste der Output bei Rosetta um sagenhaft 5% steigen.

bebe

Edit: Die Koreaner sind doch schon seit 2h hinter uns. Die 5 % sind realistisch

Als nächstes versuchen wir es mal mit Platz 14 *hehe