Franco Battiato Battiato Studio Collection 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.

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.

Hallo. Ich bin 17 und kenne jemanden der ist 18. Wir haben vor längerer Zeit mal geschrieben und er wollte sich auch treffen aber er hat zu der Zeit eine Affäre gesucht. Ich will/wollte das nicht und habe deshalb den Kontakt abgebrochen. Vor 1 Monat haben wir wieder angefangen zu schreiben. Er ist eigentlich wirklich süß und ich habe ihm von Anfang an gesagt dass ich nach wie vor nicht an etwas körperlichem interessiert bin. Das war auch okay für ihn und er meinte er ist mit ner Weile auch an etwas Ernstem interessiert und wollte das damals nicht weil er bald etwas weiter weg studieren geht. Dann wir haben so über sexuelles geredet und er meinte er würde gerne mal "mehr machen". Und da habe ich ihn wieder drauf hingewiesen, dass ich nichts körperliches will und er meinte er will wirklich was Ernstes aber schon auch mit Körperkontakt in der Beziehung. Wir wollen uns bald treffen. Haben wir noch nicht und ich wäre von einer Beziehung auch nicht abgeneigt und körperliches gehört auch dazu. Da haben wir auch überall schon drüber gesprochen und ich meinte auch dass wenn wir wirklich zusammen kommen sollten er mir Zeit geben muss und ich nicht direkt mit ihm schlafe usw. Und er meinte auch dass das kein Problem ist. Aber er hat auch schon einmal gefragt wie viele Treffen ich bräuchte bis ich jemandem einen blase. Da hab ich ihm auch gesagt dass ich die Frage sehr unangebracht finde und er hat sich entschuldigt. Insgesamt glaube ich ihm eigentlich schon dass er was Ernstes will aber ich hab dann etwas schiss dass er mich zu sehr unter Druck setzt. Andererseits sind Jungs in diesem Alter halt auch darauf aus und es ist ihnen halt wichtig und mit 17&18 auch durchaus normal finde ich. Nur macht er manchmal so perverse Andeutungen dass er mich geil findet oder so und das finde ich komisch. Ist das normal? Wir reden aber auch über ganz normale Sachen also persönliches und so. Es geht nicht nur um das Thema MEINE FRAGE: Was denkt ihr? Will er nur was Körperliches? Oder glaubt ihr dass da eine wirkliche Beziehung draus werden kann? FÜRS LESEN Wenn noch Fragen bestehen beantworte ich sie gerne.
Das habe ich letztens gefragt. Auf eine Antwort hin habe ich ihm einfach genau das geschrieben und er hat mit geschworen dass er es Ernst meint aber jetzt ist er zurückhaltender weil er es schade findet dass ich sowas von ihm denke. Was denkt ihr? Was soll ich tun?

Bitte sei mir nicht böse, aber ich habe ein bisschen das Gefühl du bist blind. 
Ihr habt euch noch nie getroffen oder kennt euch noch nicht persönlich, oder?
Ich finde, dass er es nicht ernst meint bzw nur so lange darauf wartet, bis er mit dir geschlafen hat und ist dann wieder weg.
Wenn er es wirklich ernst meinen würde, dann hättet ihr euch schon viel früher getroffen und er hätte darauf bestanden. Ansonsten meint er es nicht wirklich ernst.

Jungs in dem Alter müssen nicht so sein. Wie sie untereinander reden, ist etwas anderes, aber Mädchen gegenüber gehört sich so etwas nicht. Vielleicht ist er doch noch etwas unreif für eine feste Beziehung. Das wäre in dem Alter durchaus in Ordnung. Belasse es doch erstmal bei einer netten Bekanntschaft, aus der ggf. mehr werden kann. Dann merkst Du schnell, wie ernst es ihm ist.

Zu aller Erst mach dir keine Gedanken. Lass dich nicht von ihm unter Druck setzen. Für mich sieht es so aus als hätte er evtl schon irgendwo Interesse an dir beziehungstechnisch aber trotzdem steht für ihn das Körperliche sehr im Vordergrund. Du musst dir kein schlechtes Gewissen machen nur weil du antwortest was du denkst! Wenn man sich wirklich liebt dann kommt sowas von ganz alleine glaub mir. Aber trotzdem kommt es für mich so rüber als wäre er nur sexuell an dir interessiert. Es liegt an dir was du machst, ich will dir auch nicht sagen was du machen sollst. Du kannst dich gerne mit ihm treffen aber sobald er dir deutlich zeigt dass er nur auf eins hinaus will dann unterbinde das auf jeden fall wenn du nicht willst. Du musst dich zu nichts zwingen lassen

Lol. Männer. Spätestens jetzt solltest du erkennen, dass er nur "das eine" will. Ist aber auch nichts Ungewöhnliches. Nur bei manchen "Männern" merkt man es schneller, bei manchen langsamer. Wenn du eher etwas ernstes willst dann lass dich nicht ausnutzen. Wenn du ihn liebst und du dich auf ihn einlässt ist die Chance verletzt zu werden ziemlich hoch. Also würde ich mich entweder für Spaß entscheiden. oder dafür, dass du deine wertvolle Jungfräulichkeit noch eine Weile behältst.

Also, seid Donnerstag musste ich öfter auf Toillette und Wasser lassen, hatte immer ein ziehen,stechen im Unterleib und Druck auf der Blase. Bin nicht gleich zum Onkel Doc, sondern hab halt vieeeeeeeeel getrunken, Cranberrysaft, Wasser,Tee. Am Montag war ich dann beim Arzt weil ich Schmerzen bzw ein Stechen, Ziepen abwechselnd rechts und link am Unterbauch hatte und vermehrt auf Toillette musste. Urin wurde entnommen: leichte weiße Blutkörperchen sichtbar und in 3 Tagen wieder kommen. Heute war ich auf den Weg zu meiner Mutter und ich musste auf dem Weg 4 mal auf WC und während dem Wasserlassen hatte ich immer schmerzen. Hausarzt angerufen Termin morgen früh.
Soooo und jetzt war ich grad am Tee kochen und hab gespürt das was "ausläuft"
Bin auf WC Blut!
Aber danach nichts.
Wenn ich meine Menstruation bekomm, bekomme ich sie gleich stark ausserdem erwarte ich meine Periode erst nächste Woche.
Ich weiss das diese sich verschiebt,aber meist verschiebt sie sich bei mir um ein zwei Tage.
Kann das von der Blasenentzündung kommen?
Oder ist es meine Menstruation?
P.S. Bedanke mich schonmal für diese blöde Frage auf Hilfreiche Antworten Thäääääänks

Das kann eine Blasenentzündung sein, die inzwischen so schlimm ist, dass du mit dem Urin Blut ausscheidest. Dafür sprechen auch die Schmerzen beim Wasserlassen. Deshalb morgen früh keine Sekunde verstreichen lassen und zum Doc. Du kannst durch eine starke Blasenentzündung durch aufsteigende Keime eine Nierenbeckenentzündung bekommen und da hört der Spaß dann auf. Ich hatte das vor Jahren mal und wünsche es mir niemals zurück.

weil ich schliess die Periode aus, weil normalerweise spür ich es 2 Tage vorher das sie kommt, aber da ist nichts und die Schmerzen jetzt sind anderes als bei der Periode.
Dankööööö

Bitte und gute Besserung - unangenehm sowas

Kann das von der Blasenentzündung kommen?
Ja, danach hört es sich an.
Wenn Blut drin ist, ist die Entzündung aber bereits weit fortgeschritten deshalb mein RAT:
SOFORT morgen früh zum Frauenarzt - wenn der keine Termine hat, in die Notaufnahme des nächsten Krankenhauses.
Morgen hast Du schulfrei - weil Du was viel wichtigeres zu tun hast.

Mit 31 und als Hausfrau Schulfrei Hihihi süß, aber versteh ich Luna1892 klingt für ein Schulkind, ne obwoh dann wär ich 21.
.
Aber ich seh es als kompliment an

Wie kann es sein, dass bei meinem Programm in Visual Basic manche Codezeilen überspringen werden? Ich hab in Form1_Load Methode vor jeder Zeile einen Haltepunkt gesetzt und das Programm gestartet. Nachdem das Programm bei ein paar zeilen angehalten hat und ich wieder auf weiter gedrückt habe, hält das programm bei den restlichen nicht mehr und am Ergebnis sieht man auch, dass diese Zeilen nicht befolgt wurden.
Wie kann das sein?

Dazu müsste man die entsprechenden Zeilen sehen. möglicherweise werden die nicht erreicht.

stimmt Hier sind sie, aber ich hoff ihr könnt was damit anfangen^^:Private Sub Form1_Load(New System.Drawing.Color"Microsoft Sans Serif", 8) Rechengeschwindigkeit = RechenGeschwTB.Value MySimulator.RechenTMR.Interval = Rechengeschwindigkeit 'RechengeschwLBL.Text = "Rechengeschwindigkeit: " & CStr & " ms ≙ " &.ToString("##.#e0") & " s" Aktualisierungsgeschwindigkeit = AktGeschwTB.Value OberflächeTMR.Interval = Aktualisierungsgeschwindigkeit AktGeschwLBL.Text = "Aktualisierungsgeschw.: " & CStr & " ms" Schwerkraft = SchwerkraftTB.Value SchwerkraftLBL.Text = "Schwerkraft: " & CStr TeilRadius = TeilchenRadiusTB.Value TeilRadiusLBL.Text = "Teilchenradius: " & CStr & " pm" Geschwindigkeit = GeschwindigkeitTB.Value GeschwindigkeitLBL.Text = "Geschwindigkeit: " & CStr & " m/s" StatistikAktualisieren() Dim STUPGeschw As String If Me.GleicheGeschwRB.Checked Then STUPGeschw = "Gleiche Geschw" ElseIf Me.ZufGeschwRB.Checked Then STUPGeschw = "Zufällige Geschw" ElseIf Me.EinzelneBewegteRB.Checked Then STUPGeschw = "Einzelne Bewegte" Else Me.InfoLBL.Text = "Fehler: Es ist keine Eigenschaft im Geschwindigkeits-Setup festgelegt!" Me.InfoLBL.Show() STUPGeschw = "Kein Wert" End If Dim STUPGröße As String If Me.GleicheGrößeRB.Checked Then STUPGröße = "Gleiche Größe" ElseIf Me.ZufGrößeRB.Checked Then STUPGröße = "Zufällige Größe" ElseIf Me.EinGroßesRB.Checked Then STUPGröße = "Ein Großes" Else Me.InfoLBL.Text = "Fehler: Es ist keine Eigenschaft im Größe-Setup festgelegt!" Me.InfoLBL.Show() STUPGröße = "Kein Wert" End If Me.MySimulator.NeuLadenMolAnzNUD.Value LabelsAktualisieren End Sub Kommentar von , 11.10.2012 Du solltest sämtliche Umlaute entfernen!
FlächeSetupSPC.Panel1.Invalidate()
in
FlaecheSetupSPC.Panel1.Invalidate()
Kurz um alles was nicht als Text ausgegeben wird darf keine Umlaute enthalten! Das kann ebenfalls zu deinem Genannten Problem führen!
deklarationen etc. dürfen keine Umlaute wie äöüß enthalten.

Darf das echt nicht sein? Hatte ich bis jetzt eig immer und es hat nichts ausgemacht. Und wie ich jetzt gerade alle ersetzt habe, gings aber genause nicht. Aber , dass du echt den Code angeschaut hast

Unsinn. Umlaute sind in.Net kein Problem. In anderen Sprachen kann das durchaus der Fall sein, weshalb deswegen davon abzuraten ist. Fehler können dadurch aber nicht entstehen.

Für einen Sauberen Programmier Stil benutz man keine Umlaute! Das wir einem auch in jedem Kurs geprädigt

Um guten Programmierstil geht es hier nicht. Umlaute sind keine Fehlerquelle dafür,

Also an alle! der Tip mit F8 und so hat geholfen, weil eine Codezeile iwie falsch war und dann wurde der Rest iwie übersprungen. für die vielen Tips

Diese beiden Code-Anweisungen sollte man in.NET sofort vergessen, sonst hat man immer mit nicht nachvollziehbaren Verhaltensweisen zu tun, besonders als Anfänger.

Dann schreib doch einfach
verwende lieber Try Catch End Try Kommentar von , 14.10.2012 Möchtest du nun alle meine codearmen Antworten und Kommentare mit dem Hinweis versehen, dass ich auch den Code hätte schreiben können?

Bist du vielleicht im Release mode anstatt im Debug mode? Das kann dazu führen, dass er nicht bei den Breakpoints anhält, macht allerdings im Ergebnis keinen Unterschied.

ne an manchen hält er ja an und des Ergebnis zeigt, dass manch übersprungen wurden. Aber wie kommt man in den release mode? Gibts des auch in express?

Wie kann denn Form1_Load und das folgende Schlüsselwort muss "Handles" heißen, nicht "Handle".
Werden die Zeilen ausschließlich im Debug-Modus übersprungen, soll heißen, wenn du im Einzelschrittmodus durch den Code gehst? Oder werden die Zeilen auch übersprungen ,wenn du den Code einfach durchlaufen lässt, also keine Haltepunkte gesetzt hast?
Beachte, dass du während des Debuggings die nächste auszuführende Codezeile manuell festlegen kannst, indem du den gelben Pfeil am linken Rand verschiebst.

Hast du vlt einige IF Abfragen drin`? Sonstige Anweisungen die von anderen Codezeilen Abhängig sind?
Gründe kann es Viele geben, nur leider können wir ja noch nicht Hellsehen.
Bei solchen Fragen bitte folgendes beachten:

Den betreffenden Source mit beifügen

Der Source sollte gut Kommentiert sein

Eine kurze beschreibung was eigendlich erreicht werden soll Was ist das Ziehl.

Eventuelle Fehlermeldungen mit angeben

ja irgendwie musses wohl ne erklärung geben und iwie ist es auch klar, dass ihr mir eig net wirklich weiterhelfen könnt Nur ich bin langsam schon ziemlich genervt von dem ganzen und da dacht ich mir ich frag mal die Community, weil da vllt ein Hellseher dabei ist XD

du benutz umlaute in den Deklarationen etc. das kann zu Problemen führen die müssen raus