Bangles Simply The Best Help / RR:Suche

In der Überschrift stehts. schonmal an alle, jeder Helfer krieg ein Däumchen nach oben.

Dade Murphy: Mess with the best, die like the rest. Quelle: Hackers - Im Netz des FBI - Quotes - IMDb

Das war der Schauspieler Dade Murphy in dem Film:
Hackers - Im Netz des FBI von 1995

Viel älter: "Its first use seems to be with Green Beret Army special forces in the late 60s. The Special Forces community adopted it during the 70s, and by the 80s it was in fairly common use. Marines love it and have shirts made with crossed M16 and skulls."

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.

Betreffende Zellen markieren, dann
Start > Fortmatvorlagen > Bedingte Formatierung > Regeln zum Hervorheben von Zellen > GLEICH > Zellen formatieren, die Folgendem GLEICH sind > dein Wort > gewünschte Formatierung > OK

die Zellen markieren um die es geht, dann im Menü Format, bedingte Formatierung. Dann bei Bedingung1 einstellen: "Zellwert ist" im Feld rechts daneben "gleich" im Feld daneben den Wert eintragen um den es geht. Dann den Button "Format" anklicken und z.B. die rote Farbe auswählen. Danach "ok" klicken. Dann wird alles, was der Bedingung entspricht in Rot geschrieben.

Du sagst:
". und eben das funktioniert nicht."
Dann beschreibe mal genauer, WAS Du machst, denn so wie PapaPapilion das beschrieben hat FUNKTIONIERT es, und nicht anders.

Wenn ich mir die Testversion runterlade, wo geregelt ist das es nach 60 Tagen abläuft muss ich das dann iwie abmelden oder bin ich dann trotzdem kaufpflichtig? Oder kann ichs danach einfach deinstallieren ohne Probleme?
Wenn nein, könnt ihr mir bitte ieine Seite sagen wo man power point ohne den Product Key runterladen kann? -.-

Die Testversion laeuft nach 60 Tagen automatisch ab. Du kannst aber kurz vor Ablauf das Programm ospprearm.exe mit Admin-Rechten ausfuehren, dann wird der Testzeitraum zurueck gesetzt, und die 60 Tage fangen von vorn an.

Es ist eine Testversion. Du MUSST dir das Programm nach ablaufen der Zeit NICHT kaufen, wenn du es aber deinstallierst und wieder installierst wird das die Probezeit nicht verlängern oder zurücksetzen. Generelles deinstallieren wird aber kein Problem sein.

was soll das eigentlich heißen? ich weiß was die Übersetzung ist aber ich verstehe nicht was es damit auf sich hat.

Also das steht bei den "Protal" Videos und ich weiß das es bei Portal um einen Kuchen geht.

diese stimme will dich immer mit kuchen rumkriegen und überreden. und irgentwer der versucht hat zu flüchten hat das an die wand geschrieben damit du weißt dass du weiter machen sollst.

Also: Bei Portal geht es darum als Tester des Portal-gerätes die Tests, die ein mieser Super-Computer einem stellt, zu lösen. Gegen Ende des Spiels, als der Spieler merkt, dass der böse Super-Computer einen töten will, lehnt dieser sich gegen den Super-Computer auf und will ihn zerstören. Der Computer verspricht dem Spieler, wenn er sich sofort ergibt einen Kuchen(->Cake). Dies ist natürlich nur eine miserabele Ausrede und ein ziemlich schlechter Trick, obwohl Kuchen natürlich nur schwer zu widerstehen ist. Der Kuchen des Supercomputers ist nur ein Trick der in lustigen Wortspielen am Ende dem Spieler versprochen wird. Natürlich existiert der Kuchen nicht und der Spieler lässt sich nicht von dem Geschwätz stören. Im Abspann heißt es dann als lustiges Wortspiel / Ironie : -> The cake is a lie