Ijon Tichy Raumpilot Kosmische Kollegen Help / RR:Suche

Gestern nacht lief die erste Folge von "Ijon Tichy - Raumpilot" (http://www.ijontichy.zdf.de/.

Ich persönlich fand es richtig klasse. Wie sieht es bei Euch aus? Ähnliche Begeisterung?

Was denn, kommt das jetzt im Fernsehen? Ist ja interessant.
Den Film habe ich nicht gesehen, aber einige Bücher von Stanislav Lem - von ihm ist Ijon Tichy. Und die sind wirklich gut.
Den Film werde ich mir auch mal ansehen.

Ich fand es äusserst. ähem. skuril. Für meinen Geschmack dann doch zu abgedreht.

Cool. Hehehe, sehr witzig, total schräger Humor.
Leider viel zu spät nachts.
Wieso senden die das nicht früher?

, MM

Habe für einen Kollegen ein Programm geschrieben. Das Problem ist nun das er vorher als Change Bedienung einen Befehl drin hat denn ich nicht ganz verstehe. Der Code hat seinen Sinn deswegen möchte ich ihn gerne drin lassen. Hier der Code:Private Sub Worksheet_Change If Intersect"A7:A100")) Is Nothing Then Exit Sub If Target.Value "" Then Target.Offset.Value = Date Else Target.Offset.ClearContents End If End Sub Ich denke der Code Funktioniert so. Er Speichert in der Variable "Target" die Range A7;A100 und guck nun dann ob sie leer sind wenn ja soll er das Sub Verlassen. Ist das gebiet 0,8 nicht "ungleich" Leer soll es in die Zelle 0,8 bzw "Offset"? Das Datum reinschreiben. Ist Target 0,8 leer? Löscht es die Komplette Zeile?.
So das Programm erzeugt immer wenn man in Spalte A in eine neue Zeile schreibt an der stelle 8/bzw. H das Datum.
Das Problem ist aber das der Debugger anspringt wenn man Zeilen per Rechtsklick Zeilen Löschen rauslöscht. Und da das wiederum unschön ist wirklich schön

So ganz richtig hast Du das nicht interpretiert. Ich versuche es mal:
Private Sub Worksheet_Change
Der Code wird ausgeführt, wenn das Change-Ereignis eintritt, das heißt, wenn irgendwo auf dem Blatt der Wert einer Zelle geändert wird. Dabei wird die Zelle, die geändert wurde in der Variablen Target als Range-Objekt gespeichert.
If Intersect"A7:A100")) Is Nothing Then Exit Sub
Wenn die Target-Zelle NICHT im Bereich A7:A100 liegt, wird der Code abgebrochen.
If Target.Value "" Then
Wenn die Zelle, die geändert wurde jetzt NICHT leer ist, dann:
Target.Offset.Value = Date
Schreibe in die Zelle in der gleichen Zeile, 8 Spalten weiter das aktuelle Datum.
Else
Sonst :
Target.Offset.ClearContents
Lösche den Inhalt der Zelle in Spalte H der gleichen Zeile.
Da Problem mit dem Löschen einer ganzen Zeile kannst Du beheben, indem Du noch diese Zeile in Deine Code einfügst:
If Target.Count > 1 Then Exit Sub
Also so: Private Sub Worksheet_Change If Intersect"A7:A100")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Value "" Then Target.Offset.Value = Date Else Target.Offset.ClearContents End If End Sub Klappt es?

Ja jetzt Funktioniert es Super Dank dir (Du hast es Guren100 gezeigt Bekommst du direkt Morgen einen Schnicken Stern für

und das als Leut, das sich hier so selten im Excel auskennt

Am besten holst du dir da Hilfe in einem VBA Forum, hier findest du selten die sich so im Excel auskennen

na lass dich da mal nicht täuschen hab hier schon viele VBA Fragen gestellt

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.