Chet Baker Someday My Prince Will Come 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.

weis jemand wie das lied bzw. der künstler von dem lied heißt in dem diese strophe vorkommt:
"how,could,i,know,what,will,I,see,when, will,the,answer,come.to,me,how,could,i,kn ow,show,me,the." ^^
^^

dieses lied kommt in sabrina verhext australien vor nachdem der typ my bonnie is over the ocean gesungen hat auf der party wie heißt das lied weis das jemand?

evt Ashanti?
Songtext: Avantasia - Lost in Space Lyrics | Magistrix.de

Hallo , Ich wollte Java starten und da hat mich Windows nach dem Programm gefragt mit dem ich Java ausführen will. Ich hab von meinem Computer Java ausgewählt und jetzt will mein Pc ALLES mit Java öffnen! Was kann ich tun? !

Wo unter Standartprogramme? Ich finde da nichts

Du klickst ein Beispielprogramm mit Rechtsklick an. Dann wählst Öffen mit. Und dann sollte da Standardprogramm auswählen stehen. Du könntest aber Java auch einfach neu installieren.

Ich will diesen Vorgang halt nicht für ALLE Programme auf meinem PC machen. Ich installiere Java neu.!

Es stand überhaupt kein Viehzeuch zur Sprache.
Folglich kann es nur eine Wortbedeutung oder Redewendung sein.

ich könnte mir vorstellen. ich lach mich tot. oder sowas. ich schau mal ob ich was finde

haha. also im gegenteil. nicht totlachen. eher umgekehrt schau mal hier

SparkLife » “Tweet or I'll Eat My Cat!”

lol
Hammerhart!

Aber.das könnte bei dem Vogel passen. Thx^^

ja find ich auch geil. wenn man was nich haben will. einfach sage iss fress dei katze. lol

eh wenn ma was haben will und ned bekommt mein ich. verwirrt.

Soso - und um was gings in diesem Gespräch?

Wenn ich mir das so durchdenke, könnte man das mit "Ich werd nen Besen essen" gleichsetzen.

I'll kill my cat bedeutet so viel wie: Ich werde meine Katze töten xP

Ich werde meine Katze töten^^
Das kann man damit interpretieren, dass er seine Katze töten will, oder auch, dass er vorhat, seiner Katze (siehe: http://de.wikipedia.org/wiki/Hauskatze)
das Leben zu nehmen.

Ich bin nicht sicher. Aber ich glaube der Spruch wird benutzt, wenn man sehr überrascht ist.

Ich habe 19 Jahre in Amerika gewohnt und das ist keine normale Redewendung und macht auch so keinen Sinn.Ist vielleicht was neues und heißt soviel wie "ja leck" oder "ja,der Wahnsinn",also was neues erfunden um sowas auszudrücken.^^

An die Beantworter, ic hglaube der will damit was anderes ausdrücken!

Das war doch als eine Frage nach einer Redewendung gemeint, oder?