Ablaze My Sorrow If Emotions Still Burn / RR:Suche

Emotional-defizitäre Intelligenzbestien?
Wie kommt das zustande?

Emotionale Verarmung durch zuwenige reale soziale Kontakte.

Wahrscheinlich rechnen diese Menschen nicht mit den Gefühlen anderer Menschen , da sie ihre Gefühle nicht einordnen können.

Zu deiner Ergänzung, das wird es wohl sein.

Nicht, wenn es um Emotionen geht, denn dann müssten sie diese an sich heranlassen, und genau davor haben sie ja Angst.

Emotional defizitaer und Intelligenzbestie sind zwei verschiedene Paar Schuhe, die nichts miteinander zu tun haben. Sollten diese Eigenschaften gekoppelt auftreten, ist das purer Zufall, wie etwa blonde Haare zu braunen Augen. Ich habe in meinem etliche Jahrzehnte langen Leben bei Menschen das volle Spektrum von hochgradig dumm bis hochintelligent kennen gelernt und konnte nicht feststellen, dass die intelligenten im Schnitt aermer an Emotionen waren.

Ich empfehle Dir das Buch "Eine Anthropologin auf dem Mars" von Oliver Sacks, darin besonders das Kapitel ueber Temple Grandin, eine hochbegabte Autistin. Bei Autisten ist genetisch bedingt die Gefuehlswelt nachhaltig gestoert. Manche Autisten sind Hochbegabte, manche sog. Savants.

Uebrigens sollte man das Wort 'Spastiker' besser aus seinem Wortschatz streichen, da es ein veraechtlicher Ausdruck fuer Menschen ist, die an einer spastischen Laehmung leiden.

Da gebe ich dir recht.
Da sind wohl die Pferde mit mir durchgegangen.

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.

Juten Morgen alle zusammen,
ich habe in meinem Makro mehrere "If-statements" .
Die Stamtements sollen, falls die gewünschte Zelle durchgestrichen oder ausgeblendet ist einfach die nächste kopieren!

Dieses Statement habe ich hintereinander für verschiedene zellen gebrauch etwas so:
dim zelle.
dim zelle.
dim.
Dim Wert As Variant
With Sheets("Tabelle2")
For Each zelle In.Range("F6:G6")
If ("J16"
Or "J16")
Or "J16" Then
zelle.Value = ActiveSheet.Range("J17")
Else
zelle.Value = ActiveSheet.Range("J16")
With Sheets("Tabelle2")
For Each zelle1 In.Range("F7:G7")
If ("G16"
Or "G16")
Or "G16" Then
zelle1.Value = ActiveSheet.Range("G17")
Else
zelle1.Value = ActiveSheet.Range("G16")
With Sheets("Tabelle2")
For Each zelle2 In.Range("F8:G8")
If ("C16"
Or "C16")
Or "C16" Then
zelle2.Value = ActiveSheet.Range("C17")
Else
zelle2.Value = ActiveSheet.Range("C16")

Mein Problem :
Falls die erste Zelle durchgestrichen ist, sprich der fall der durchgestrichenen Zellen eintrifft, fügt das Makro die alernative Zelle ein und bleibt dann stehen!
die anderen "If statement" werden dann nicht weiter ausgeführt.
Ich hoffe das ich mein Problem halbwegs vernünftig erklären konnte, damit man es versteht.
Hat jemand ne Idee voran das liegen könnte?

PauleVBA hat Dir ja schon passenden Code geliefert.
Kurse sind nicht ganz billig, aber es gibt Bücher, und in die kann man was reinschreiben oder Zettel reinlegen. Habs selbst nach einiger Zeit mit Kofler versucht, war ganz gut . Es gibt Aktualisierungen.
gugl mal unter: Kofler Excel Makro
da gibts mehr als eine Seite Nennungen.
Du wirst ja sicher noch weitermachen und auch den Zeilensprung dann automatisieren wollen. Achte also sehr auf die Übersichtlichkeit des Codes: Verschachtelungsebenen müssen erkennbar sein, der Sinn von Befehlen sollte mit mehr als nur einem Stichwort festgehalten werden.
Sonst blickst du bald nirgends mehr durch und gehst in der Fülle der eigenen Konstrukte unter!
bei Fragen hier übrigens immer noch die xl-Version mit nennen!
Den Stern, finde ich, verdient Paule

Ja was ist das denn für ein Spagetti-Code?
Als Erstes habe ich mich in den Klammern verirrt. Dann habe ich mich gefragt, warum die Abarbeitung der ersten Zellen F6:G6 nicht abgeschlossen und schon der nächste Bereich beackert wird.
Also soweit ich das sehe würde ein rechtzeitiges Abschließen der Schleifen WEunder wirken.dim zelle. dim zelle. dim. Dim Wert As Variant With Sheets("Tabelle2""Tabelle2""F6:G6""J16" Or _ "J16"Range("J16" Then zelle.Value = ActiveSheet.Range("J17""J16""Tabelle2""Tabelle2""F7:G7""G16" Or _ "G16"Range("G16" Then zelle1.Value = ActiveSheet.Range("G17""G16""Tabelle2""Tabelle2""F8:G8""C16" Or _ "C16"Range("C16" Then zelle2.Value = ActiveSheet.Range("C17""C16") End If Next Da der Editor mal wieder alle Einzüge versaut, bekommst du den Code auch noch als jpg.
Im Übrigen würde ich dir empfehlen, mal einen richtigen Programmier-Kurs zu besuchen.
Dein Code ist grottenschlecht lesbar.

Der Stern sollte eigentlich an dich gehen habe mich verklickt aber für di Hilfe

Du hast Killozap falsch verstanden.
Das End If muss VOR das nächste If, nicht alle zusammen ans Ende! Sonst springt der Code bei erfüllter Bedingung ans Ende und überspringt damit die anderen If-Abfragen.
Wenn Du, wie ich schon mal sagte, den Code mit F8 Step by Step durchgehst, siehst Du das.
Also:
If.
Else.
.
End If
Next
For.Each.
If.
Else.
.
End If
Next
For.Each.
If.
Else.
.
End If
Next
Und poste immer den ganzen Code, auch das Ende ist interessant.
Das mit den geschachtelten For-Each Schleifen hatte ich Dir schon mal erklärt.

Schon mal was von End if gehört?
IF blabla
machdas
else
machdies
endif

ja! wür ja auch ohne end if gar nicht laufen!
weil alles zu lang war habe ich am Anfang:
dim zelle.
dim zelle. ect.
und am Ende
geschrieben!
kannst du mir helfen?

Hallo, in der Schule programmieren wir mit Java und BlueJ und ich habe ein Fehler bei der If-Bedingung, wobei ich nicht weiß woran das liegt:
public class RABATT {double Güterpreis; double KleinerRabatt = 0.02; double GroßerRabatt = 0.05; double Preisgesamt;
public void EingabeGüterpreis {}
if (Güterpreis < 300)
{
double Preisgesamt = Güterpreis - Güterpreis * KleinerRabatt; // return Preisgesamt; // System.out.println ("Preis der Ware mit Rabatt: " + Preisgesamt"Preis der Ware mit Rabatt: " + Preisgesamt);}. komplette Frage anzeigen  Hilfreichste Antwort - ausgezeichnet vom Fragesteller von , Community-Experte für Java, 09.12.2013 1 Mitglied fand diese Antwort hilfreich public void EingabeGüterpreis {}if (Güterpreis < 300){.
Das Ganze etwas aufgeteilt aus Sicht deines Compilers. public void EingabeGüterpreis {//Ab hier wird Methode definiert} //Bis hier wurde Methode definiert. if (Güterpreis < 300){. //? Übrigens zur Java-Namenskonvention:
Konstanten schreibt man in CAPSLOCK und mit Underscores private static final int MY_CONSTANT=1; Klassennamen schreibt man in UpperCase public class MyClass{} Methoden und Variablennamen in lowerCase int myInt=1; Diese Konvention ist nicht zwingend, aber wenn sich alle Programmierer daran halten, dann wüsstest du, wenn du so einen Code siehst: frm.addFRAME_STATUS_1)); "Aha, frm ist eine lokale Variable, Mets ist eine Klasse und FRAME_STATUS_1 eine Konstante für createPanel()"
Wenn dann allerdings so ein Kontext kommt: public class main("lol"Mets.createPanelFrame fPanel pnl){}}.dann lässt dich das an deinem Verstand, der Relativitätstheorie und der Farbe von Bananen zweifeln.

als erstes: klassen werden erster buchstabe groß, rest klein geschrieben. methoden werden komplett klein geschreiben. 2int Güterpreisint Güterpreis) {und ganz am ende nach der else}-klammer noch eine zweite. übrigens wenn es ein public void. ist dann hat sie kein return

also bitte so:public class Rabatt {private double gueterpreis; private double kleinerRabatt = 0.02; private double großerRabatt = 0.05; private double preisgesamt; public void eingabeGüterpreis {if (gueterpreis < 300) {double preisgesamt = gueterpreis - gueterpreis * kleinerRabatt;} else {double preisgesamt= gueterpreis- gueterpreis * großerRabatt;

hab die Klammer weggenommen und jetzt funktioniert es. Aber warum werden Klassen und Methoden so geschrieben wie du sagtest, ist das zwingend?

bisn spät aber: das sind festlegungen, damit andere deine quelltexte besser lesen und verstehen können. Java Grundlagen: Konventionen, wie benenne ich Klassen, Methoden und Variablen :: Ein Karlsruher Bloggt!

Güterpreis existiert zum Zeitpunkt der Abfrage nicht mehr. entweder du hast die eine Klammer zu weit oben geschlossen oder du bist nicht darauf gekommen das es den güterpreis nicht mehr gibt