Biohazard Biohazard Help / RR:Suche

Ein Kumpel von mir behautet das felsenfest.

Die Mitglieder kümmern sich nun um andere Dinge, so dreht etwa Evan Seinfeld mit seiner Frau Tera Patrick Pornofilme unter dem Namen Spider Jonez und Billy Graziadei spielt weiter Musik in der Metal-Band Suicide City."

sieht so aus

Biologische Gefahren. Gemeint sind Gefahren für Menschen und Umwelt die von biologischen Substanzen oder Organismen ausgehen. Beispiele sind medizinische Abfälle, mit Mikroorganismen kontaminierte biologische Proben, Viren, Toxine aus biologischen Quellen usw. die für Menschen pathogen wirken und somit eine mögliche Gefahr darstellen. Solche Substanzen werden mit dem entsprechenden Gefahrensymbol gekennzeichnet, welches als Warnung dient, um auf den richtigen Umgang aufmerksam zu machen.
Biogefährdung – Wikipedia

Ich suche das Zeichen für Biohazard, welches auch als Zeichen für Hardstyle 'anerkannt' wird. Ich würde dafür gerne den Alt-Code wissen
^^

Das geht leider nicht!
Unter Windows ist es möglich, durch Drücken der Alt-Taste und gleichzeitiges Eingeben einer Zahl auf dem Nummernblock weitere Zeichen einzugeben, die gegebenenfalls nicht auf dem aktuell gewählten Tastaturlayout zur Verfügung stehen. Diese Technik nennt sich Alt-Numpad-Eingabemethode oder Alt-Code. Wenn man also ein Zeichen wie das Copyright-Zeichen „©“ eingeben möchte, das nicht auf der Tastatur zur Verfügung steht, im normalen Zeichensatz aber durchaus vorhanden ist, sucht man zunächst nach seiner Codenummer. Da bei Windows in Deutschland meist die Codepage 850 verwendet wird, findet man über die Zeichentabelle die Nummer 184 . Man drückt dazu die Alt-Taste und hält sie gedrückt und tippt dann im Nummernblock der Tastatur die Zahl 184 ein und lässt dann die Alt-Taste los, das Zeichen erscheint. Auf diese Weise lassen sich alle Zeichen der entsprechend gemappten Codepages – etwa Windows-1252 und Codepage 850 bei dem Windows-Alt-Code – schreiben, etwa Währungssymbole, akzentuierte Zeichen oder andere Sonderzeichen wie das ß. In den meisten Programmen können aber nur Codezahlen von 0 bis 255 eingegeben werden. Gibt man doch größere ein, wird der Modulo 256 davon genommen, also der Rest bei Division durch 256. Dies verhindert, dass man kompliziertere Zeichen z. B. aus dem Unicode jenseits U+0100 eingeben kann, was nicht von allen Programmen unterstützt wird. Einige Programme erlauben aber auch die Eingabe von Unicodezeichen auf diese Art und Weise. In diesem Falle ist es egal, ob man die 0 mit eingibt oder nicht.
U+2623 ☣ Symbol für Biogefährdung du siehst, U+2623 ist über U+0100
tut mir leid!

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.