Another Level Nexus Help / RR:Suche

Ahoi liebe Leutz

Ich bin nun bei Level 36 bei Grauezelle.net und joa. Das Rätsel treibt mich seit gestern in den Wahnsinn xD

Pic: http://grauezelle.net/raetselbilder/de_konfirmation.jpg
Wer sich damit nicht auskennt und sich fragt wieso nur ein Pic und wo ist das Rästel. Das Pic IST das Rätsel!

So nun back to topic^^
Was ich weiß ist, dass der Psalm falsch ist und es mit einem Teil aus dem richtigen Psalm 37,37 zu tun hat. Aber was! *heul flenn*

Ich habe schon folgende Ausschnitte und Wörter probiert:

- fromm
- achte auf den frommen
- schau auf den redlichen
- achte auf den frommen und schau auf den redlichen!
- zukunft
- zukunft hat der mann
- mann des friedens

Ja das Rästel ist doof. Ich glaub das war so, dass man von Psalm 37,37 nicht den ganzen Satz, also
"Bleibe fromm und halte dich recht, denn solchem wird's zuletzt wohlgehen."
eingeben muss. Sondern nur einen Teil davon. Musst ein bisschen rumprobieren. Ich frag mich wer sich das nur ausgedacht hat

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.

Mein Nexus 4 ist mit gestern runtergefallen und hat jetzt einen fetten Riss im Display. Und er Touch funktioniert auch nicht mehr. Weiß jemand was das kostet das zu reparieren und wo ich das einschicken kann?

Hi, ich habe eben mal im Internet nach einer Werkstatt gesucht.
E960 Nexus 4 "Display / LCD inkl. Touch Einheit Austausch Die beiden Funktionen werden von unterschiedlichen Gerätekomponenten bedient. Zwar können unabhängig voneinander bei diesen Komponenten Schäden auftauchen aber zumeist müssen beide Geräteteile ersetzt oder repariert werden. Vor diesem Hintergrund bieten wir Ihnen dafür dieses Vorteilsangebot. Die Beschreibung der Defekte die auf eine Beschädigung der beiden Komponenten hindeuten finden Sie in den jeweiligen Einzelrubriken."
Kostenpunkt: 149 Euro Quelle: repairmyphone.de

Ist die Seite seriös? Also hast du da schon mal bestellt?

Ich habe da noch nicht mein Handy reparieren lassen. Habe aber auch noch nichts schlechtes über diesen Anbieter gelesen / gehört. Rufe vielleicht mal dort an und erkundige dich, vielleicht hast du danach ein besseres Gefühl.

Hier erhälst du Reparatur mit original ersatzteile für 150€ die wechseln nicht nur die Scheibe, Touch , Display sondern auch den Rahmen gleich mit
quelle: www. handyfixservice.de

Ich habe eine Seite wo es 112€ Kostet wäre dass was für Dich?

Ich meine Qetan , Holsch diese User haben jezt schon über 500.000 Punkte Gratulation an die beiden
Wird es ein Höheres Level geben?
z.B Edelstein - Fragant.
Und zum besipiel ab 850.000 Punkte einen nächsten Nutzerlevel.währe doch was? oder? wie seht ihr das `?

Keine schlechte Idee, aber im Grunde nützts ja nichts.

Doch es würde nutzer noch mehr anstrengen bessere Beiträge zu leistn. Und vielleichtkönnte man dann mehr amchen wie z.B bei Diamant beiträge verstekcen?

Warum nicht, aber ist das nicht irgendwan für User, die neu dazukommen deprimierend, wenn sie sehen, dass für den und den Rang 850000+ Punkte benötigt werden?.

dann eben 550.000 Punkte aber.Es streng Diamanten udn Platin - Fraganten merh an

was bringd das net viel oder aber eine gute idee

du meinst ja es würde die User irgendwie danach noch anstreben weiter zu machen oder so. aber wenn man einmal ein Diamant ist dann hat man GF so zusagen ans Herz geschlossen und denen gehts da glaub ich nicht mehr sooo sehr um die Punkte. also musst mal einen fragen der Diamant geworden ist.

bei gf ändert sich hin und wieder was. alles ist möglich

Das gehört ins Forum weil Frage zur Plattform.

aber dann müsste es schon ein sehr gutes geschenk geben