Scrubs My Number One Doctor / RR:Suche

Hallo
Ich sehe ständig auf 9Gag und ähnlichen Seiten comics von diesen Visitenkarten die man anscheinend einer schönen Frau zusteckt.
''Hey, I just met you. And this is crazy.Here is my number'' es ist immer der selbe Text!
Wer hat damit angefangen solche Visitenkarten zu drucken und diese zu verteilen? Gibts ja anscheinend ziemlich oft!
!

Darum gehts ja. Es ist einfach der Liedtext aus diesem Lied.

. ich hab mir das Lied nun angehört - und finde es einfach nur schlecht

XD ok deine Meinung. Aber hast du dir das Video dazu angeschaut? Der Schluss zumindest ist schon mal ein Schmunzeln wert XD

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.

Heyo, kann mir ein Oneplus One Besitzer sagen, ob das OPO eine Smiley Tastatur vorinstalliert hat? Und wenn nicht, ob es eine App gibt, womit ich mir so eine Tastatur holen kann?

Die bereits vorinstallierte Tastatur hat auch eine Emoji-Auswahl integriert - drück' einfach lange auf die ENTER-Taste, dann sollte eh schon der Balken mit dem Smiley angezeigt werden, unter den du dann den Finger ziehen musst bevor du wieder los lässt.
Ich habe bei meinem bewusst noch kein Update  gemacht - hab' also noch CM11S drauf, aber ich denke dass das auch in Cyanogen OS 12 genauso ist und funktioniert.
Beim Oxygen OS-ROM kann ich auch nicht sicher sagen, aber wenn da auch die Original Google-Tastatur verwendet wird funktioniert es dort ebenfalls genauso.

Mit Android 5 konnte ich auf die Schnelle nichts dergleichen finden.

Hallo
Für eine Weiterbildung benötige ich ein Screenshot von der Szene wo Dr. Doug Murphy einen Leichensack hinter sich her schleickt
Wer kann helfen und mir sagen, welche Serie und Episode diese Szene enthielt?
!
Aa

Staffel 5 Folge 11:
You're a superstar.
XDXD

Moin, Ich hab gestern Abend eines dieser Turniere gespielt, die aber nur an diesem Wochenende verfügbar sind gespielt. als Preis gab es Münzen und ein Promo Pack. Da war Kane von Tottenham als Held drin. Der is fast 80.000 wert. Ich kann ihn aber irgendwie nicht online verkaufen. Und im Schnellverkauf bringt er nix! was nun? Wie kann ich ihn oder Warum kann ich ihn nicht verkaufen?

spieler im online tuniere die du gewinnst kann man nicht verkaufen

was mach ich jz mit dem Spieler? wozu is der gut?