Various Artists While My Guitar Gently Weeps III / 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.

ich bin völlig verwirrt diese schuhe finde ich nicht auf normalen seiten sondern nur auf fake seitzen weiß jemand ob es diese schuhe in echt gibt? daaanke

ja die gibt es, vlt, findest du sie bei prodirectsoccer.com/de

Ja, gibt es (:
Zum Beispiel auf Otto.de

Müssen demnächst ein Referat in Technischer Informatik halten. Thema ist die "While - Funktion" in VBA finden dazu aber recht wenig im Internet. speziell geht es uns, um einfach Beispiele, da wir nur komplizierte finden und wir erst sein einigen Wochen mit dem Programmieren vertraut sind. Folgende Punkte sind uns noch nicht ganz klar: - Schleife- oder Verzweigungsstruktur - Durchlauf: Ja / Nein / Immer / Nie / Mindestens einmal - Schachtelung möglich wie oft?
und wir müssen halt dann noch einige leichte Beispiele erklären. haben da aber irgendwie keine Ideen. wären auch da dankbar für kleine Tipps. Bis jetzt haben wir eig. nur die verschiedenen Typen gelernt und uns mit der MassageBox und InputBox beschäftigt. Daher sollten die Aufgaben nicht zu schwehr sein.

Die While.Bedingung.
Aktion
Wend While?))
und die
Do
Aktionen
Loop until.Bedingung.
-Schleife sind Spezialfälle der
For.
Aktionen
Next
Schleife mit spezieller Prüfung von Bedingungen. Das könnte man natürlich auch innerhalb einer For.Next-Schleife machen , aber so ist es kürzer und man muss keine extra Laufzahl-Variable bemühen.
Do While.Loop geht genauso wie While.Wend. Evtl. Unterschiede bei Exit. Hab noch nicht ausprobiert, ob es zB heißt: On Error Exit While oder Exit Do oder sonst was. Meine Hilfe blockiert leider.
ich habe eine Makro-Komplex zum Berechnen des Formelgewichts auch komplizierter Formeln SO4Fe6 mit einer Elementtabelle und ca.35 While-Schleifen!
Hier aber ein kleineres Beispiel :
Option Explicit: Option Compare Text
Public c, LWB, MacN, y, zumach 'nicht alle hier drin, aber dadurch ersichtlich, was Variable ist und ggf was Subaufruf
'Problemstellung: eine Datei war zur Erzielung des richtigen Umbruchs mit Leerzeichen in den Zellen aufgefüllt 'worden. Dies führt bei geringfügiger Änderung con Spaltenbreite, Zoom, Schrifttyp oder -Größe zu Veränderungen 'des Umbruchs. Man könnte das Makro sinnvoll fortführen, indem man bei zwei Leerzeichen haltmacht und dann 'generell 2Leerzeichen durch das Umbruchzeichen Chr ersetzt. Sub löscheLeerfolge() '=> Strg+Shift+B wie Blanks-Überschuß entfernen Icon Blanke Fläche Nur Einzelzelle! If Selection Is Nothing Then Exit Sub 'If Not Selection.Cells.Count = 1 Then MsgBox (Selection.Address & _ " Löschen von aufeinanderfolgenden Leerzeichen ist nur für Einzelzellen programmiert!"): Exit Sub For Each c In Selection y = 1 ' 1 = vbok On Error Resume Next 'nötig? c.Calculate ' " " = "zwei Leerzeichen" If c.HasFormula And InStr(1, c.Value, " ") > 0 Then y = MsgBox(c.Address & _ " enthält Formel. Zu Wert umsetzen, um Leerzeichen zu löschen?", vbYesNoCancel) If y = vbCancel Then End 'vbcancel = 2 'If InStr(2, c.Value, " "c.Address & _ " enthält keine aufeinanderfolgenden Leerzeichen!"1, c.Value, " ") > 0 ' And y vbNo On Error Resume Next 'If y vbNo Then c.Value = Left1, c.Value, " " & Mid1, c.Value, " " Loop 'Until InStr(1, c.Value, " ") = 0 Or y = vbNo auch While.Wend´ sattDo While.Loop´ Next ' î ersetzt mehrere aufeinanderfolgende Leerzeichen durch eines If zumach 2 Then zumach = 1 MacN = "löscheLeerfolge" Datei_zumachen End Sub 'Strg+Shift+B streicht in der AuswahlZelle bei aufeinanderfolgenden Leerzeichen alle bis auf eines Nur Einzelzelle

Am Beginn und am Ende der Kursivschrift standen je ein Underbar, die der Editor wieder mal missdeutet hat. Umgekehrt: wenn du den Code in ein Modulblatt einfügst, zeigen Dir die mittels _ umgebrochenen Zeilen ´je einen Fehler. Du musst nach dem -_ mittels Eingabe die Zeile umbrechen

noch ein kleines Beispiel: in der Variablen fN ist ein längerer Pfad, am Ende ein Dateiname gespeichert. Folgende Schleife schneidet nun links Verzeichnis um Verzeichnis ab, bis am Schluss der Dateiname nackt dasteht:
Sub DateinameAmEndeVomPfadIsolieren()
dim fN
fN = "C:\Programme\Microsoft Office\Office\EXCEL.EXE"
Debug.Print fN
While InStr(1, fN, "\", 0) > 0
fN = Mid1, fN, "\", 0
debug.print fN
Wend
End sub
Die Länge des Strings ist hier auf willkürliche 9999 Zeichen begrenzt.
Der debug.print Befehl gestattet, den Prozess anschaulich zu verfolgen: Fenster Direktbereich gut sichtbar placieren, cursor ins Makro, Makro starten

Probiert es aus, geht ganz leicht und ist eine eindrucksvolle Demo!
Die Syntax von InStr und Mid() müsst ihr Euch in der Hilfe aneignen, beides häufig gebrauchte Textfunktionen

Verzweigungsstruktur: if {/*Anweisungen.*/} Eine Verzweigungsstruktur wird nur 1 mal ausgeführt, und zwar nur dann, wenn die Bedingung wahr ist.
Schleife: z. B. while-Schleife: while {.} Eine Schleife kann auch mehrmals ausgeführt werden. Wenn man eine Bedingung übergibt, die nie wahr ist, z. B. 3 == 4 oder einfach false, wird auch die Schleife nie ausgeführt. Wenn dagegen die Bedingung immer wahr ist, handelt es sich um eine Endlosschleife - sie wird immer wieder ausgeführt.
Eine Schachtelung ist sowohl bei Schleifen als auch bei Verzweigungsstrukturen eigentlich unbegrenzt möglich, allerdings wird es bei Verzweigungsstrukturen mit tieferer Schachtelung immer unwahrscheinlicher, dass der innerste Kern je ausgeführt wird. Geschachtelte Verzweigungsstrukturen kann man häufig mit einem AND - Operator (meist "&&" oder nur "&") zusammenfassen.
Tief geschachtelte Schleifen haben logischerweise eine ziemlich lange Laufzeit, da für jeden Durchlauf einer Schleife alle enthaltenen Schleifen ausgeführt werden.

Ein leicht verständliches Beispiel unter http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen:_Schleifen#While-Schleifen
Sonst mehr unter Google "while vba beispiele".

Hallo
ich will mir einen der oben genannten Schuhe kaufen. Da ich jedoch nicht weiß welche Größe ich brauche und bei mir in der Nähe kein Sportladen den Superfly/Vapor hat, informiere ich mich eben so
Habe normalerweise Größe 42/43. Boxfresh z.B. habe 42 da diese relativ groß ausfallen. Ich habe einen nicht wirklich schmalen aber auch nicht gerade den breitesten Fuß. Momentan besitze ich noch diese Fussballschuhe:
Nike Mercurial Vapor IV FG - Größe 42 Adidas Adipure IV FG - Größe 43 Adidas Adizero F30 (http://www.prodirectsoccer.com/de/productimages/V3_1_Main/18654.jpg) - Größe 43
Die passen mir alle noch sehr gut, der Vapor ist jedoch ziemlich schmal, mit dicken Socken komme ich fast nicht rein. Die anderen beiden liegen gut am Fuß, jedoch will ich unbedingt neue Schuhe
Könnt ihr mich dabei beraten?

bleib lieber bei adidas, sehen besser aus und fühlen sich besser an

CAT III ist eine Betriebsart eines Instrumentenlandesystemes. Je nach den aktuellen Bedingungen können ILS mit CAT I bis CAT IIIc betrieben werden sofern sie dafür zugelassen sind. Die Betriebsart sagt aus in welcher Höhe der Pilot eine visuelle Referenz zur Landebahn, bzw. der Anflugbefeuerung muß, bzw. wie weit er sinken darf ohne diese Referenz. Im Regelfall nach CAT I sind das 200ft allerdings je nach dem einzelnen Anflug durchaus unterschiedlich. Bei der Betriebsart CAT III werden die Minima deutlich reduziert. Bei CAT IIIa beträgt die Entscheidungshöhe nur noch 50 ft bei einer minimalen Sicht von 200 Metern, im Falle von CAT IIIc ist die Entscheindungshöhe sogar auf 0 ft und ebenso die Bodensicht auf 0 Meter reduziert. CAT IIIc ist zwar spezifiziert aber noch nicht im praktischen Betrieb zugelassen. Unter anderem auch deswegen weil man zwar ein Flugzeug heute auch schon bei Null Sicht landen kann, dann aber die Frage aufkommt wie man es nach dem Landen bei keiner Sicht zum Fluggastteig oder der Abstellposition bringen will.

In allen Fällen ist es allerdings so, daß bei einem Betrieb über CAT I hinaus, sowohl das aktuelle ILS wie AUCH das Flugzeug UND die Besatzung dafür ausgerüstet und berechtigt sein muß. Bei Wikipedia ist die im Einzelnen gut beschrieben und auch auf den Seiten des LBA und der DFS findes man hier weitergehende Informationen.

Siehe:Instrumentenlandesystem – Wikipedia